Recherche adresse de cellule

Le 15/01/2018 à 00:21

Bonsoir le forum, bonsoir à tous,

Dans mon projet, la "Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)" me permet d'inscrire G et P

pour gagnants ou Perdants

Elle se trouve en "Feuil12(Concours)".

en cas d'erreur d'inscription je voudrais retrouver les adresses des cellules d'inscription en parties 2 concours et consolante,

afin de pouvoir les effacer également.

Quelqu'un peut-il m'aider SVP, car après plusieurs tentatives je n'y arrive toujours, pas.

Merci de votre aide.

Mon fichier joint:

11tirage-tat-complet-petouliers.xlsm (679.92 Ko)

Le 15/01/2018 à 09:24

Bonjour,

d'après votre code,

Select Case Target.Column
 Case 3:
    GagnantAdresse = Target.Address
    PerdantAdresse = Target.Offset(0, 4).Address
 Case 7:
    GagnantAdresse = Target.Address
    PerdantAdresse = Target.Offset(0, -4).Address
End Select

Le 15/01/2018 à 14:35

Bonjour sabV,

Merci pour ton code, qui fonctionne bien

Voici comment je l'ai entré dans mon code:

Dim GagnantAdresse As Range
Dim PerdantAdresse As Range
Select Case Target.Column
Case 3:
GagnantAdresse = Target.Address(offset(0,-1))
MsgBox GagnantAdresse
PerdantAdresse = Target.Offset(0, 4).Address
MsgBox PerdantAdresse
Case 7:
GagnantAdresse = Target.Address.offset (0,-1)
MsgBox GagnantAdresse
PerdantAdresse = Target.Offset(0, -4).Address
MsgBox PerdantAdresse
End Select

Mais il affiche l'adresse des cellules G ou P. cliquées dans la 1ère partie

ce que je cherche a avoir, c'est les adresses de transfert des noms et dans "Concours Partie N° 2" en vert pour les gagnants de la première

partie et en brun pour pour les perdants.

afin de pouvoir les effacer en cas de modification lors d'une erreur de saisie G, P par exemple...

en tout cas, merci encore...

Le 15/01/2018 à 23:40

Bonjour,

c'est Cells(RefG, "B").Address ou Cells(RefP, "i").Address