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
Merci de votre aide rapide.
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
Partager