Re : Ajuster automatiquement la hauteur des lignes au contenu de cellules fusionnées
Re, voici enfin la solution a mon probleme.
Ci-dessous le code que j'utilise. Il démarre a partir d'un usf.
Private Sub Generer_alerte_Click()
Unload Me
'cellules fusionnées a mettre en forme Range("Feuil!B18:I18,B21:I21,B24:I24,B27:I27,B30:I30,B33:I33,B19:I19,B22:I22,B25:I25,B28:I28,B31:I31,B34:I34,C20:I20,C23:I23,C26:I26,C29:I29,C32:I32,C35:I35,B55:E55,B57:E57,B59:E59,B61:E61,B63:E63,B65:E65").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection 'centré sur plsrs colonnes
.VerticalAlignment = xlTop 'alignement vertical
.WrapText = True 'ça je sais pas ce que c'est, un truc de format
.AddIndent = False 'ça non plus
.IndentLevel = 0 'ça non plus
.ShrinkToFit = False 'ça non plus
.ReadingOrder = xlContext 'ça non plus
.MergeCells = False 'fusion des cellules=non
End With
Selection.Merge True 'fusion simple des cell selectionnées
With Selection
.HorizontalAlignment = xlLeft 'alignement gauche (important)
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Load USF
USF.Show
End Sub
Et ça marche d'enfer. Cela sous-entend que dès le départ, mes cellules ne sont pas fusionnées. J'ai créer de plus une autre macro pour remettre au format initial pour une prochaine utilisation.
Le code peut être simplifié, j'en convient.
Merci de votre aide et a bientôt.
Cdlt,
WIll