Salut Vincent, le Forum
A mon avis avant de te perdre dans le VBA pour les Hyperlinks, tu devrais d'abord t'entrainer sur des boucles comme tu demandes en fin de ton post.
Voici un exemple tout simple de boucle à coller dans un classeur vierge qui contiendra au moins deux feuilles.
Dans la première feuille 1 en "A1" tu tapes "toto" et en feuille 2 tu en mets quelqu'uns des "Toto" entre "A1" et "A100"
Sub BoucleVincent()
Dim MaValeur As String
Dim MaPlage As Range
Dim Cellule As Range
Dim Message As String
Dim i As Integer
MaValeur = Sheets(1).Range("A1")
Set MaPlage = Sheets(2).Range("A1:A100")
For Each Cellule In MaPlage
If UCase(MaValeur) = UCase(Cellule) Then
Message = Message & Cellule.Address & vbCrLf
i = i + 1
End If
Next Cellule
If i > 0 Then
MsgBox "La Valeur " & MaValeur & " a été trouvée " & i & " fois." & _
vbCrLf & "Voici l'adresse des cellules :" _
& vbCrLf & Message, vbOKOnly, "MATCHING ADDRESSE"
Else
MsgBox "La Valeur " & MaValeur & " n'a été trouvée", vbCritical, "WARNING"
End If
End Sub
On notera que si l'on remplace :
If UCase(MaValeur) = UCase(Cellule) Then
par :
If MaValeur = Cellule Then
La recherche deviendra "Case Sensitive" (Majuscule / Miniscule ne retournant pas de matching)
Voilà déja pour commencer...
Ensuite il faudra que tu soies un peu plus précis sur tes besoins une fois que tu auras assumillé cette boucle.
Bonne Soirée
@+Thierry