Discussion :

[vnlttt]

Bonjour
Je fais une petite base de donnée sous excel et pour la mise en forme, j'ai fais un Userform.
Dans celui-ci j'ai fais une liste déroulante(à partir de ma feuille excel colonne A). Par contre je voudrais qu'une fois que j'ai choisi ma valeur dans la liste déroulante, que je remplisse les deux zones de textes(colonne b et c dans mon tableau) associées à cette valeur.
Je ne trouve pas la solution.
Merci de m'aider

[fring]

En supposant que tu valides la sélection dans ton UserForm via un bouton, voici un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim i As Integer
 
With Sheets("Feuil1") '<-- feuille contenant la valeur à chercher
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row '<-- de la ligne 1 à la dernière ligne utilisée de la colonne A
        If .Cells(i, 1) = Me.ListBox1 Then '<-- recherche de la ligne en colonne A qui correspond à la sélection de la ListBox
            .Cells(i, 2) = "toto" '<-- si oui colonne B même ligne = ...
            .Cells(i, 3) = "lulu" '<-- si oui colonne C même ligne = ...
            Exit For '<-- une fois trouvé, on sort de la boucle qui effectue la recherche
        End If
    Next
End With
 
End Sub

[vnlttt]

Merci
mais ca ne fonctionne pas comme je voudrais. Donc j'ai fais quelque modif mais ca ne fonctionne toujours pas.
Je voudrais que quand je valide ma valeur dans ma Combobox, que mes zones de textes se remplissent automatiquement à partir des cellules situées sur la même ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim i As Integer
 
With Sheets("Feuil1") '<-- feuille contenant la valeur à chercher
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row '<-- de la ligne 1 à la dernière ligne utilisée de la colonne A
        If .Cells(i, 1) = Me.ComboBox1 Then '<-- recherche de la ligne en colonne A qui correspond à la sélection de la ListBox
            TextBox1 = .Cells(i, 2) '<-- si oui colonne B même ligne = ...
            TextBox2 = .Cells(i, 3) '<-- si oui colonne C même ligne = ...
            Exit For '<-- une fois trouvé, on sort de la boucle qui effectue la recherche
        End If
    Next
End With
End Sub

[fring]

ah d'accord c'est dans ce sens là, je pensais que tu voulais compléter la feuille, ce que tu as fait est correct et cela fonctionnera en ajoutant .Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim i As Integer
 
With Sheets("Feuil1") '<-- feuille contenant la valeur à chercher
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row '<-- de la ligne 1 à la dernière ligne utilisée de la colonne A
        If .Cells(i, 1).Text = Me.ComboBox1 Then '<-- recherche de la ligne en colonne A qui correspond à la sélection de la ListBox
            TextBox1 = .Cells(i, 2).Text '<-- si oui TextBox1 = colonne B même ligne
            TextBox2 = .Cells(i, 3).Text '<-- si oui TextBox2 = colonne C même ligne
            Exit For '<-- une fois trouvé, on sort de la boucle qui effectue la recherche
        End If
    Next
End With
End Sub

Tu pourrais également, au lieu de passer par un bouton, directement agir via l'évènement Change du Combo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ComboBox1_Change()
'...
'le code
'...
End Sub

[vnlttt]

Ok c'est bien cela que je voulais comme dispo
Merci pour votre aide
You are