Chercher un contenu de cellule et affecter ses coordonnées

[herve62]

Bonsoir
Il m'est arrivé plusieurs fois à balayer des cellules dans un tableau ( boucle en VBA) à la recherche d'une valeur , lorsque celle-ci était trouvée , je voulais affecter à une variable ses coordonnées , ex: chercher "DUPONT" puis mettre dans une variable que cela se trouve en D10 donc par exemple cel_nom = "D10" afin de pouvoir m'en servir ensuite
Je n'ai pas trouvé d'instruction directe ( cel_nom = instruction VBA)
est-ce possible ? comment faire
Merci

Hervé

 

[Pierrot93]

Re : Chercher un contenu de cellule et affecter ses coordonnées

Bonsoir Herve

regarde peut être le code ci dessous, si cela peut t aider :

recherche dans la colonne A, à adapter

Sub Recherche()
Dim x As Range
Set x = Range("A:A").Find("Dupont", , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then MsgBox  x.Address
End Sub

Bonne soirée
@+

 

[herve62]

Re : Chercher un contenu de cellule et affecter ses coordonnées

Bonsoir Pierrot
Merci , cà à l'air de marcher , j'ai même essayé en ligne ( range(4:4) ) et j'ai affecté une variable qui affiche dans une cellule les coordonnees , c'est OK ex: dupont en F4 affiche
$F$4
je verrais dans mes appli. , reste peut-être à supprimer les "$"

A+
Hervé

 

[Pierrot93]

Re : Chercher un contenu de cellule et affecter ses coordonnées

Re Hervé

pour supprimer les $, utilises ainsi :

Then MsgBox  x.Address(0,0)

@+