Excel-comment faire une boucle sous macro
Résolu
Bonjour,
Je voudrais faire une boucle sous forme de macro qui mettrait les valeurs de la colonne B de ma feuil2 à 0.
J'ai écrit ceci pour l'affecter à un bouton de commande:
Private Sub CommandButton3_Click()
Dim x As Byte
x = 1
For x = 1 To 10
Sheets("feuil2").Range("Bx") = 1
Next
End Sub
mais ça plante.
Quelqu'un serait-il me dire pourquoi?
Merci
Je voudrais faire une boucle sous forme de macro qui mettrait les valeurs de la colonne B de ma feuil2 à 0.
J'ai écrit ceci pour l'affecter à un bouton de commande:
Private Sub CommandButton3_Click()
Dim x As Byte
x = 1
For x = 1 To 10
Sheets("feuil2").Range("Bx") = 1
Next
End Sub
mais ça plante.
Quelqu'un serait-il me dire pourquoi?
Merci
Configuration: Windows XP Firefox 3.5.7
8 réponses
-
Avec plaisir à la prochaine
-
Ca y est j'ai trouvé par la méthode empirique! c'est 22 pour le gris
Merci beaucoup de votre aide Mike-31.
J'arrete là. -
Non c'est 2003,
Mais je m'excuse de nouveau car j'ai oublié de préciser que c'est pour une case d'option je pense que ça a son importance. La ligne de commande est: pour le rouge
ActiveSheet.Shapes("option button 135").Fill.ForeColor.SchemeColor = 65
Désolé pour ce manque de présence d'esprit.
alors je cherche encore... -
Re,
Ca depend, antérieur à Excel 2007, il faut se contenter des couleurs de la palette Excel, pour 2007 il est possible de personnaliser les couleurs. Quelle version Excel as-tu
Lorsque ton problème sera résolu, n'oublis pas de mettre ton statut en résolu en haut de la discussion -
Merci, merci, merci Mike-31!
J'en avais marre de tester tout les codes depuis que j'ai posté la question!
Les nuances ne sont donc pas possible?
Merci, j'arrete apres ça! -
Re,
En pièce jointe tous les index couleurs qui peuvent être utilisé sous Excel, pour le gris c'est le 15, le 16 et le 48 suivant qu'il est clair ou plus foncé
https://www.cjoint.com/?bqvRDSJq4d -
Merci Mike-31 !
c'est génial ça marche!
C'est bien la colonne B que je voulais mais j'ai compris le principe.
Saurais-tu cependant à quel code correspond la couleur "Gris" par hasard ? -
Salut,
1/ respectes le format de l'onglet par exemple feuil2 ce doit être Feuil2
la colonne s'identifie de cette façon dans mon exemple Cells(x, 2) le 2 correspond à la colonne B
Sheets("Feuil2").Cells(x, 2) = 1
si tu veux la colonne BX
Sheets("Feuil2").Cells(x, 76) = 1
