XL 2019 Récupérer l'adresse d'une cellule

[Magic_Doctor]

Bonjour,

Je tourne en rond pour une broutille.
J'ai une plage de cellules contiguës sur une même colonne : Range("C9:C108")
Toutes les cellules sont pleines (1 à 100).
Je voudrais connaître l'adresse d'une cellule contenant tel chiffre.
J'ai bien tenté ceci :

Sub MonAdresse()

Dim c As Range

Set c = Range("C9:C108").Find("10")

[J6] = c.Address
End Sub

Ça ne marche pas.

Merci d'avance pour toute aide.

 

[Webperegrino]

Le Forum,
Bonjour Magic_Doctor,
Une piste, avec le fichier ci-joint ?
Webperegrino

 

[dysorthographie]

bonjour,
la particularité des range c'est qu'il commence toujours en A1.
c.range("A1") c'est en réalité range("c9")

donc

adress="c" & 8 +Range("C9:C108").Find("10").row

Si la recherche ne donne rien il faut prévoir une erreur.

 

[Webperegrino]

Le Forum,
Dysorthographique, Magic_Doctor,
En effet, la proposition de Dysorthographie est plus appropriée.
Voici une variante qui semble donner le bon résultat...
1 - Entrer le nombre recherché en cellule [C3]
2 - Cliquer sur le bouton Référence
3 - Le résultat s'affiche en cellule [C5].
Webperegrino

 

[nullosse]

Salut,
déjà tu parles de chiffres et tu cherches une chaîne ("10")
Sinon à tester :

Sub MonAdresse()
Dim c As Range
Set c = Range("C9:C108").Find(What:=10, _
LookIn:=xlValues, _
LookAt:=xlWhole)
If Not c Is Nothing Then
[J6] = c.Address
Else
[J6] = "Non trouvé"
End If
End Sub

Nullosse

 

[Magic_Doctor]

Bonjour Webperegrino, dysorthographie & nullosse,

Je viens d'essayer la solution de nullosse, ça marche très bien.

Merci et bonne fin de journée.