Excel-comment faire une boucle sous macro

Résolu/Fermé
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 16 janv. 2010 à 21:06
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 16 janv. 2010 à 22:42
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
A voir également:

8 réponses

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
16 janv. 2010 à 21:19
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
1
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 21:25
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 ?
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
16 janv. 2010 à 21:46
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
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 22:05
Excuse moi Mike-31, mais M@rina m'avait donné 65 et ça correspond au rouge alors que dans ton tableau c'est 3 le rouge. Ci-bien que le gris ne correspond pas au code ?
Aurais-tu une solution STP?
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 21:57
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!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
16 janv. 2010 à 22:06
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
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 22:11
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...
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 22:25
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à.
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
16 janv. 2010 à 22:42
Avec plaisir à la prochaine
0