Bonjour,
J'ai un code ou je ne sais pas quoi faire, suite au message:
"Nom ambigue détecté : Worksheet_change"

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$5" Then Exit Sub
  Select Case Clic
    Case 1: [B7] = Target
    Case 2: [B9] = Target
    Case 3: [B11] = Target
  End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$D$5" Then Exit Sub
  Select Case Clic2
    Case 4: [D7] = Target
    Case 5: [D9] = Target
    Case 6: [D11] = Target
  End Select
End Sub

Que dois-je faire pour que ça fonctionne ,
Merci de votre aide.
Poppy

Bonjour Poppy, le Forum,

Citation :
Heu non, je ne crois pas que ça puisse être la seule solution à ton problème Poppy...
Si tu supprimes simplement "Exit Sub" de tes procédures, il va te manquer un "End If" dans chacune d'elle et tu obtiens une erreur.

Cela dit, si tes 2 procédures ci-dessus sont dans le même module de code private (donc la même feuille), il ne faut pas chercher plus loin : tu ne peux pas avoir 2 procédures du même nom dans un même module.
2 évènements « Private Sub Worksheet_Change() » pour une même feuille (Worksheet) : c'est impossible.

Il te faut concaténer les traitements dans une seule et même procédure évènementielle « Private Sub Worksheet_Change() », quelque chose dans le style :


Cordialement,

Nb: prière d'utiliser le bouton d'insertion de code VBA dans tes posts, STP.

Bonjour,
Merci de vos réponses
Cordialement
Poppy