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

[gourdin]

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

 

[job75]

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) :

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+

 

[gourdin]

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).


Merci

 

[gourdin]

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

OK j'ai découvert le fonctionnement des userform et je me suis débrouillé
Merci