Message "Erreur de compilation"

T

Tentative

XLDnaute Occasionnel

• 16 Novembre 2015

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Novembre 2015

• #3

Re : Message "Erreur de compilation"

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

VB:

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

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

 

Vote positif 0 Vote négatif

T

thomasdu43

XLDnaute Occasionnel

• 16 Novembre 2015

• #4

Re : Message "Erreur de compilation"

Merci Tentative

 

Vote positif 0 Vote négatif

T

thomasdu43

XLDnaute Occasionnel

• 16 Novembre 2015

• #5

Re : Message "Erreur de compilation"

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 16 Novembre 2015

• #6

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 !

 

Dernière édition: 16 Novembre 2015

Vote positif 0 Vote négatif

T

thomasdu43

XLDnaute Occasionnel

• 16 Novembre 2015

• #7

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.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 16 Novembre 2015

• #8

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 !

 

Dernière édition: 16 Novembre 2015

Vote positif 0 Vote négatif

T

thomasdu43

XLDnaute Occasionnel

• 16 Novembre 2015

• #9

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Novembre 2015

• #10

Re : Message "Erreur de compilation"

La solution de Danreb par contre ne fonctionne pas.

Cliquez pour agrandir...

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.

 

Dernière édition: 16 Novembre 2015

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 16 Novembre 2015

• #11

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)

Code:

'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

 

Dernière édition: 15 Janvier 2016

Vote positif 0 Vote négatif