Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2894 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Probleme copie after + ...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] Probleme copie after + ...

n°1426394
drazr
Posté le 17-08-2006 à 07:16:01  profilanswer
 

Salut,  
je ne comprrend au lieu de me copier la feuille et la renommer il fait simplement remplacer le nom de mon onglet modèle par la case selectionnée.. (j'utilise une plage de cellules que je selectionne comme vous pouvez le remarquer, je n'y arrive pas avec des cases a cocher.. :s)
 
Pourriez vous m expliquer ce qui ne va pas ?? Voici mon code :
 
Sub pro_gui()
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets("Modèle" )
Sheets("Modèle" ).Copy After
Sheets("Modèle" ).Name = MyName
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Add.Name = MyName
End If
Next Mycell
End Sub
 
Merci ! ^^

mood
Publicité
Posté le 17-08-2006 à 07:16:01  profilanswer
 

n°1426407
galopin01
Posté le 17-08-2006 à 08:59:51  profilanswer
 

Bonjour,
ça doit faire quelque chose comme ça :
 
Sub pro_gui()
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection
MyName = Mycell.Value
If MyName <> "" Then
Set Mysheet = Sheets("Modèle" )
Mysheet.Copy After:=Mysheet
ActiveSheet.Name = MyName
End If
Next
End Sub

 
A+

n°1426444
drazr
Posté le 17-08-2006 à 10:18:57  profilanswer
 

Genial ! merci galopin :Dles feuilles s ajoutent dans un ordre bizzare (mes onglets crées correspondent a des n° , classés par ordre decroissant) mais bon c est pas trop grave j vais essayé d regler le bleme.
 
Et derniere chose :s , j ai essayé de faire ma macro avec des cases a cocher du genre je coche 3 cases correspondant a 3 noms d feuilles et ca me les créent quand je clik sur mon bouton.. mais je sais pas du tout comment  y prendre..
 
Vous pourriez m aider ??

n°1426450
jpcheck
Pioupiou
Posté le 17-08-2006 à 10:26:17  profilanswer
 

routine d'ajout de feuille
.Add
dans l'évenement checkbox1_change()
if checkbox1.value = true then
creationfeuille(1)
end if
 

n°1426466
drazr
Posté le 17-08-2006 à 10:37:38  profilanswer
 

Erf arriv po. c plus compliké k ca.
Le probleme c est qu j ai 40 cases correspondant donc a 40 cellules, contenant chacune un numero.
Donc le truc c est qu il faut que mon prog puisse creer chaque feuille en fonction de la case, si cochée ou pas, et qu en plus en fonction de la cellule correspondant a ma case cochée il puisse lui donner comem nom le n° contenu dans cette cellule.. C du trop high level pour moi :s lol
 
Y a 1 soluss ? merci  

n°1426515
galopin01
Posté le 17-08-2006 à 11:36:09  profilanswer
 

Ben c'est sur,  
le problème c'est que l'énoncé de départ était un peu sommaire.
Modifie cette ligne :
 
Mysheet.Copy After:=Sheets(Sheets.Count)
 
A+

n°1426561
drazr
Posté le 17-08-2006 à 12:47:01  profilanswer
 

Ah oki merci pas bete ! dsl j suis novice en la matiere ^^
 
Et mettez moi au courant si vous savez comment modifier mon code en remplacant la selection (un peu lourd) par des cases a cochées.. Merci :D

n°1426579
drazr
Posté le 17-08-2006 à 13:08:48  profilanswer
 

derniere question pendant qu j y suis : QUESTION TTE BETE :
 
Voici mon code deja :
 
Sub pro_gui()
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection
MyName = Mycell.Value
If MyName <> "" Then
Set Mysheet = Sheets("Modèle" )
Mysheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = MyName
ActiveSheet.Range("B9" ) = MyName
ActiveSheet.Range("K10" ) = MyName
ActiveSheet.Range("G9" ) =
End If
Next
End Sub
 
 
Vous remarkerez q une ligne est incomplete. En effet, je voudrais qu en G9 on est la valeur de la cellule a gauche de celle qui est selectionnée  
 
Quelle formule utilisée ???
muchas gracias

n°1426835
drazr
Posté le 17-08-2006 à 20:30:47  profilanswer
 

Probleme résolu, de maniere pas tres academik mais resolu kan mem!
 
j ai une derniere kestion :
j'ai une feuille dans lekel j ai des formules faisant references a des feuilles annexes.. sauf probleme : elles sont pas crées au moment ou j rentre ma formule ce ki fé k toutes mé formules n ont abouties a rien, elles ont été remplacées par "=+#ref!B11" et j peux rien faire pour changer ca.... :'(
COMMENT FAIRE ??
 
merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Probleme copie after + ...

 

Sujets relatifs
quotes dans requête pose problèmeProbleme de socket ? ou de mise en place dans un fichier ?
Probleme avec mon code source pour les socketsProbleme mise à la ligne javascript
probleme script vbs[VBA] appels fonctions .dll C/C++
[RESOLU][CSS] Problème de floataffichage d'un swf: firefox ok, IE probleme !
Problème d'impression de page webProblème de saut de ligne
Plus de sujets relatifs à : [VBA] Probleme copie after + ...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR