Faire un bouton d'action + boite de dialogue
Résolu
bizuuu
-
bizuuu -
bizuuu -
Bonjour,
je souhaite réaliser un bouton d'action sur excel qui à l'orgine est rouge,
en cliquant on ouvre une boite de dialogue qui demande la date et les initiales et les note dans la cellule
puis le bouton d'action devient vert.
Pour l'instant la seule chose que j'ai pu faire c'(est la boite de dialogue...
Sub Rectangle1_Cliquer()
Dim resultat As String
resultat = InputBox("mettez vos initiales et la date ", "Initiale")
If resultat <> "" Then
MsgBox resultat
End If
End Sub
Merci d'avance
je souhaite réaliser un bouton d'action sur excel qui à l'orgine est rouge,
en cliquant on ouvre une boite de dialogue qui demande la date et les initiales et les note dans la cellule
puis le bouton d'action devient vert.
Pour l'instant la seule chose que j'ai pu faire c'(est la boite de dialogue...
Sub Rectangle1_Cliquer()
Dim resultat As String
resultat = InputBox("mettez vos initiales et la date ", "Initiale")
If resultat <> "" Then
MsgBox resultat
End If
End Sub
Merci d'avance
A voir également:
- Faire un bouton d'action + boite de dialogue
- Action - Guide
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Boite gmail saturée - Guide
- Dialogue boost - Accueil - Guide streaming
- Boite gmail bloquée - Guide
4 réponses
Je souhaite que les notes rentrent non pas dans une cellule mais dans une forme.
Ainsi dans le cas précédent, je clique sur une forme (le rectangle1) et c'est dans ce rectangle que je cherche à faire apparaitre la date et les initiales.
Ainsi dans le cas précédent, je clique sur une forme (le rectangle1) et c'est dans ce rectangle que je cherche à faire apparaitre la date et les initiales.
Bonjour,
comme ceci:
adapter le nom de la shape en respectant les espaces!
comme ceci:
Sub Rectangle2_Clic()
Dim resultat As String
resultat = InputBox("mettez vos initiales et la date ", "Initiale")
If resultat <> "" Then
ActiveSheet.Shapes("Rectangle 2").DrawingObject.Interior.Color = 5296274 'vert'a adapter nom forme et couleur
ActiveSheet.Shapes("Rectangle 2").TextFrame.Characters.Text = resultat
Else
ActiveSheet.Shapes("Rectangle 2").DrawingObject.Interior.Color = 255 'rouge
ActiveSheet.Shapes("Rectangle 2").TextFrame.Characters.Text = "Néant"
End If
End Sub
adapter le nom de la shape en respectant les espaces!