Discussion :

[CB56]

Bonjour,

J'aimerais savoir comment adapater la hauteur de lignes à des cellules fusionnées dans Excel avec VBA.
La méthode "autofit" ne fonctionne pas car elle ne s'applique pas aux cellules fusionnées. En tout cas elle est sans effet chez moi.

Merci d'avance pour votre aide.

Cordialement

[illight]

L'ajustement ne marche que verticalement, pas horizontalement

La solution serais de faire comme format de cellule un renvoie a la ligne automatique, et après tu pourra ajuster verticalement, mais je penser pas que ce soit la meilleure solution

[CB56]

Bonjour,

La méthode autofit ne fonctionne pas non plus verticalement sur des cellules fusionnées ou du moins je n'y arrive pas.

Quel est le code VBA pour faire cela ?
Merci d'avance

Cordialement

Simon

[ouskel'n'or]

Tu dois d'abord définir l'alignement sur "Renvoyer à la ligne automatiquement" puis définir la hauteur de ta ligne sur "Ajustement automatique"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    With Cells(2, 5)
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
    End With
    Rows("2:2").Rows.AutoFit

L'inverse ne fonctionne pas (VBA 97)

[SilkyRoad]

bonjour

Tu peux faire une recherche sur internet en utilisant le mot clé:

AutoFitMergedCellRowHeight

tu trouveras une procédure de Jim Rech qui j'espere pourra t'aider.


bonne soirée
michel