Changement de couleur shapes automatique

[maval]

Bonjour,

Je suis à la recherche d'un code pour que lorsque je click en dehors des Shapes, les Shapes deviennent de couleur blanche

je joint un fichier pour exemple

Merci d'avance

 

[phlaurent55]

Re : Changement de couleur shapes automatique

Bonjour Max,

en ajoutant ce code dans la feuille 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Fill.ForeColor.SchemeColor = 9
Next n
End Sub

à+
Philippe

 

[maval]

Re : Changement de couleur shapes automatique

Salut Philippe

Je te remercie, si tu as bonne mémoire le code pour les Shapes vient de toi et je m'enserre pratiquement tous les jours

Bonne journée