Staple1600
XLDnaute Barbatruc
Bonsoir le forum
Je bute sur un petit souci de mise en forme par VBA
(Centrage sur plusieurs colonnes)
Dans le classeur joint , après l'éxécution de la macro creation
(au passage je suis preneur de tout conseil d'amélioration de cette macro)
je voudrais centrer les numéros de semaine sur plusieurs colonnes
(du Lundi au Dimanche) et ce sur sur les 12 feuilles.
En sachant que pour la première semaine du mois
parfois le centrage doit se faire sur moins de 7 colonnes
(ex février 2008 Semaine 6).
Merci à tous ceux qui voudront s'intéresser à ce petit problème
(que jusqu'à maintenant je résouds manuellement sous VBA)
edit:
Sub Macro1()
'testé sur le mois de février
For Each cell In Range("C19:AE19")
If Not IsEmpty(cell) Then
Range(cell, cell.Offset(0, 7)).HorizontalAlignment = xlCenterAcrossSelection
Range(cell, cell.Offset(0, 7)).VerticalAlignment = xlCenter
End If
Next cell
End Sub
Avec la macro ci-dessus j'ai des soucis pour la dernière semaine du mois de février
(anneé testée 2008)
Bonne soirée
Staple
Je bute sur un petit souci de mise en forme par VBA
(Centrage sur plusieurs colonnes)
Dans le classeur joint , après l'éxécution de la macro creation
(au passage je suis preneur de tout conseil d'amélioration de cette macro)
je voudrais centrer les numéros de semaine sur plusieurs colonnes
(du Lundi au Dimanche) et ce sur sur les 12 feuilles.
En sachant que pour la première semaine du mois
parfois le centrage doit se faire sur moins de 7 colonnes
(ex février 2008 Semaine 6).
Merci à tous ceux qui voudront s'intéresser à ce petit problème
(que jusqu'à maintenant je résouds manuellement sous VBA)
edit:
Sub Macro1()
'testé sur le mois de février
For Each cell In Range("C19:AE19")
If Not IsEmpty(cell) Then
Range(cell, cell.Offset(0, 7)).HorizontalAlignment = xlCenterAcrossSelection
Range(cell, cell.Offset(0, 7)).VerticalAlignment = xlCenter
End If
Next cell
End Sub
Avec la macro ci-dessus j'ai des soucis pour la dernière semaine du mois de février
(anneé testée 2008)
Bonne soirée
Staple
Dernière édition: