Je ne trouve pas ça drôle.encore oups LOL
(NB: extrait d'un post puisé dans la discussion de l'autre forum)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
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
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 macroAh ok joindre un fichier protégé avec une macro qui beugue sans même le signaler ça me dépasse.
c'est fait merciRe,
@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
(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...
https://www.excel-downloads.com/threads/recherche-date-du-jour.20025479/
il me renvoie a1:ar473 mais quand j'imprime il me manque la colonne 5Sub 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
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