Affecter une macro unique à plusieurs bouton d'action
bizuuu
-
f894009 Messages postés 17413 Statut Membre -
f894009 Messages postés 17413 Statut Membre -
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. |
A voir également:
- Affecter une macro unique à plusieurs bouton d'action
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Vous devez disposer d'une autorisation pour effectuer cette action - Guide
- Concurrent action - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
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