hier on m'a aidé à faire la macro suivante, qui permet à mon rectangle de passer à la couleur verte ou rouge en affichant à l'intérieur un texte!
Je voudrai pouvoir affecter cette macro unique à plusieurs boutons d'action sans forcément être obligé de réaffecter une macro à une figure mais à plein de figures!
est ce possible?? N'hésitez pas à me dire si vous voulez plus de précisions! voici la macro actuelle:
Sub Rectangle1_Clic()
Dim resultat As String
resultat = InputBox("mettez vos initiales et la date ", "Initiale")
If resultat <> "" Then
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = 5296274 'vert'a adapter nom forme et couleur
ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = resultat
Else
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = 255 'rouge
ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = "Néant"
End If
End Sub
EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI
Merci d'y penser dans tes prochains messages.
A voir également:
Affecter une macro unique à plusieurs bouton d'action
Je voulais faire un fichier excel de suivi de dossiers qui passent dans plusieurs services!
l'idée c'est de noter les étapes et de mettre une case qui s'allume de rouge à vert et dans lequel on peut noter les initiales et dates (ça remplace le paraphe en fait)
voila en gros! ça parrait clair!! du coup pour le moment je fais des copier coller du code en modifiant dans le code l'affectation
Ca peut se faire avec des cellules (et a voir pour une UserForm a la place de l'Inputbox), ce qui serait plus simple.
Autrement il est possible de passer par un module de classe pour les rectangles
Eh ben !!!!!
Y a pas une autre facon de voir que des rectangles, vous pouvez en dire plus sur votre projet??
l'idée c'est de noter les étapes et de mettre une case qui s'allume de rouge à vert et dans lequel on peut noter les initiales et dates (ça remplace le paraphe en fait)
voila en gros! ça parrait clair!! du coup pour le moment je fais des copier coller du code en modifiant dans le code l'affectation
Ca peut se faire avec des cellules (et a voir pour une UserForm a la place de l'Inputbox), ce qui serait plus simple.
Autrement il est possible de passer par un module de classe pour les rectangles