deux feuilles deux formulaires

[apdf1]

Bonjour,

Voilà j'ai deux feuilles "feuil1 et Adresse"et deux formulaires "Userform1et userform2".
Dans l'userform1 j'ai une listbox2 avec une colonne, qui va rechercher les valeurs dans la feuille Adresse colonne "C".
Quand je click sur un item de la listbox2 l'userform2 s'ouvre et devrais avoir les valeurs de la feuille adresse" C, D, E, F, G "dans chaque textbox.

Merci d'avance

Ci joint mon fichier
Bonne journée

Max

 

[Guest]

Re : deux feuilles deux formulaires

Bonjour,

Le code de ton userform1 (La déclaration de la variable Plage a changé de place-voir en haut)

Dim Plage As Range
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Sheets("Adresse")
    Set Plage = .Range("C9:C" & .Range("D65536").End(xlUp).Row)
End With
ListBox2.List = Plage.Value
End Sub
' Appel Nouveau client par DblClick
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim ligne As Long
    ligne = ListBox2.ListIndex + 1
    If ligne = 0 Then Exit Sub
    Me.Hide 'cache l'userform1 en selectionnant dans la listbox
    With UserForm2
        .TextBox1.Text = Plage.Cells(ligne, 1)
        .TextBox2.Text = Plage.Cells(ligne, 2)
        .TextBox3.Text = Plage.Cells(ligne, 3)
        .TextBox4.Text = Plage.Cells(ligne, 4)
        .TextBox5.Text = Plage.Cells(ligne, 5)
        .Show ' et ouverture UserForm8
    End With
End Sub

A+

[Edit] Salut JNP

 

[JNP]

Re : deux feuilles deux formulaires

Salut Apdf1 🙂,
Dans le code de UserForm2

Private Sub UserForm_Initialize()
Dim I As Integer, J As Integer, Cellule As Range
With UserForm1.ListBox2
For I = 0 To .ListCount - 1
If .Selected(I) Then
Set Cellule = Sheets("Adresse").Cells.Find(.List(I))
For J = 1 To 5
Me.Controls("TextBox" & J) = Cellule.Offset(0, J - 1)
Next J
Exit For
End If
Next I
End With
End Sub

Bonne journée 😎
Ajout : Salut Hasco 😉

 

[néné06]

Re : deux feuilles deux formulaires

Bonjour apdf1,Hasco,JNP et les autres

Je pense que pour avoir plus de réponses ,il vaut mieux éviter les fichiers xlms , mais prendre les fichiers xls.
Voici un petit exemple.
Pour les num de téléphone ,j'ai placé " ' " avant les zeros.

Cordialement

 

[apdf1]

Re : deux feuilles deux formulaires

Bonjour Hasco, Nene06,JNP

Je vous remercie beaucoup et je vous souhaite une bonne soirée

@+Max