Recherche valeur dans classeur

Marsh Posté le 21-03-2016 à 00:03:33

Bonjour,
Je cherche faire une recherche définie sur plusieurs feuilles et activer la cellule trouvée.
J'ai plusieurs feuille avec en:
A dossard
B nom
C classement
J'ai réussi à faire une Textbox pour la saisie de ma recherche (dossard) et une macro qui met en surbrillance la valeur trouvée (sur ma feuille active).
Je ne sais pas faire la recherche sur plusieurs feuilles. (la réponse à ma recherche est unique)

Une aide me serait précieuse.
Merci

Citation :

Option Compare Text
Private Sub TextBox1_Change()
Range("A8:A503" ).Interior.ColorIndex = 2

If TextBox1 <> "" Then
For ligne = 8 To 503
If Cells(ligne, 1) Like TextBox1 Then
Cells(ligne, 1).Interior.ColorIndex = 44
Cells(ligne, 1).Select

End If
Next
End If

End Sub

Marsh Posté le 21-03-2016 à 00:03:33

Marsh Posté le 23-03-2016 à 19:44:32

Bonjour,

un exemple pour parcourir les feuilles d'un classeur avec le B-A-BA d'Excel, la fonction EQUIV (Match en VBA) :

Code :

Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
With Ws
V = Application.Match(TextBox1.Value, .UsedRange.Columns(1), 0)
If IsNumeric(V) Then
.Activate
With .Cells(V, 1)
.Interior.ColorIndex = 44
.Select
End With
Exit Sub
End If
End With
Next

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *