pb avec une comparaison sous VBA

[Tuor]

Bonjour,

je cherche a créer une macro qui me permette de rechercher parmi des données un nom ou un numéro bien précis, mais je rencontre un problème. Je ne sais pas comment faire la comparaison entre le nom que j'ai rentré et ceux contenu dans ma feuille excel. Pourriez vous m'aider s'il vous plait. je vous envoie la boucle que j'ai
créé.


Merci d'avance pour votre réponse

Sub activesheet()
Dim rep As String
Dim i As Integer
Dim b As String
b = 'B'
rep = InputBox('Veuillez rentrer le nom recherché')
For i = 4 To 1000
If rep = Feuil2.Cells.AddressLocal(4, b) Then
MsgBox (Feuil2.Cells.AddressLocal(4, b))
End If
Next i
End Sub

PS : Si vous avez d'autres idées de boucles, n'hésitez pas à me le faire savoir ex :
application.find (que je ne maîtrise pas...)

Tuor

 

[Tuor]

Pardon, je viens de faire une fausse manip'...
Je ne voulais pas renvoyer de message...

A bientôt Tuor

 

[bebere]

bonjour Tuor,le Forum
2 procédures pour t'aider

Sub SearchIets()
Dim rep As String
Dim i As Integer
Dim b As String
b = 'B'
rep = InputBox('Veuillez rentrer le nom recherché')
With Feuil1
For i = 4 To 1000 'lignes
If .Cells(i, 2).Value = rep Then
MsgBox .Cells(i, 2).Value
Exit For
End If
Next i
End With
End Sub

Sub SearchIets1()
Dim rep As String
Dim i As Integer
Dim Cel As Range
rep = InputBox('Veuillez rentrer le nom recherché')

Set Cel = Feuil1.Range('B:B').Find(rep, LookIn:=xlValues)
If Not Cel Is Nothing Then i = Cel.Row
If i > 0 Then
MsgBox Feuil1.Cells(i, 2).Value
Else: MsgBox 'pas trouvé'
End If
End Sub
bonne découverte