Copier avec un d'ouble clic dans une liste Box sur une UserForm.

[pat12]

Si je me permettais de vous demander une faveur,
Quand je fait un double clic dans une cellule des colonne (L) une UserForm s'ouvre pour copier un code je voudrai copier la rue avec un double clic sur la rue.
Et de garder le bouton "enregistrer" quand même.
Merci.

 

[Fred0o]

Re : Copier avec un d'ouble clic dans une liste Box sur une UserForm.

Bonjour pat12,

Voici ce que tu peux rajouter dans le module du UserForm.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    LaRue = Me.ListBox1
End Sub

Auparavant, il te faut déclarer :

Public LaRue As String

A+

 

[pat12]

Re : Copier avec un d'ouble clic dans une liste Box sur une UserForm.

Peux tu faire la modification dans l'exemple STP.
je ne trouve pas ou il faut écrire " Public LaRue As String "
Merci

 

[pat12]

Re : Copier avec un d'ouble clic dans une liste Box sur une UserForm.

Alors Fred0o
tu ne veux pas me donner l'info je ne sais pas ou placer " Public LaRue As String "
Ou quelqu'un d'autre peux me donner l'info.
Merci

 

[Fred0o]

Re : Copier avec un d'ouble clic dans une liste Box sur une UserForm.

Bonsoir Pat12,

Erreur de ma part, c'était à mettre dans le module du UserForm1 comme dans le fichier ci-joint.

A+