Erreur de compilation VBA

Remi2236 Messages postés 89 Statut Membre -  
michel_m Messages postés 18903 Statut Contributeur -
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 18903 Statut Contributeur 3 318
 
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 15479 Statut Modérateur 366
 
Tes 2 Sub portent le même nom, normal que ça lui pose problème.
0
Rmi
 
C'est ce que j'avais compris :D mais du coup commet faire pour que cela fonctionne ?
0
NHenry Messages postés 15479 Statut Modérateur 366
 
Tu veux faire quoi ?
0
Rmi
 
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