Excel-comment faire une boucle sous macro
Résolu
mod77
Messages postés
1284
Date d'inscription
Statut
Membre
Dernière intervention
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Excel-comment faire une boucle sous macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
8 réponses
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/ 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
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 ?
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 ?
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
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, 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!
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!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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...
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...