Erreurs de compilations Nom ambigu détecté: Worksheet_BeforeDoubleClick !

[tompouss9]

Bonjour!

Je développe un base de données!(voir PJ)
J'ai mis en place un Userform pour choisir plusieurs cépages!
Je souhaite pouvoir choisir les cépages et les voir s'ajouter dans une liste. d'ou mon "TextBox"!
C'est plus simple car souvent il y a 10/+ cépages et ça évite de ce tromper.


Mais j'ai rencontré plusieurs problèmes:

-J'ai deux Userform sur la feuille "New" et j'ai ce message d'erreur!
"Erreurs de compilations Nom ambigu détecté:Worksheet_BeforeDoubleClick"

-Deuxièmement, j'ai eu un résultat que je trouve pas très esthétique avec le lancement de mon userform actuelle, avant l'erreur de compilation!:"Bourboulenc & Bukettraube & Chardonnay & Chenel & Cinsaut Blanc"
Je souhaite pouvoir consulter les cépages sous forme de liste sur feuille "new" et "consulting"!

Voila voila! Je sais pas si c'est facile à faire!

Je vous joins le dossier!

Merci

Thomas

 

[mikachu]

Re : Erreurs de compilations Nom ambigu détecté: Worksheet_BeforeDoubleClick !

salut !

Normalpour le nom ambigue, tu as deux macros beforedoubleclick dans la même feuille...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$4" Then
    Target.Value = ""
    Load UserFormRegion
    UserFormRegion.Show
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$35" Then
    Target.Value = ""
    Load whitegrape
    whitegrape.Show
End If
End Sub

à remplacer par

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$4" Then
    Target.Value = ""
    Load UserFormRegion
    UserFormRegion.Show
End If
If Target.Address = "$C$35" Then
    Target.Value = ""
    Load whitegrape
    whitegrape.Show
End If
End Sub

Pour le reste, pas compris ce que tu veux...

 

[Dull]

Re : Erreurs de compilations Nom ambigu détecté: Worksheet_BeforeDoubleClick !

Salut tompouss9, le Forum

Tu ne peux pas avoir 2 x le même événementiel dans le même Module

il faut les regrouper

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$4" Then
    Target.Value = ""
    Load UserFormRegion
    UserFormRegion.Show
End If
If Target.Address = "$C$35" Then
    Target.Value = ""
    Load whitegrape
    whitegrape.Show
End If
End Sub

EDITION: Bing... Salut mikachu🙂

Bonne Journée

 

[tompouss9]

Re : Erreurs de compilations Nom ambigu détecté: Worksheet_BeforeDoubleClick !

Salut Mikachu, salut Dull!

Merci pour vos réponses!

Maintenant, je souhaite voir avant validation chaque cépages sélectionnés par un clic dans ma ListBox2 " grape select"!

Private Sub ListBox1_Click()
ListBix2.Value = ListBox1.Value
End Sub

Mais rien n’apparaît!😕

 

[mikachu]

Re : Erreurs de compilations Nom ambigu détecté: Worksheet_BeforeDoubleClick !

Pour test

J'ai retiré le multiselect de la listbox1
clic sur listbox1 pour sélectionner dans listbox2
double clic sur listbox2 pour supprimer l'item

clic sur valider pour ajouter l'ensemble des éléments de la listbox2

 

[tompouss9]

Re : Erreurs de compilations Nom ambigu détecté: Worksheet_BeforeDoubleClick !

Merci Mikachu,

C'est juste parfait!

Thomas