Bonjour à tous,
Je suis en train de construire un tableau correspondant à un planning mensuel qui se ferai automatiquement, avec 1 jour correspondant a deux colonnes.
J'utilise le code suivant:
Sheets('Etat initial').Select
Range( _
'B9:C9,B10:C10,B11:C11,B12:C12,B13:C13,B14:C14,B15:C15,B16:C16,B17:C17,B18:C18,B19:C19,B20:C20,B21:C21,B22:C22,B23:C23,B24:C24,B25:C25,B26:C26,B27:C28,B29:C29,B30:C30' _
).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Range( _
'D3:E3,D4:E4,D5:E5,D6:E6,D7:E7,D8:E8,D9:E9,D10:E10,D11:E11,D12:E12,D13:E13,D14:E14,D15:E15,D16:E16,D17:E17,D18:E18,D19:E19,D20:E20,D21:E21,D22:E22' _
).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Ce code correspond au codage de 2 jours (4 colonnes) et a 19 lignes.
Je dois recopier la même chose pour arriver a 31 jours (62 colonnes).
Puis je trouver une formule qui me permettrai de faire la même chose mais de le coder plus rapidement?
D'autre part je suis ici limité a 19 lignes, puis je faire varier automatiquement le nombre de lignes en fonction d'une liste de noms dans une autre feuille?
Je vous remercie