XL 2016 recopier VBA dans un autre fichier

[shitoryu]

Bonjour,
Je galère un peu. Je n'arrive pas à recopier une VBA dans un autre fichier.
C'est un calendrier automatique qui a été intégré dans la colonne B (du fichier *avec calendrier*) qu'il faudrait insérer dans les colonnes E, F, K et L (de l'onglet 2 du fichier *sans calendrier*).
Une âme charitable pourrait m'aider ?

en vous remerciant énormément !

S.

 

[fanfan38]

Bonjour
Avec calendrier etant protegé je n'ai pas réussi à me servir de ce fichier...
Mais j'ai fait le même....

A+ François

 

[shitoryu]

super, merci pour cette présentation très intéressante.
Je vous redonne mon fichier (sans la protection, je ne comprends pourquoi il était protégé, j'ai dû faire une mauvaise manipulation).
Comme c'est pour un usage avec plusieurs services (qui utilise déjà le calendrier), vous pourriez me l'intégrer à mon tableau ? Ce serait vraiment super sympa !
Un très grand merci

 

[patricktoulon]

Bonjour
intégré dans ton fichier
pour info il y a eu plusieurs mises a jour depuis cette version de mon calendar
notamment le skinner qui te permet de lui donner le look que tu veux

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal

Bonjour a tous voici ma dernière version de mon calendrier all excel version Une video très courte en bas dette présentation vous montre comment j'installe le calendar de mon fichier dans un autre fichier une autre video dans les mises a...

excel-downloads.com

 

[shitoryu]

Cool, merci !!!
j'ai l'impression d'un petit bug. Le calendrier s'affiche maintenant avec le clic droit. Par contre impossible de faire un clic droit sur les autres cellules (celles qui ne sont pas concernées par le calendrier). Un pb avec mon ficher ?
merci encore

 

[patricktoulon]

re
mille excuses
non c'est moi qui ai mi le cancel au mauvais endroit
dans le module de ta feuille concernée

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("E:F,L:K"), Target) Is Nothing Then
Target.Value = Calendar.ShowX(Target, 2, 0, 1)
Cancel = True
End If
End Sub

 

[shitoryu]

excel est quand un logiciel remarquable. Ca fonctionne parfaitement maintenant. Un grand merci. Quand je vois le texte, c'est quand même pas simple...
je viens de faire des essais un peu dans tous les sens, je me rends compte qu'il vaudrait mieux le clic droit au lieu du gauche pour afficher le calendrier (pour pouvoir changer le format des cellules par exemple avec clic droit). Naïvement j'ai changer Right par Left... mais ce n'est pas ok.

 

[shitoryu]

je suis dyslexique... clic gauche au lieu du droit

 

[patricktoulon]

re
je t'ai mi le click droit moi
tout les autres colonnes auront le menu contextuel au click droit
tout les app windows si tu regarde bien fonctionnent comme ca
click droit= menu ou question
click gauche=reponse ou ok ou select

 

[shitoryu]

En effet cela fonctionne, mais si on sélectionne une ligne entière, avec le clic droit pour ajuster la taille cela affiche le calendrier.

 

[patricktoulon]

ok avec ça tu n'auras plus ce soucis

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("E:F,L:K"), Target) Is Nothing and target.count=1 Then
Target.Value = Calendar.ShowX(Target, 2, 0, 1)
Cancel = True
End If
End Sub

 

[shitoryu]

Perfect !!! c'est vraiment top.
(quand je présente mes tableaux aux équipes j'explique bien sûr que je n'ai pas fait ça tout seul ! et je fais la pub du site évidemment).

j'aurai encore une dernière demande (et pas la plus simple). Dans l'onglet 1, il faudrait qu'en écrivant le mois A1 et l'année B1 que cela compte les jours ouvrés de la semaine en G2 à N2...
Rien de simple.
Si c'est pas possible, on fera ça à la main !
merci encore

 

[shitoryu]

Bonjour, j'ai fait des petites corrections à mon tableau.
Je n'aurais besoin "que" du calcul du nombre de jours identiques par semaine (G2 à N2) en fonction des mois de l'année (A2 et B2). Je n'ai absolument pas besoin du calcul des jours fériés (comme c'est comptable, le contrôle doit être fait à la main).
Merci encore à ceux qui m'ont déjà grandement aidé !
Je sais que c'est compliqué, merci pour votre temps.
belle journée

 

[shitoryu]

certainement une question très idiote mais quand je veux visualiser le code, la feuille avec le code du calendrier ne s'affiche plus (mais tout fonctionne quand même)...

 

[patricktoulon]

ben je la vois pas la fenêtre code dans ta capture
sur le nom calendar a gauche click droite et choisi "code"