[VBA-E] Pb avec l'utilisation de .Find
Bonjour,
Je souhaite retrouver dans une zone de selection l'adresse de la cellule d'une valeur. J'ai écrit la macro suivante:
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Dim FirstAddress As String
Dim c As Range
With Range("A1:N100")
Set c = .Find("Colonne 1", LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
MsgBox "Trouvé à " & c.address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With |
Le probleme étant que la fonction ne renvoie rien pour la recherche "Colonne 1" qui existe bien et se trouve en A1 alors qu'elle marche parfaitement pour toutes les autres valeurs (Colonne 2 en B2 est bien identifié par .Find, etc...) Là je ne comprend pas. Si quelqu'un a une solution ?