Copie de mise en forme sur des formes existantes (VBA Excel)

cs_libellule39 Messages postés 1 Date d'inscription dimanche 11 mars 2007 Statut Membre Dernière intervention 23 novembre 2010 - 23 nov. 2010 à 17:09
Number7 Messages postés 23 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 27 décembre 2010 - 23 nov. 2010 à 21:07
Bonjour à tous et merci pour votre travail et vos conseils

Je suis confronté à un problème de mise en forme pour des rectangles, cercle.

Est-il possible via un code VBA d'automatiser le fait que si je change la mise en forme d'un cercle, cela change la mise en forme des autres formes du même type.

Exemple:
forme de référence "cercle0" les autres formes sont "cercle1", "cercle2"...
Initialement tous les cercles sont rouges.

Si un autre utilisateur veux les mettre en bleu, je voudrais qu'il ai juste à changer la mise en forme du "cercle0" et a activer la macro.

J'espère avoir été assez clair, je vous remercie pour votre aide

Cordialement

1 réponse

Number7 Messages postés 23 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 27 décembre 2010 1
23 nov. 2010 à 21:07
Voici un petit code qui permet de parcourir tous les Formes de tous les feuilles d'un classeur.


Dim Shp As Shape


For Sht% = 1 To ThisWorkbook.Sheets.Count


For Each Shp In ThisWorkbook.Sheets(Sht%).Shapes
MsgBox Shp.Name
Next Shp
Next Sht%


Ma passion : l'électronique et la programmation
0
Rejoignez-nous