UserForm suit à une recherche

Bonjour,

Dans le document joint, j'aimerai que lorsque qu'une ligne est colorée suite à la recherche, cela s'affiche dans le UserForm.

Je ne connais pas le code pour récupérer des données.

Merci par avance de me donner un seul exemple afin que je fasse le reste, pour apprendre.

Bonne journée

Bonjour

pour charger textbox2 et textbox3 à partir de la colonne 2 et 3 dans la ligne trouvée

Private Sub TextBox7_Change()

Application.ScreenUpdating = False

Range("A2:A2400").Interior.ColorIndex = 2

If TextBox1 <> "" Then

For ligne = 2 To 2400

If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then

Cells(ligne, 1).Interior.ColorIndex = 43

TextBox2 = Cells(ligne, 2)

textbox3=cells(ligne,3)

exit for

End If

Next

End If

End Sub

Bonsoir h2so4,

Je n'ai qu'une chose à dire

BRAVO TOUS MES RESPECTS.

MERCI TRÈS SINCEREMENT

Bonsoir,

Quand je saisi les données de la cellule A2 dans la textBox7, rien ne se passe.

Est-ce parce-que dans le code je n'est pas ajouté le nom de la feuille où la recherche se fait?

OU

Est-ce que j'ai mis le code dans le UserForm ?

Merci

Bonsoir,

proposition de correction

Private Sub TextBox7_Change()
    Application.ScreenUpdating = False
    With Sheets("data")
        .Range("A2:A2400").Interior.ColorIndex = 2
        If TextBox7 <> "" Then
            For ligne = 2 To 2400
                If .Cells(ligne, 1) Like "*" & TextBox7 & "*" Then
                    .Cells(ligne, 1).Interior.ColorIndex = 43
                    For j = 1 To 6
                        Me("textbox" & j) = .Cells(ligne, j)
                    Next j
                    Exit For
                End If
            Next
        End If
    End With
End Sub

Bonsoir h2so4,

Je testerai demain.

Merci très sincèrement

Bonjour h2so4 ,

Le code fonctionne à merveille,

Maintenant quelle est le code pour faire un retour à la ligne dans les textBox.

Merci

Bonjour,

dans le proprétés du TextBox, mettre true à multiline.

Merci