Discussion :

[pagesalex]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[jerome.vaussenat]

Salut,

mets çà pour initialiser ta variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pagesalex]

Merci de votre réponse,

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

[pagesalex]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

Bonjour,

ce n'est pas équivalent à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?
eric