Créer une boite de dialogue après clic sur cellule

  • Initiateur de la discussion Initiateur de la discussion gourdin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gourdin

XLDnaute Impliqué
Bonjour,

Il s'agit de faire apparaître une boite de dialogue en cliquant sur une cellule.
Dans cette boite de dialogue il faut choisir entre le contenu de 2 cellules de la page qui ensuite s'affichera dans une autre cellule.
En pièce jointe un fichier simplifié.

Merci
 

Pièces jointes

Re : Créer une boite de dialogue après clic sur cellule

Bonjour gourdin,

A placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$D$7" Then Exit Sub
Dim choix$
Cancel = True
choix = InputBox("Entrez :" & vbLf & "1 pour '" & [C5] & "'" & vbLf & _
  "2 pour '" & [C9] & "'", "Choix")
[E7] = IIf(choix = "1", [C5], IIf(choix = "2", [C9], ""))
End Sub
Double-clic sur la cellule D7.

A+
 
Dernière édition:
Re : Créer une boite de dialogue après clic sur cellule

Bonjour et merci job75

Celà fonctionne bien mais j'aurais préféré éviter la saisie et avoir uniquement à cliquer sur un bouton comme dans l'exemple fourni avec le nom sur le bouton ou le nom au dessus du bouton (cf. image ci-dessous).
boutons.jpg

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
253
Réponses
21
Affichages
2 K
Réponses
7
Affichages
284
Retour