XL 2016 recopier VBA dans un autre fichier

fanfan38

XLDnaute Barbatruc

• 22 Février 2024

• #2

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

 

Pièces jointes

• sans calendrier.xlsm

  76.8 KB · Affichages: 7

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 23 Février 2024

• #3

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

 

Pièces jointes

• avec calendrier (sans protection).xlsm

  105.8 KB · Affichages: 3
• sans calendrier.xlsx

  43.2 KB · Affichages: 2

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2024

• #4

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

 

Pièces jointes

• sans mais si calendrier.xlsm

  103 KB · Affichages: 4

Dernière édition: 23 Février 2024

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 23 Février 2024

• #5

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2024

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 23 Février 2024

• #7

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. 😛

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 23 Février 2024

• #8

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2024

• #9

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

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 23 Février 2024

• #10

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2024

• #11

ok avec ça tu n'auras plus ce soucis

VB:

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

 

Vote positif 0 Vote négatif

Solution

S

shitoryu

XLDnaute Occasionnel

• 23 Février 2024

• #12

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

 

Pièces jointes

• Tableau mensuel.xlsm

  92.2 KB · Affichages: 2

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Février 2024

• #13

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

 

Pièces jointes

• Tableau mensuel.xlsm

  93.7 KB · Affichages: 0

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Février 2024

• #14

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)...

 

Pièces jointes

• vba tableau mensuel.jpg

  231.8 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Février 2024

• #15

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

 

Vote positif 0 Vote négatif