Discussion :

[justin74]

Bonjour,

J'ai un tableau à une seule colonne dont les valeurs commencent en A15 et sont des références (de 1 à 10 chiffres).
J'ai également une TextBox1 et un CommandButton1.
Je souhaiterai que lorsque l'on rentre cette référence dans la TextBox et ensuite que l'on clique sur le bouton, une msg box apparaisse indiquant le numéro de la ligne où se trouve cette référence.
Est-ce que cela est possible en VBA.
Merci d'avance.

Cordialement.

[Philippe Tulliez]

Bonjour,
Imaginons que le tableau soit sur la colonne A et la dernière ligne soit la 100ème.
Le bouton se nomme cbStart
Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cbStart_Click()
 Dim cell As Range
 Set cell = Range("A2:A100").Find(Me.TextBox1)
 If Not cell Is Nothing Then
   MsgBox "Trouvé à la ligne " & cell.Row
  Else
   MsgBox "Pas trouvé"
 End If
End Sub

[justin74]

Merci, votre méthode marche parfaitement et plus astucieusement que ce que j'avais fait. Cependant, lorsque il n'y a rien dans la TextBox1 et que je valide avec mon bouton, il me trouve la ligne "16", que dois je donc rajouter pour qu'une MsgBox "Non trouvé" s'affiche également. D'autre part faut il travailler dans le CommandButton ou dans le TextBox ?

Merci.

[mercatog]

Au début

Code :

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

if me.textbox1="" then exit sub

Edit
Attention quand même avec les paramètres de la méthode Find, notamment Lookin:=xlvalues ou xlformulas (on cherche dans les valeurs u les formules) et LookaAt:=xlwhole ou xlpart (on cherche une partie du contenu ou l'ensemble du contenu)