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
ah oui.... c'est bien ce que je disais, c'était une question bête (et maintenant je le suis moins ;)). tout s'affiche correctement.
Est-ce que tu penses possible d'avoir un calcul du nombre des jours identiques par semaine (de 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.
Un grand merci pour tout !
 

shitoryu

XLDnaute Occasionnel
bonsoir,
je reprends le sujet, je viens d'avoir un bug avec le calendrier. Le débogage renvoie à la ligne en rouge :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("f:g,L:M"), Target) Is Nothing And Target.Count = 1 Then
Target.Value = Calendar.ShowX(Target, 2, 0, 1)
Cancel = True
End If
End Sub

En copie le code erreur. Cela se produit quand je veux choisir une date (le calendrier s'ouvre normalement).
Vous auriez une idée ? j'ai peut-être fait une boulette.

merci à vous,
S.
 

Pièces jointes

  • Sans titre.png
    Sans titre.png
    5.5 KB · Affichages: 4

shitoryu

XLDnaute Occasionnel
j'ai trouvé la réponse sur le forum :
il suffit de cocher "format de cellule" lors de la protection et tout fonctionne à merveille.
 

shitoryu

XLDnaute Occasionnel
bonjour,
Je cherche à ajouter le calendrier dans une autre colonne.
ce que j'ai essayé de faire ne fonctionne évidemment pas... (mais je progresse doucement...).
je vous l'intégrer dans A4-A1000 de l'onglet 2.
Merci beaucoup !
S.
 

Pièces jointes

  • tableau des heures (formules).xlsm
    201.5 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
314 708
Messages
2 112 090
Membres
111 416
dernier inscrit
philipperoy83