Button 1 et button 2

[Hamb]

Bonjour,

Je sais que ma question va paraître stupide voire naïve aux yeux de certains mais tant pis je la pose.
J’essaie tant bien que mal de créer un fichier de planning pour mon futur employeur et sur une feuille j’ai plusieurs boutons ou j’ai écrit à l’intérieur des mots différents.
J’aimerais par une macro sélectionner deux boutons en même temps pour que la couleur du texte change en fonction de certaines données, malheureusement il ne change la couleur que du dernier bouton.

Voici l’exemple qui me perturbe :
ActiveSheet.Shapes("Button 1").Select
ActiveSheet.Shapes("Button 2").Select
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Si quelqu’un pouvait me venir en aide je lui serait reconnaissant merci !!

 

[pierrejean]

Re : Button 1 et button 2

bonjour Hamb

C'est avec infiniment d'humilité que je te propose (non testé):

Nota: Avec Excel la notion de simultaneité n'est pas une evidence !

for n=1 to 2
ActiveSheet.Shapes("Button " & n).Select
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
next n

 

[Hamb]

Re : Button 1 et button 2

Bonjour PierreJean,

Tout d’abord merci pour ta réponse rapide et efficace, en effet pour deux boutons sur une feuille ça fonctionne hyper bien. Avec mon petit cerveau je me suis dit que j’allais faire la même opération sur une autre feuille mais ce coup ci avec 3 boutons j’ai donc changé for n = 1 to 2 pour for n = 1 to 3 mais la bizarrement ça ne fonctionne pas, il me change la couleur seulement de mes deux premiers boutons ???????

Si tu avais encore une petite astuce je suis preneur..

Merci

 

[pierrejean]

Re : Button 1 et button 2

bonjour Hamb

normalement cela devrait marcher !!

peux-tu nous joindre un fichier exemple (sans données confidentielles)

 

[Hamb]

Re : Button 1 et button 2

Re PierreJean,

J'espère que j'ai pu envoyer correctement le fichier, il est tout récent donc avec aucune données confidentielles.

Merci pour ton aide

 

[pierrejean]

Re : Button 1 et button 2

Re

piegeux ton fichier !!!

en fait tu n'as pas 3 boutons mais 5 !!
button 1 button 2 button 3 button 8 et button10

j'ai degagé le button 3 qui se trouvait sous le button 8

et du coup la macro fonctionne