Erreur de compilation VBA

Fermé
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 - Modifié le 27 mars 2018 à 21:04
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 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 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 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