XL 2016 recopier VBA dans un autre fichier

shitoryu · 22 Février 2024

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.

patricktoulon · 23 Février 2024

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 · 26 Février 2024

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 · 26 Mars 2024

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.

shitoryu · 26 Mars 2024

cela n'arrive que quand je verrouille la page pour protéger les cellules avec les formules.

shitoryu · 27 Mars 2024

j'ai trouvé la réponse sur le forum :

XL 2016 - Erreur 1004 avec macro calendrier

Bonjour, Je suis nul en VBA et en Excel. Avec l'aide de "patricktoulon", j'ai installé son calendrier par glissé-déposé du UserForm "calendrier". Pour l'appel du calendrier, j'ai ajouté ce script dans la feuil1 (patricktoulon m'a encore aidé): Private Sub Worksheet_BeforeDoubleClick(ByVal...

excel-downloads.com

il suffit de cocher "format de cellule" lors de la protection et tout fonctionne à merveille.

shitoryu · 4 Avril 2024

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.

XL 2016 recopier VBA dans un autre fichier

shitoryu

XLDnaute Occasionnel

Pièces jointes

patricktoulon

shitoryu

XLDnaute Occasionnel

shitoryu

XLDnaute Occasionnel

Pièces jointes

shitoryu

XLDnaute Occasionnel

shitoryu

XLDnaute Occasionnel

XL 2016 - Erreur 1004 avec macro calendrier

shitoryu

XLDnaute Occasionnel

Pièces jointes

Discussions similaires