Rechercher et utiliser une adresse

Bonjour ZZR09, le forum

Comme tu ne précises pas si tu veux une solution par formule ou en VBA, j'ai choisi la deuxième solution.

Sans passé par recherche (find) pour rechercher une valeur dans une colonne tu dois boucler sur chaque élément de cette colonne.

En exemple, un code qui compare chaque élément de la colonne A avec une date saisie en E1 et renvoi l'addresse.

Sub Bouton1_QuandClic()
Dim c As Range
Dim celladd As String
'pour chaque cellule dans la plage ('a1:a) jusqu'à la derniere cellule non vide
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
'si la cellule = la valeur de la cellule E1
If c = Range('e1') Then
'alors renvoi l'adresse de la cellule se trouvant 3 colonnes à droite de c
celladd = c.Offset(0, 3).Address
MsgBox celladd
MsgBox Range(celladd)
End If
Next c

End Sub

Cliquez pour agrandir...

Salut

Edition : Pourquoi ne veux-tu pas utiliser le recherche de vb ??? 🙂

Message édité par: Hervé, à: 10/07/2005 18:43

Merci beaucoup pour ta réponse, je vais la tester mais il me semble que la déclaration de la variable celladd as range est la clé de mon soucis ... la réponse dans quelques minutes. Dire que ça fait qqs heures que je rame sur cette question!

Sinon, ce n'est pas que je ne veux pas utiliser la fonction rechercher de VB c'est la RECHERCHEV d'Excel qu'on ne peut pas utiliser en VB.
Sinon, il se peut que la fonction find me pose aussi quelques problèmes.

Existe t-il un endroit où sont répertoriés tous les évènements, les variable que l'on peut déclarer?

Cordialement