XL 2019 lancer macro via double click selon colonne

[juju91]

Bonjour,

Apriori j'arrive à lancer une macro via un double click.
Mais je souhaiterais lancer deux macro l'une apres un double click dans une des cellules de la colonne A et une autre Macro si la celulle est dans la colonne B.
J'ai commencer mon code en nomment la colonne voir ci-dessous .

Est est qu'une bonne âme peut m'aider?? est ce que je suis sur le bon chemin?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("VALIDE")) Is Nothing Then Exit Sub
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Cancel = True
End Sub

Par avance merci

 

[Jacky67]

Bonjour,

Apriori j'arrive à lancer une macro via un double click.
Mais je souhaiterais lancer deux macro l'une apres un double click dans une des cellules de la colonne A et une autre Macro si la celulle est dans la colonne B.
J'ai commencer mon code en nomment la colonne voir ci-dessous .

Est est qu'une bonne âme peut m'aider?? est ce que je suis sur le bon chemin?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("VALIDE")) Is Nothing Then Exit Sub
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Cancel = True
End Sub

Par avance merci

Bonjour,
Que doivent faire ces deux macros ?
Un classeur avec quelques explications serait sans doute un supplément de chance pour une réponse.

 

[juju91]

Bonjour et merci de passer un peu de temps sur mon problème.
En fait, j'ai nommé une plage de cellule ''REFUSE '' de I17:I3000 avec le code donné dans mon premier échange avec un double click sur une des cellules de la plage, un ''X'' vient remplir la cellule active.
Maintenant et c'est la que j'ai un problème, je souhaiterais pouvoir faire un double click sur la plage nommé "VALIDE" de de B17:B3000 et qu'il s'inscrive ''OUI" dans la cellule active puis que dans la cellule droite de la même ligne vienne s'inscrire la date du jour mais il faudrait qu'elle soit fiché..
je me doute que c'est beaucoup demandé.
Par avance encore merci de votre aide.

 

[Jacky67]

Bonjour et merci de passer un peu de temps sur mon problème.
En fait, j'ai nommé une plage de cellule ''REFUSE '' de I17:I3000 avec le code donné dans mon premier échange avec un double click sur une des cellules de la plage, un ''X'' vient remplir la cellule active.
Maintenant et c'est la que j'ai un problème, je souhaiterais pouvoir faire un double click sur la plage nommé "VALIDE" de de B17:B3000 et qu'il s'inscrive ''OUI" dans la cellule active puis que dans la cellule droite de la même ligne vienne s'inscrire la date du jour mais il faudrait qu'elle soit fiché..
je me doute que c'est beaucoup demandé.
Par avance encore merci de votre aide.

Re
La plage nommée "VALIDE" de B17:B3000 ==>serait "C19:Cx"
La plage nommée "REFUSE de i17:i3000 ==> serait "i19:ix"
Confirmation SVP

Sinon, dans le module de la feuille en question (avec les modif. ci-dessus)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, [valide]) Is Nothing Then
        Target = IIf(Target = "Oui", "", "Oui")
        Target.Offset(, 2) = IIf(Target = "Oui", Date, "")
    End If
    If Not Intersect(Target, [refuse]) Is Nothing Then
        Target = IIf(Target = "X", "", "X")
    End If
End Sub

ps: Il y a beaucoup de code dans ce module qui (sauf erreur) n'ont rien à y faire.