Avis sur mon code
Bonjour à tous
Comme je suis un grand débutant, je vous demande votre avis sur ma macro.
Dans mon formulaire j'ai 2 boutons qui me permette d'écrire soit une formule ou une autre et ensuite je duplique cette cellule sur une plage vers le bas.
Tout fonctionne mais j'aimerais que cette macro ne s'applique qu'a la feuille1 mais je ne sais pas ou je dois mettre cela dans ma macro.
Voila mon code :
Private Sub CommandButton1_Click()
Range("I6").FormulaLocal = "=D6+F6"
Range("K6").FormulaLocal = "=D6-F6"
Dim DerLig As Long
Range("i6").Select
Selection.AutoFill Destination:=Range("i6:i15")
Range("k6").Select
Selection.AutoFill Destination:=Range("k6:k15")
End SubMerci et bonne journée à tous
Bonjour,
feuille1 c'est le nom de la feuille ? ou bien c'est Feuil1, ou bien c'set la première feuille ?
Private Sub CommandButton1_Click()
dim f as worksheet
set f = sheets("feuille1")
f.Range("I6").FormulaLocal = "=D6+F6"
f.Range("K6").FormulaLocal = "=D6-F6"
f.select
f.Range("i6").Select
Selection.AutoFill Destination:=f.Range("i6:i15")
f.Range("k6").Select
Selection.AutoFill Destination:=f.Range("k6:k15")
End Subsans fichier, je n'ai pas pu tester ...
derLig sert à quoi dans ton code ?
je ne pense pas qu'il faille les select
Bonjour Steelson
Voila mon fichier.
Je veux utiliser le code uniquement sur l'onglet "feuil1"
Par contre si j'essaye de mettre une formule plus complexe dans le code cela ne fonctionne pas.
Exemple de formule que je voudrais utiliser : =SIERREUR(CHOISIR(NBVAL(K18;N18;Q18;T18;W18;Z18;AC18);"A";"B";"C";"D";"E";"F";"G");"")
Merci à toi
Exemple de formule que je voudrais utiliser : =SIERREUR(CHOISIR(NBVAL(K18;N18;Q18;T18;W18;Z18;AC18);"A";"B";"C";"D";"E";"F";"G");"")
Merci à toi
Dans ce cas, il faut doubler les guillemets dans la formule
range("A1").FormulaLocal = "=SIERREUR(CHOISIR(NBVAL(K18;N18;Q18;T18;W18;Z18;AC18);""A"",""B"",""C"",""D"",""E"",""F"",""G""),"""")"Merci pour ton aide Steelson
Bonne fin de journée