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
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 !
 
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
j'ai trouvé la réponse sur le forum :
il suffit de cocher "format de cellule" lors de la protection et tout fonctionne à merveille.
 
- 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
91
  • Question Question
Microsoft 365 macro TCD
Réponses
4
Affichages
118
Réponses
10
Affichages
299
  • Question Question
Microsoft 365 Traitement
Réponses
7
Affichages
84
Réponses
4
Affichages
368
Retour