Recupérer Target.row sur une range spécifiée

Bonjour,

J'ai écris un code qui lorque je fais un click droit sur une cellule un message affiche son contenu :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)   If Target.Value <> "" Then a = Target.value MsgBox (a) End If Cancel = True   End Sub

---

Dans l'idéal je voudrais que "a" soit égale a la position de la valeur dans une autre liste de données.

J'espère avoir été clair ... Merci de votre aide ! :)

Salut,

mets çà pour initialiser ta variable :

Code:

---

a = Application.WorksheetFunction.Match(Target.Value, Range("a:a"), 0)

---

Ici, j'utilise la fonction INDEX d'excel pour déterminer la position du contenu de la cellule dans la colonne A.

A adapter selon tes besoins.

Merci de votre réponse,

Cependant j''ai une erreur 1004
Impossible de lire la propriété Match de la classe worksheetFunction.

J'ai résolu mon problème grave a vous merci beaucoup je poste le code

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)   If Target.Value <> "" Then a = Application.WorksheetFunction.Match(Target.Value, Worksheets("Base de données").Range("AA:AA"), 0) MsgBox (a) End If Cancel = True   End Sub

---

Bonjour,

ce n'est pas équivalent à :

Code:

---

a=cells(target.value,"AA")

---

?
eric