Comment aligner et centrer des colonnes avec la meme Macro

[baguidi]

Bonjour le Forum,
Je viens respectueusement demander au forum de regarder un peu vers ma préoccupation qui semble me mettre hors de moi .
Je voudrais que ma macro ALIGNE à GAUCHE les données de la colonne A et celle des colonnes D et E. Dans le même temps cette macro devra CENTRER les données des colonnes H, I, J, K et L
j'y ai mis un Bouton pour exécuter la macro
Merci le forum

 

[bika]

Re : Comment aligner et centrer des colonnes avec la meme Macro

Bonjour baguidi

le problème vient de tes cellules fusionnées,Excel considère qu'elles appartiennent à plusieurs colonnes et écrase donc tes alignements à chaque instruction. Il est en général préférable de ne pas fusionner et de centrer sur plusieurs colonnes (clic droit, format, alignement, horizontal, centrer sur plusieurs colonnes ou en vba "HorizontalAlignment = xlCenterAcrossSelection").

 

[Staple1600]

Re : Comment aligner et centrer des colonnes avec la meme Macro

Bonjour à tous


Je plussoie à ce que je viens de dire bika
Néanmoins voici une macro qui fait un bout du job (et ce péniblement 😉 )

Sub Arrrrrghhhhhhhhhhhh()
Dim col, c As Range, i&
col = Array(1, 4, 5, 8, 9, 10, 11, 12)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = LBound(col) To UBound(col)
For Each c In Columns(col(i)).Cells
If Len(c) > 0 Then
If c.MergeCells = False Then
    Select Case col(i)
    Case 1, 4, 5
    c.HorizontalAlignment = xlLeft
    c.VerticalAlignment = xlCenter
    Case 8 To 12
    c.HorizontalAlignment = xlCenter
    c.VerticalAlignment = xlCenter
    End Select
End If
End If
Next c
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[baguidi]

Re : Comment aligner et centrer des colonnes avec la meme Macro

Merci Staple1600 et Bika pour votre apport je vais essayer vos codes.