Soucis code insertion donnees dans useform

Bonsoir a tous,

j 'ai un code ci dessous et j'aimerais que en plus d 'insérer le texte de la colonne 8 dans la textbox t1, il me remplisse la textbox t2 avec le texte de la colonne 1

Set cel = Feuil2.Columns(1).Find(.Cells(i, 8), , , xlWhole)

If Not cel Is Nothing Then Else UserForm1.T1 = .Cells(i, 8): UserForm1.Show

par avance merci

Bonjour,

Quel est l'intérêt de cette ligne de code :

If Not cel Is Nothing Then Else UserForm1.T1 = .Cells(i, 8)

qui s'écrit simplement de cette façon :

If cel Is Nothing Then UserForm1.T1 = .Cells(i, 8)

Testes ceci :

Set cel = Feuil2.Columns(1).Find(.Cells(i, 8), , , xlWhole)

If cel Is Nothing Then

    With UserForm1

        .T1 = .Cells(i, 8)
        .T2 = .Cells(i, 1)
        .Show

    End With

End If

Mercipour ton aide