Valeurs de colonnes d une listbox vers Textbox d'une autre USF

[Youpsy]

---

Bonjour à tous ! Bonjour le forum

Je reconntrer un petit soucis pour importer des valeurs d'une listbox sur des textbox d 'une autre userform
j'ai une erreur 70... mais je ne trouve pas la solution a mon problème..

J'ai essayer de suivre qque tuto mais ça na rien donner.. je compte sur vous pour m'aider à me dépatouiller !

Merci !!

 

[CHALET53]

Re : Valeurs de colonnes d une listbox vers Textbox d'une autre USF

Bonjour,
si tu veux recopier dans le usf2, ce ne serait pas plutôt comme cela l'écriture de la ligne de code

Demandeur2.InstallationIDTextBox.Value = Demandeur.ListBox1.Column(0)

a+

 

[roro69]

Re : Valeurs de colonnes d une listbox vers Textbox d'une autre USF

Bonjour a essayer:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Index&
With ListBox1
Index = .ListIndex
If Index >= 0 Then
Demandeur2.InstallationIDTextBox = .List(Index, 0)
Demandeur2.NoCFCTextBox = .List(Index, 1)
Demandeur2.DesignationTextBox = .List(Index, 2)
End If
End With
Demandeur2.Show
Me.Hide
End Sub

A++

 

[Robert]

Re : Valeurs de colonnes d une listbox vers Textbox d'une autre USF

Bonjour le fil, bonjour le forum,

Ton fichier modifié en pièce jointe avec le code ci-dessous :

Private Sub UserForm_Initialize()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim i As Byte 'déclare la variable i (Incrément)

With Sheets("Installations") 'prend en compte l'onglet "Installations"
    .Select 'délectionne l'onglet
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
    Set pl = .Range("A2:A" & dl) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet "Installations"
'alimentation dynamique de la ListBox1
With Me.ListBox1 'prend en compte la ListBox1
    For Each cel In pl 'boucle sur toutes les cellule cel de la plage pl
        .AddItem cel.Value 'ajoute la valeur de la cellule cel à la colonne 0 de la ListBox1
        For i = 1 To 2 'boucle 2 : sur les colonnes 1 à 2 de la ListBox1
            .Column(i, .ListCount - 1) = cel.Offset(0, i).Value 'ajoute la valeur de la cellule cel (décalé de x colonnes à droite) à la colonne x de la ListBox1
        Next i 'prochaine colonne de la boucle 2
    Next cel 'prochaine cellule de la boucle 1
End With 'fin de la prise en compte de la ListBox1
efface
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Me.ListBox1 'prend en compte la ListBox1
    Demandeur2.InstallationIDTextBox.Value = .Column(0, .ListIndex) 'récupère le valeur de la colonne 0 de la ListBox1 dans la Textbox "InstallationIDTextBox"
    Demandeur2.NoCFCTextBox.Value = .Column(1, .ListIndex) 'récupère le valeur de la colonne 1 de la ListBox1 dans la Textbox "NoCFCTextBox"
    Demandeur2.DesignationTextBox.Value = .Column(2, .ListIndex) 'récupère le valeur de la colonne 2 de la ListBox1 dans la Textbox "DesignationTextBox"
End With 'fin de la prise en compte de la ListBox1
Demandeur2.Show 'affiche l'userform "Demandeur 2"
End Sub

Le fichier:

 

[Youpsy]

Re : Valeurs de colonnes d une listbox vers Textbox d'une autre USF

Merci a tous pour vos réponses et d'avoir perdu un petit peu de temps sur mon fichier

Toutes les solutions fonctionne a merveille !! 😀