Ajustement automatique cellules fusionnées

Résolu/Fermé
Signaler
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
-
 Goninph -
Bonjour,

J'avais eu, sur ce forum une personne qui m'avait aidé à créer une macro pour ajuster automatiquement la hauteur d'une cellule fusionnée lors de sa modification (macro ci-dessous)
Private Sub Worksheet_Change(ByVal target As Range)
If Not (Intersect(target, Range("D6,D7,C8,H6,H7,G8,D12,D13,C14")) Is Nothing) Then
        Call HauteurAutoCellulesFusionnées(target)
    End If
End Sub
 
Sub HauteurAutoCellulesFusionnées(Cellule)

    On Error GoTo GestionErreur 
    Set m = Cellule.MergeArea
    m.UnMerge
    m.WrapText = True 
    m.HorizontalAlignment = xlCenterAcrossSelection
    m.Rows.AutoFit
    hauteur = m.Rows.RowHeight
    m.Merge
    m.Rows.RowHeight = hauteur
    Exit Sub
        
GestionErreur:
    Cellule.Rows.AutoFit
End Sub


Aujourd'hui je cherche à retravailler cette macro afin qu'elle ajuste préalablement la hauteur de toutes les cellules fusionnées de mon onglet "Accueil" à l'ouverture du workbook mais je bloque, surtout qu'un second paramètre est à prendre en compte : 2 cellules fusionnées peuvent se trouver sur la même ligne (D6 et H6 par exemple) il faudrait donc que la ligne prenne la hauteur de la plus "grande" des 2.

Si quelqu'un à un peu de temps à perdre pour m'aider, je le remercie d'avance.

Bonne journée.

1 réponse

Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
27
J'ai trouvé une solution alternative à mon problème.

Merci quand même.
0
Hello,

Quelle est ta solution alternative ?

Merci

Philippe
0