Erreur de compilation VBA

Fermé
Remi2236 Messages postés 82 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 9 août 2022 - Modifié le 27 mars 2018 à 21:04
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 28 mars 2018 à 08:44
Bonjour,

J'ai un souci de compilation sur VBA. J'ai fait un tableau Excel et sur une feuille je veux que lorsque l'on double clique sur une certaine range cela fasse apparaître un Userform et que sur cette même feuille, lorsque l'on double clique sur une range différente, cela fasse apparaître un autre Userform. Mon code est celui-ci mais lorsque je teste ça me marque "erreur de compilation, nom ambigu détecté" :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("c2 : c3627")) Is Nothing Then UserForm_SelectionCategories.Show
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("h2 : h3627")) Is Nothing Then UserForm_Motifs.Show
End Sub

Si quelqu'un a une solution je suis preneur :) J'ai tenté de chercher mais rien trouvé qui ne réponde à ma question. En vous remerciant par avance du temps que vous m'accorderez.

Cordialement,


Rémi

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

2 réponses

michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 3 291
28 mars 2018 à 08:44
Bonjour

Tu mets les 2 lignes "if not intersect.... " dans un seul doubleclic et tu supprimes l'autre double clic
1
NHenry Messages postés 15047 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mars 2023 331
27 mars 2018 à 21:19
Tes 2 Sub portent le même nom, normal que ça lui pose problème.
0
C'est ce que j'avais compris :D mais du coup commet faire pour que cela fonctionne ?
0
NHenry Messages postés 15047 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mars 2023 331
27 mars 2018 à 21:31
Tu veux faire quoi ?
0
Que si je double clique sur la range (c2:c3627) ça m'ouvre le userform sélection _catégories et si je double clique sur la range (h2:h3627) ça m'ouvre le userform motifs mais sur la même feuille
0