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.
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.
