Hamb
XLDnaute Junior
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 !!
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 !!