Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 recopier VBA dans un autre fichier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

Dernière édition:
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
 
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
 
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. 😛
 
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
 
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
 
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

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

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
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
63
Réponses
10
Affichages
272
Réponses
4
Affichages
332
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…