Associer couleur à des controles bouton
norma
-
Norma -
Norma -
Bonjour,
voilà le problème, on me demande de faire un travail mais je coince !
j'ai une liste de validation de couleur : jaune, rouge, bleu, etc où je peux choisir de voir la couleur dans une cellule
maintenant j'ai des boutons contrôle et il faudrait que si je choisi le bleu dans la liste, tous les boutons concernés doivent être bleu aussi.
je ne sais pas du tout comment faire?
quelqu'un peut-il m'aider à écrire la macro qui permettrait ce changement?
merci d'avance
norma
voilà le problème, on me demande de faire un travail mais je coince !
j'ai une liste de validation de couleur : jaune, rouge, bleu, etc où je peux choisir de voir la couleur dans une cellule
maintenant j'ai des boutons contrôle et il faudrait que si je choisi le bleu dans la liste, tous les boutons concernés doivent être bleu aussi.
je ne sais pas du tout comment faire?
quelqu'un peut-il m'aider à écrire la macro qui permettrait ce changement?
merci d'avance
norma
A voir également:
- Associer couleur à des controles bouton
- Bouton couleur telecommande - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Associer chromecast - Guide
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
23 réponses
Bonjour et merci.
j'ai fait très attention à l'écriture et en effet tout semble aller mieux.
je vais voir le code et je vous tiens au courant.
merci encore et bonne journée
norma
j'ai fait très attention à l'écriture et en effet tout semble aller mieux.
je vais voir le code et je vous tiens au courant.
merci encore et bonne journée
norma
Tu peux modifier la fin de ton code par exemple les boutons dont les numéros sont inférieur à 9 sont piloté par la cellule D3
Select Case Target.Address
Case "$D$3"
For Each Shp In Sheets("programme").OLEObjects
If Right(Shp.Name, Len(Shp.Name) - 13) <= 9 Then
Shp.Object.BackColor = Coul
If Shp.Object.BackColor = &H0& Or Shp.Object.BackColor = &HC00000 Then
Shp.Object.ForeColor = &HFFFFFF
Shp.Object.Font.Bold = True
Else
Shp.Object.ForeColor = &H0&
Shp.Object.Font.Bold = False
End If
End If
Next Shp
Les boutons dont les numéros se situent entre >9, c'est à dire à partir du 10éme jusqu'au bouton numéro11 sont pilotés par la cellule H3
Case "$H$3"
For Each Shp In Sheets("programme").OLEObjects
If Right(Shp.Name, Len(Shp.Name) - 13) > 9 And Right(Shp.Name, Len(Shp.Name) - 13) <= 11 Then
Shp.Object.BackColor = Coul
If Shp.Object.BackColor = &H0& Or Shp.Object.BackColor = &HC00000 Then
Shp.Object.ForeColor = &HFFFFFF
Shp.Object.Font.Bold = True
Else
Shp.Object.ForeColor = &H0&
Shp.Object.Font.Bold = False
End If
End If
Next Shp
une troisième série dont le numéro des boutons est supérieur à 11 pilotée par la cellule L3
Case "$L$3"
For Each Shp In Sheets("programme").OLEObjects
If Right(Shp.Name, Len(Shp.Name) - 13) > 11 Then
Shp.Object.BackColor = Coul
If Shp.Object.BackColor = &H0& Or Shp.Object.BackColor = &HC00000 Then
Shp.Object.ForeColor = &HFFFFFF
Shp.Object.Font.Bold = True
Else
Shp.Object.ForeColor = &H0&
Shp.Object.Font.Bold = False
End If
End If
Next Shp
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Select Case Target.Address
Case "$D$3"
For Each Shp In Sheets("programme").OLEObjects
If Right(Shp.Name, Len(Shp.Name) - 13) <= 9 Then
Shp.Object.BackColor = Coul
If Shp.Object.BackColor = &H0& Or Shp.Object.BackColor = &HC00000 Then
Shp.Object.ForeColor = &HFFFFFF
Shp.Object.Font.Bold = True
Else
Shp.Object.ForeColor = &H0&
Shp.Object.Font.Bold = False
End If
End If
Next Shp
Les boutons dont les numéros se situent entre >9, c'est à dire à partir du 10éme jusqu'au bouton numéro11 sont pilotés par la cellule H3
Case "$H$3"
For Each Shp In Sheets("programme").OLEObjects
If Right(Shp.Name, Len(Shp.Name) - 13) > 9 And Right(Shp.Name, Len(Shp.Name) - 13) <= 11 Then
Shp.Object.BackColor = Coul
If Shp.Object.BackColor = &H0& Or Shp.Object.BackColor = &HC00000 Then
Shp.Object.ForeColor = &HFFFFFF
Shp.Object.Font.Bold = True
Else
Shp.Object.ForeColor = &H0&
Shp.Object.Font.Bold = False
End If
End If
Next Shp
une troisième série dont le numéro des boutons est supérieur à 11 pilotée par la cellule L3
Case "$L$3"
For Each Shp In Sheets("programme").OLEObjects
If Right(Shp.Name, Len(Shp.Name) - 13) > 11 Then
Shp.Object.BackColor = Coul
If Shp.Object.BackColor = &H0& Or Shp.Object.BackColor = &HC00000 Then
Shp.Object.ForeColor = &HFFFFFF
Shp.Object.Font.Bold = True
Else
Shp.Object.ForeColor = &H0&
Shp.Object.Font.Bold = False
End If
End If
Next Shp
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
comment l'écrire dans le code ?
grand merci pour votre aide ! mon travail a bien avancé et commence à prendre forme.
sans votre aide à tous je n'y serais pas arrivé, c'est sûr.
A+