Suite RECHERCHE

Bonjour Le forum

Ce sujet avait été posté et javais une réponse favorable

de la part de Frangy que je salut au passage

Cependant c'était sans Userform. J'ai essayé de l'adapter avec le form joint

mais il bug ( je ne comprends pas)

Je voudrais renseigner la première ligne vierge de la feuille 2 par sélection combo1 (code dans la feuille 3)

Ci joint petit fichier

Merci de votre aide

Bonjour,

Regarde si c'est bien ce que tu cherches à obtenir

A+

Salut Frangy

Je te remercie c'est bien ce que je cherchais

Il me va bien

Bon Weekend à Toi et au forum

A+

Juste un complément: pour réaliser cette copie, tu peux simplifier ton code. En particulier, tu n'as pas besoin de la boucle puisque tu utilises une fonction de recherche.

Private Sub CommandButton1_Click()
Dim Derlig1 As Integer
    Application.ScreenUpdating = True
    With Worksheets("Feuil2")
        Derlig1 = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & Derlig1) = Me.ComboBox1.Value
        .Range("A" & Derlig1).Offset(0, 1) = Application.WorksheetFunction.VLookup(.Range("A" & Derlig1).Value, Sheets("Feuil3").Range("A:B"), 2, False)
    End With
End Sub

A+

Re Frangy

J'ai testé ton code et c'est juste

Celui ci est effectivement beaucoup plus simple

Merci pour ta disponibilité

A+