Discussion :

[New_VBA_User]

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.

[Menhir]

Si le "Next" est envoyé juste après le "Find" sans autre manipulation entre les deux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBox1.Value = Selection.Offset(1, 0).Value

[New_VBA_User]

Bonjour,

j'ai modifié un peu la condition, je n'aimerais plus utiliser le bouton "Find" mais tout faire avec le bouton "Next"

ci-dessous le code, mais rien ne s'affiche dans le textbox1, la ligne n'est pas non plus sélectionnée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.

[Menhir]

ci-dessous le code, mais rien n'affiche dans le textbox1, ni la ligne est sélectionné.

Fais tourner ta macro en pas-à-pas pour voir par où passe le code, tout en surveillant le contenu des variables (en particulier "nom") dans la liste des variables locales.

[New_VBA_User]

Fais tourner ta macro en pas-à-pas pour voir par où passe le code, tout en surveillant le contenu des variables (en particulier "nom") dans la liste des variables locales.

j'ai 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 est sélectionné.

je ne comprend pas pourquoi?

Merci pour l'aide.

[Menhir]

Mets un Exit For juste avant ton End If.