Message "Erreur de compilation"

[thomasdu43]

Bonjour,

J'ai cette erreur (cf. fichier joint). Pouvez vous m'indiquer comment résoudre ce pb.

Merci.
Cdt.

 

[Tentative]

Re : Message "Erreur de compilation"

Bonjour,

Tu as deux fois le même nom de macro ... d'où le message d'erreur.

Private Sub Worksheet_SelectionChange ........


Tentative

 

[Dranreb]

Re : Message "Erreur de compilation"

Bonjour,
Et pour le résoudre, mettre avant la End If de la 1ère Sub :

ElseIf Target.Address = "$J$1" Then

puis le reste du code de la 2ième.

 

[thomasdu43]

Re : Message "Erreur de compilation"

Merci Tentative

 

[thomasdu43]

Re : Message "Erreur de compilation"

Merci Dranreb mais cela ne résoud pas mon problème.

 

[Roland_M]

Re : Message "Erreur de compilation"

bonsoir,

mais 'Tentative' a raison ! le message c'est bien deux fois le même nom de macro
> Private Sub Worksheet_SelectionChange . . .

il ne peut y en avoir qu'une seule !
point final !

 

[thomasdu43]

Re : Message "Erreur de compilation"

Bonsoir Roland_M,

Je ne le conteste pas !! d'ailleurs je remercie Tentative !
La solution de Danreb par contre ne fonctionne pas.
Avez vous une proposition ?

Cdt.

 

[Roland_M]

Re : Message "Erreur de compilation"

re

EDIT: Dranreb à raison mais tu dois mal t'y prendre

si déjà tu mettais la partie de code que tu as sur l'image ça éviterait de devoir tout ce retaper !

 

[thomasdu43]

Re : Message "Erreur de compilation"

Passe ton chemin l'aigri.
Il y a une façon de demander les choses et un minimum de politesse à avoir.

 

[Dranreb]

Re : Message "Erreur de compilation"

La solution de Danreb par contre ne fonctionne pas.

Si. C'est obligatoire que ça marche, après suppression de la 2ième procédure, bien évidemment, puisqu'il faut d'abord reproduire le code qui est derrière sa If Target etc. derrière la ElseIf Target etc. de la 1ère.

 

[Roland_M]

Re : Message "Erreur de compilation"

re

d'abord je ne vois pas où je suis impoli !? par contre toi oui !
monsieur est susceptible ? je pourrais tout aussi bien te répondre va te coucher Trou D. C.

mais comme j'en ai déjà vu d'autres, à 70 balais, tu n'es pas le premier T.D.C que je croise !

et comme je suis bon prince, voici tout même la solution
je te signale, au passage, que le calendrier cellule est de moi (merci Roland)

'dans le sub d'en bas, soit le 2'Sub Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$J$1" Then
   'ici ce que tu as dans le deuxième sub en bas
   '...
   
   
   'puis tu rajoutes ceci
ElseIf Not Intersect([C8, B58], Target) Is Nothing Then
   fm_CalendrierCellule.Show
End If
End Sub