Macro Excel Couleurs de zones Cellule
Résolu/Fermé
thesimx
Messages postés
15
Date d'inscription
mercredi 4 février 2009
Statut
Membre
Dernière intervention
2 mars 2009
-
4 févr. 2009 à 13:22
thesimx Messages postés 15 Date d'inscription mercredi 4 février 2009 Statut Membre Dernière intervention 2 mars 2009 - 9 févr. 2009 à 08:41
thesimx Messages postés 15 Date d'inscription mercredi 4 février 2009 Statut Membre Dernière intervention 2 mars 2009 - 9 févr. 2009 à 08:41
A voir également:
- Macro Excel Couleurs de zones Cellule
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
biloue
Messages postés
82
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
20 juillet 2011
7
4 févr. 2009 à 15:21
4 févr. 2009 à 15:21
Bonjour
voici un petit code qui sur un clique de bouton te permet de colorier une plage en fonction de la cellule A1
Private Sub CommandButton1_Click() 'Clic de bouton
Dim couleur As Integer 'Définie la variable coueur comme un integer
'Si la cellule ligne 1 colonne 1 est égal à "rouge" définit la couleur en rouge (3)
If Cells(1, 1) = "rouge" Then
couleur = 3
'Sinon si la cellule ligne 1 colonne 1 est égal à "vert" définit la couleur en vert (4)
ElseIf Cells(1, 1) = "vert" Then
couleur = 4
'Possibilité de continuer avec plein de couleur
'avec des elseif et de définir une couleur par défaut avec un else
End If
'Définit la couleur de la plage de cellule sélectionné en fonction de la variable couleur
Range("B2:EG16").Select
With Selection.Interior
.ColorIndex = couleur
.Pattern = xlSolid
End With
End Sub
Bon courage
Biloue
voici un petit code qui sur un clique de bouton te permet de colorier une plage en fonction de la cellule A1
Private Sub CommandButton1_Click() 'Clic de bouton
Dim couleur As Integer 'Définie la variable coueur comme un integer
'Si la cellule ligne 1 colonne 1 est égal à "rouge" définit la couleur en rouge (3)
If Cells(1, 1) = "rouge" Then
couleur = 3
'Sinon si la cellule ligne 1 colonne 1 est égal à "vert" définit la couleur en vert (4)
ElseIf Cells(1, 1) = "vert" Then
couleur = 4
'Possibilité de continuer avec plein de couleur
'avec des elseif et de définir une couleur par défaut avec un else
End If
'Définit la couleur de la plage de cellule sélectionné en fonction de la variable couleur
Range("B2:EG16").Select
With Selection.Interior
.ColorIndex = couleur
.Pattern = xlSolid
End With
End Sub
Bon courage
Biloue
9 févr. 2009 à 08:41