Faire un bouton d'action + boite de dialogue
Résolu/Fermé
A voir également:
- Faire un bouton d'action + boite de dialogue
- Se connecter à ma boite hotmail - Guide
- Action requise sur le compte - Forum Gmail
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Ouvrir ma boîte mail ✓ - Forum Messagerie
- Www.hotmail.com boite de réception ✓ - Forum Hotmail (Outlook.com)
4 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
2 nov. 2016 à 15:37
2 nov. 2016 à 15:37
Bonjour,
les note dans la cellule
comment elles entrent et dans quelle cellule ??
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.
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.
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
2 nov. 2016 à 17:03
2 nov. 2016 à 17:03
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!