[RESOLU] Erreur d’exécution 13 - Calendar - Truc de ouf !

pierrejean

XLDnaute Barbatruc

• 2 Janvier 2016

• #2

Re : Erreur d’exécution 13 - Calendar - Truc de ouf !

Bonjour David

C'est ici que cela coince (dans Private Sub UserForm_Initialize() du Calendrier):

Me.ddj.Caption = IIf(ActiveCell = "", Date, ActiveCell)

Parce qu'aucune cellule n'est active

Une solution (entre autres ): Mettre immediatement au dessus :Range("A1").select

PS: Etre chauve n’empêche pas de réfléchir

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 2 Janvier 2016

• #3

Re : Erreur d’exécution 13 - Calendar - Truc de ouf !

Bonjour,
De passage je te joins la dernière MAJ du fichier avec une autogestion des fériés (fonction perso de boisgontierjacques).
La réponse de pierre jean est juste.

Leakim

Edit: fichier retiré, voir post #5

 

Dernière édition: 3 Janvier 2016

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 3 Janvier 2016

• #4

Re : Erreur d’exécution 13 - Calendar - Truc de ouf !

Merci à vous deux !
En effet PierreJean, je vois sur la photo de profil !!! 😱

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 3 Janvier 2016

• #5

Re : Erreur d’exécution 13 - Calendar - Truc de ouf !

Bonjour,
Je me suis dis que cela serait peut-être mieux de faire l'adaptation du calendrier à ton userform.

Pour ton erreur initiale: En cliquant sur n'importe qu'elle cellule, tu actives une cellule et le code insert la date dans une cellule active. En cliquant directement dans ta textbox, tu n'actives pas de cellule, d'où le bug. Avec l'adaptation cela devrait roulé.

A me redire.

Leakim

Edit: A toute fin utile je mets le fichier source

 

Pièces jointes

• Version V1.2 (leakim).xlsm

  51.5 KB · Affichages: 45
• tatiak calendar - NumSEM forum.xlsm

  43.9 KB · Affichages: 51
• tatiak calendar - NumSEM forum.xlsm

  43.9 KB · Affichages: 55

Dernière édition: 3 Janvier 2016

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 3 Janvier 2016

• #6

Re : Erreur d’exécution 13 - Calendar - Truc de ouf !

Merci Leakim

Impeccable pour l'autogestion des fériés

 

Vote positif 0 Vote négatif