J
Je débute
Guest
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
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