Bonjour,

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

J’arrive à trouver la valeur qui est tapé dans le textbox 1 manuellement et sélectionné la ligne, mais je ne sais pas comment lire la ligne du bas en appuyant sur le bouton "Next"et affiché la valeur.

J’utilise le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton_Find_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
                .Cells(nom.Row, "A").Select          ' sélectionne la ligne dans la colonne A
            End If
        Next nom
End With
End Sub
__________________________________________________________________________________
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub CommandButtonNext_Click()
 
??????     	'Je ne sais pas comment faire.
 
End Sub
Merci de votre aide rapide.