Récupération d'info dans un tableau avec un nom

Bonsoir a tous !

J'ai besoin d'un petit coup de main sur mon projet.

J'aimerais que mon Userform2 se pré-remplisse a l'ouverture avec les informations qu'il trouve par rapport au nom que j'ai mis dans le Userform1.

Je veux qu'il prenne les première info qu'il trouve en partant du bas.

( Pas simple a expliqué )

par exemple si je choisie le nom "Rémy" j'aimerais que le Userfom2 se pré-remplisse avec ces information : Date; Temps; Description de l'intervention, de la dernière ligne du tableau ou il y a ce nom.

Si quelqu'un aurais la solution sa serrais vraiment top, j'ai du mal la haha

Bonsoir Rémyx74,

Voilà ton fichier en retour :

Re bonsoir

Merci c'est exactement ce que je voulais mais je n'arrive pas a l'adapter dans le code de mon projet .

Pour la varirable public c'est ok pas de souci la dessus, je comprend un peut la variable "derlgn", mais le reste j'ai du mal a comprendre pourrais tu m'expliquer comment sa fonctionne svp ?

derlgn = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = derlgn To 10 Step -1

If Cells(i, 1) = Nom Then

Me.TextBox1 = Cells(i, 2)

Me.TextBox4 = Cells(i, 4)

Me.TextBox3 = Cells(i, 5)

Exit For

End If

Next i

le niveaux que vous avez tous sur ce forum me surprendra toujours

Merci beaucoup de ton aide

Bonsoir Remyx,

Voici l'explication du code:

'Recherche de la derniere ligne non vide
derlgn = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

'Boucli qui scrute de la derniere ligne a la ligne 10 afin de prendre la derniere selection
For i = derlgn To 10 Step -1

    'Si la cellule de linge "X" est égale au "Nom"
    If Cells(i, 1) = Nom Then
    'Alors copie de la cellule "X" de la colone "B" dans la textbox1
    Me.TextBox1 = Cells(i, 2)
    'Alors copie de la cellule "X" de la colone "D" dans la textbox4
    Me.TextBox4 = Cells(i, 4)
    'Alors copie de la cellule "X" de la colone "E" dans la textbox3
    Me.TextBox3 = Cells(i, 5)

    'Puis On sort de la boucle
    Exit For
    'Fin de la condition
    End If
Next i

Merci Florian c'est a peut prêt se que j’avais réussi a lire. Mais du coup impossible de l'adapter dans mon code enfin si mais pas complètement.

J'ai fait les modification pour l'adapter elle fonctionne seulement quand je remplace:

If Cells(i, 1) = Nom Then

par

If Cells(i, 1) = "Rémy" Then

pourtant j'ai bien déclarer ma variable en public, je vide cette variable aux début (Nom = ""), je copie Combobox2 dans la variable Nom (Nom = ComboBox2) et j'essaye de l'utiliser dans le programme que tu ma donner mais le formuler s'ouvre vide.

Une idée de pourquoi sa fonctionne pas ? ^^