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 !
Je ne trouve pas ça drôle.
(NB: extrait d'un post puisé dans la discussion de l'autre forum)
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 Subdesolé 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
c'est fait merci
il me renvoie a1:ar473 mais quand j'imprime il me manque la colonne 5
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
