Bonjour à tous
Je récupère des donnée en provenance CAO.
Sur une des feuilles du classeur Excel, je souhaite :
- Uniquement pour les cellules en dessous de la celllule A9
-Ht minimal des cellules 33 mm
- Ht ajusté pour les cellules contenant un texte long
Il y a des cellules fusionnées sur cette feuille.
J'ai repris un code du site pour l'adapter à mes besoins.
Pb, le code ci-après, traite aussi les cellules avant la ligne 10.
J'ai essayé de modifier le "For Each cel In ActiveSheet.UsedRange" sans succès.
Autre point, le traitement est long, plus écran instable.
Merci beaucoup.
Julian
****************************
Sub AjusteEnHauteur()
Sheets("Feuil1").Select
Range("A10:A500").Select
For Each cel In ActiveSheet.UsedRange
If cel <> "" Then
Set m = cel.MergeArea
m.UnMerge
m.WrapText = True
m.HorizontalAlignment = xlCenterAcrossSelection
m.Rows.AutoFit
m.Merge
End If
Next
For Each c In Rows("10:500")
If c.RowHeight < 33 Then c.RowHeight = 33
Next c
End Sub
*****************************
Je récupère des donnée en provenance CAO.
Sur une des feuilles du classeur Excel, je souhaite :
- Uniquement pour les cellules en dessous de la celllule A9
-Ht minimal des cellules 33 mm
- Ht ajusté pour les cellules contenant un texte long
Il y a des cellules fusionnées sur cette feuille.
J'ai repris un code du site pour l'adapter à mes besoins.
Pb, le code ci-après, traite aussi les cellules avant la ligne 10.
J'ai essayé de modifier le "For Each cel In ActiveSheet.UsedRange" sans succès.
Autre point, le traitement est long, plus écran instable.
Merci beaucoup.
Julian
****************************
Sub AjusteEnHauteur()
Sheets("Feuil1").Select
Range("A10:A500").Select
For Each cel In ActiveSheet.UsedRange
If cel <> "" Then
Set m = cel.MergeArea
m.UnMerge
m.WrapText = True
m.HorizontalAlignment = xlCenterAcrossSelection
m.Rows.AutoFit
m.Merge
End If
Next
For Each c In Rows("10:500")
If c.RowHeight < 33 Then c.RowHeight = 33
Next c
End Sub
*****************************