Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

pat12

XLDnaute Occasionnel
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.
 

Pièces jointes

  • pat12.xls
    112 KB · Affichages: 131
  • pat12.xls
    112 KB · Affichages: 142
  • pat12.xls
    112 KB · Affichages: 140

Fred0o

XLDnaute Barbatruc
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.
VB:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    LaRue = Me.ListBox1
End Sub

Auparavant, il te faut déclarer :
VB:
Public LaRue As String

A+
 

pat12

XLDnaute Occasionnel
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
 
Dernière édition:

pat12

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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+
 

Pièces jointes

  • pat12_V1.xls
    101 KB · Affichages: 39

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…