Problème VBA: Lire la valeur d'une ligne avec offset avec un bouton

Bonjour,

Lorsque je tape manuellement un texte dans un texbox1 j’aimerai trouver la valeur tapée de textbox1 dans la feuille en appuyant sur un bouton « Next » j’aimerai lire la valeur de ligne de dessous et afficher la valeur dans le textbox1.

Jai essayé en pas à pas, la valeur de ligne du bas s'affiche et la ligne est sélectionné aussi mais avec un tour de retard.

Lors que je test normalement, et j'entre la valeur dans le texdtbox1 et que j'appuie sur le bouton "Next" la valeur disparait du textbox1 et la dernière ligne du colonne est sélectionné.

je ne comprend pas pourquoi?

J’utilise le code suivant

Private Sub CommandButtonNext_Click()

Dim nom As Range

With ThisWorkbook.Sheets("Sheet1")

For Each nom In .Range("A2:A" & .[A6000].End(xlUp).Row) ' lis la val. présent dans le texte box

If nom = Me.TextBox1.Value Then

Me.TextBox1.Value = .Cells(nom.Row, "A").Offset(1, 0).Value

.Cells(nom.Row, "A").Select

End If

Next nom

End With

End Sub

Merci pour l'aide.

Bonjour,

quand tu mets un code, utilise l'icone <> qu'il soit plus lisible.

Lorsque tu as trouvé, tu continues avec le mot suivant et ainsi de suite jusqu'en bas.

Une fois trouvé il faut quitter ta boucle avec un Exit For.

Avec un range.Find (à rechercher dans l'aide VBA) tu peux trouver directement la cellule sans boucler.

eric

merci pour l'aide, ça fonctionne.