XL 2016 recopier VBA dans un autre fichier

shitoryu

XLDnaute Occasionnel
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.
 

Pièces jointes

  • avec calendrier.xlsm
    598.5 KB · Affichages: 7
  • sans calendrier.xlsx
    43.4 KB · Affichages: 4
Solution
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

shitoryu

XLDnaute Occasionnel
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

patricktoulon

XLDnaute Barbatruc
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
 

Pièces jointes

  • sans mais si calendrier.xlsm
    103 KB · Affichages: 4
Dernière édition:

shitoryu

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

shitoryu

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

patricktoulon

XLDnaute Barbatruc
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
demo.gif
 

patricktoulon

XLDnaute Barbatruc
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
 

shitoryu

XLDnaute Occasionnel
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

shitoryu

XLDnaute Occasionnel
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

Discussions similaires

Statistiques des forums

Discussions
313 274
Messages
2 096 754
Membres
106 739
dernier inscrit
jcdu16