Faire un bouton d'action + boite de dialogue

Résolu/Fermé

bizuuu - 2 nov. 2016 à 14:41
bizuuu - 2 nov. 2016 à 17:23

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

A voir également:

Faire un bouton d'action + boite de dialogue
Se connecter à ma boite hotmail - Guide
Tubidy film d'action telecharger - Télécharger - TV & Vidéo
Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
Boite gmail saturée - Guide
Ouvrir ma boîte mail ✓ - Forum Gmail

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 nov. 2016 à 15:37

Bonjour,

les note dans la cellule
comment elles entrent et dans quelle cellule ??

Réponse 2 / 4

bizuuu
2 nov. 2016 à 16:49

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.

Réponse 3 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
2 nov. 2016 à 17:03

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!

Réponse 4 / 4

bizuuu
2 nov. 2016 à 17:23

MERCI,

c'est parfait!! ça fonctionne et je clique dessus sans cesse tellement c'est beau!!!

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Action requise sur compte Google

Ouvrir ma boite hotmail pour accéder à mes mails

Bouton ON OFF, O ou I ?

Ouvrir ma boîte de réception Hotmail

Discussions similaires

Newsletters