erreur dans code vba pour lancer 2 usf

[pascal21]

 If Intersect(Target, Columns("c")) Is Nothing Or Target.Count > 1 Then Exit Sub 'calendrier
UserForm1.Show 0 'calendrier
If Intersect(Target, Columns("d")) Is Nothing Or Target.Count > 1 Then Exit Sub
usfévenemments.Show 0

bonjour à tous
j'ai utilisé ce code pour afficher 2 usf différents en fonction de la colonne utilisée
mais tel quel, ça ne fonctionne pas
j'ai juste userform1 qui se lance si je clic sur une cellule de la colonne C
je pense qu'il s'agit d'une erreur de syntaxe mais je ne sais pas quoi modifié
pouvez-vous m'aider
merci

 

[MJ13]

Re : erreur dans code vba pour lancer 2 usf

Bonjour Pascal

Il me semble que l'on ne peux pas ouvrir 2 USFs en Modal false.

 

[pascal21]

Re : erreur dans code vba pour lancer 2 usf

bonjour mj13
en fait userform1 se ferme lors d'un clic avant d'activer la cellule colonne D

 

[MJ13]

Re : erreur dans code vba pour lancer 2 usf

Re

usfévenemments.Show 0

Tu es sur qu'il s'appelle ainsi.

Sinon, fait des tests en supprimant le modale 0 et en utilisant soit hide ou unload.

 

[MJ13]

Re : erreur dans code vba pour lancer 2 usf

Re, Bonjour Jean-Marcel

Il est très difficile avce les uSFS de deviner les problèmes sans fichier.

Mais j'aurai du demander le file sinon cela peut durer jusqu'au 1er janvier 😉.

 

[pascal21]

Re : erreur dans code vba pour lancer 2 usf

bonjour et merci pour votre aide
jean marcel tu as bien deviné ou était l'erreur
j'ai vu dans le code le exit sub qui devait posé le problème, mais je ne savais pas comment le ré-écrire correctement
joyeux noêl à tous