Probleme vba
bart
-
Ankhsuamon Messages postés 50 Statut Membre -
Ankhsuamon Messages postés 50 Statut Membre -
Bonjour,
j ai un petit soucie je cherche a controle une couleur en fonction d un texte
ex ci j ecris rouge dans une case presise il faut que cela me color un rond en rouge dans une autre
feuille
je vous remercit
j ai un petit soucie je cherche a controle une couleur en fonction d un texte
ex ci j ecris rouge dans une case presise il faut que cela me color un rond en rouge dans une autre
feuille
je vous remercit
Configuration: Windows Vista Internet Explorer 7.0
1 réponse
-
Hello,
Ce petit exemple est sur une feuille Excel. Tu definis ton shape et dans l'evenement change de ta feuille tu fais :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "rouge" Then
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
End Sub
Lorsque tu ecris rouge dans la cellule A1 et que tu selectionnes une autre cellule le shape change de couleur.
