probleme impression bouton

judoka0209

XLDnaute Occasionnel
Bonjour,
j'ai un problème d'impression sur mon bouton il me prend que les 4 premières colonnes au lieu de 5
merci
 

Pièces jointes

  • Planning_ep.xlsm
    207.6 KB · Affichages: 22

Staple1600

XLDnaute Barbatruc
Re,

@job75
C'est pas vraiment étonnant que le code puisse beuguer si on se réfère à la méthodologie employée par judoka/chris45
ah ok je pense que si l'on vient sur les forums avec des codes parfait on aurait pas besoin d'aide
pour ma par j'ai énormément de mal à déjà faire simple alors je prends un bout la un bout par ici et j'essaie de me démerder comme je peux alors si il est pas super formalisé c'est normal
(NB: extrait d'un post puisé dans la discussion de l'autre forum)

@judoka0209
J'attends toujours des tes nouvelles dans cette discussion que tu as initiée...:rolleyes:
https://www.excel-downloads.com/threads/recherche-date-du-jour.20025479/
 

Staple1600

XLDnaute Barbatruc
Re


J'ai beau chercher (ou alors un truc m'échappe?) mais je ne comprends pas cette histoire de 4 ou 5 colonnes
Code:
Sub test()
'reprise du code initiale juste pour tester la plage renvoyée
Dim sem&, cel As Range
sem = CLng(Format(Date, "ww", 1, 1))
With ActiveSheet
  MsgBox .Cells(1, 1).Resize(.UsedRange.Rows.Count, 3 + sem + 12).Address
  Set cel = .Cells(1, ActiveWindow.SplitColumn + sem)
  MsgBox cel.Address
  'judoka0209: pourquoi pas simplement ?
  sem = CByte(Format(Date, "ww", 1, 1)) + 15
  MsgBox Cells(1, 1).Resize(.UsedRange.Rows.Count, sem).Address
End With
End Sub

EDITION: Je me pose les même questions que MFerrand sur l'autre forum
 

judoka0209

XLDnaute Occasionnel
Ah ok joindre un fichier protégé avec une macro qui beugue sans même le signaler ça me dépasse.
desolé mais le faite que cela bug c'est normal puisque j'ai un fichier est sur le reseau entreprise que je ne peux pas mettre et je pensais avoir retiré la protection de la macro
mais pour mon probleme c'est juste le bouton imprime de ce fichier qui merde, donc le reste qui plante ce n'est pas grave puisqu'en reseau cela fonctionne correctement
merci
 
Dernière édition:

judoka0209

XLDnaute Occasionnel

judoka0209

XLDnaute Occasionnel
Sub test()
'reprise du code initiale juste pour tester la plage renvoyée
Dim sem&, cel As Range
sem = CLng(Format(Date, "ww", 1, 1))
With ActiveSheet
MsgBox .Cells(1, 1).Resize(.UsedRange.Rows.Count, 3 + sem + 12).Address
Set cel = .Cells(1, ActiveWindow.SplitColumn + sem)
MsgBox cel.Address
'judoka0209: pourquoi pas simplement ?
sem = CByte(Format(Date, "ww", 1, 1)) + 15
MsgBox Cells(1, 1).Resize(.UsedRange.Rows.Count, sem).Address
End With
End Sub
il me renvoie a1:ar473 mais quand j'imprime il me manque la colonne 5
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum, judok0209, job75

@judoka0209
Quand on veut tester un code VBA, on peut utiliser des MsgBox
VB:
Sub test_plages()
Dim rng As Range, cel As Range, Zone As Range, sem As Byte
ActiveSheet.Unprotect Password:=("aps2018")
sem = CByte(Format(Date, "ww", 1, 1))
' Cellule semaine actuelle
ActiveWindow.SplitColumn = 3
ActiveWindow.SplitRow = 5
Set cel = ActiveSheet.Cells(1, ActiveWindow.SplitColumn + sem)
Set Zone = Cells(1, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 3 + sem + 12)
MsgBox cel.Address 'pour test
' Zone d'impression
MsgBox Zone.Address 'pour test
ActiveSheet.PageSetup.PrintArea = Zone.Address
' Masquer les lignes inutiles
MsgBox cel.Offset(0, 0 - sem).Resize(1, sem - 1).Address 'pour test
cel.Offset(0, 0 - sem).Resize(1, sem - 1).EntireColumn.Hidden = True
ActiveSheet.PrintPreview
End Sub
Donc si tu fais les tests sur ton PC, les plages affichées dans les MsgBox sont-elles les bonnes ?

[aparté]
Pourquoi tu ne préviens pas quand tu poses ta question sur plusieurs forum?
Et pourquoi ne pas mettre un lien ?
Tu as cliqué sur le lien du message#4, celui où il y a l'étoile ?
[/aparté]
 

Discussions similaires

Réponses
2
Affichages
100

Statistiques des forums

Discussions
311 705
Messages
2 081 724
Membres
101 804
dernier inscrit
chefTarik