Changement de couleur shapes automatique

maval · 21 Février 2015

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 · 21 Février 2015

Re : Changement de couleur shapes automatique

Bonjour Max,

en ajoutant ce code dans la feuille 1

Code:

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 · 21 Février 2015

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

Changement de couleur shapes automatique

maval

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

maval

XLDnaute Barbatruc

Discussions similaires

Changement de couleur shapes automatique

maval

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

maval

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency