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
4 réponses
-
Bonjour,
les note dans la cellule
comment elles entrent et dans quelle cellule ?? -
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. -
Bonjour,
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!
-
