Affecter une macro unique à plusieurs bouton d'action
bizuuu
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
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:
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. |
1 réponse
-
Bonjour,
mais à plein de figures!
Combien 20, 50, 100, 200 ??
Car suivant ce nombre il y a deux facons de voir la chose-
- 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
-
