hauteur de cellule dans Excel

Question

Bonjour, 

Dans mon appli, j'utilise Excel sous forme de référence et j'insére des champs de ma Base de données dans les cellules. mon problème : j'insére des champs de longueurs variables dans des cellules dont certaines sont des cellules fusionnées. Hors dans les cellules fusionnées la hauteur et retour automatique à la ligne "n'est pas automatique".
 Je voulais savoir comment régler la hauteuur d'une ligne, merci.

Julien.

cs_CyssouX · Answer

Ben dis-donc, j'ai exactement le même problème ... le premier qui trouve la solution préviens l'autre ...

CyssouX

cs_CyssouX · Answer

Et Voilà .... J'AI TROUVE !!!

Private Sub Hauteur_de_ligne()

 
    Set ExcelSuppr = CreateObject("Excel.Application")
    ExcelSuppr.Application.Workbooks.Open (path_source & "Base_PJ_Mail_base.xls")
    ExcelSuppr.Visible = False
    ExcelSuppr.Windows("Base_PJ_Mail_base.xls").Visible = True
    ligne = 2   ' La ligne que tu veux modifier  
    ExcelSuppr.ActiveSheet.Rows(ligne).EntireRow.AutoFit
    ExcelSuppr.Application.DisplayAlerts = False
    ExcelSuppr.Save
    ExcelSuppr.Windows("Base_PJ_Mail_base.xls").Close
    ExcelSuppr.Application.Quit
    Set ExcelSuppr = Nothing
    
End Sub

CyssouX

Hauteur de cellule dans Excel

2 réponses

Discussions similaires