Discussion :

[Florent6744]

Bonjour,

Je suis en train de creer une macro pour automatiser la mise en page d'un fichier.
Je cale sur un point, je mets les lignes sur une hauteur de 17 par contre certaines cellules ont plusieurs lignes qui ne doivent pas etre caché après ma macro.

Je cherche donc a faire un truc dans le genre vulgarisé pour plus de compréhension:

Code :

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

1
2
Rows("430:430").EntireRow.AutoFit
if ligne 430 <hauteur 17 alors Selection.RowHeight = 17.

Quelqu'un a une idée.

Merci d'avance.

[Menhir]

Je cherche donc a faire un truc dans le genre vulgarisé pour plus de compréhension:

Rows("430:430").EntireRow.AutoFit
if ligne 430 <hauteur 17 alors Selection.RowHeight = 17

Il suffit d'écrire ça en utilisant la syntaxe VBA :

Code :

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

1
2
Rows(430).AutoFit
If Rows(430).Height < 17 Then Rows(430).Height = 17

[Florent6744]

Merci pour ta réponse,

Du coup j'ai ecrit ceci:

Code :

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

1
2
3
4
5
6
7
8
Rows(430).AutoFit
    Rows(431).AutoFit
    Rows(432).AutoFit
 
    If Rows(430).Height < 17 Then Rows(430).Height = 17
        ElseIf Rows(431).Height < 17 Then Rows(431).Height = 17
        ElseIf Rows(432).Height < 17 Then Rows(432).Height = 17
    End If

Et quand je test ma macro il bug et me dit Else sans if.
Why?

[Menhir]

Et quand je test ma macro il bug et me dit Else sans if.

C'est normal.
En mettant l'action du Then sur la même ligne que la condition du If, tu as créé une structure sur une seule ligne.
Tu ne peux donc pas y ajouter des ElseIf sur d'autres lignes.

La syntaxe correcte aurait été :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Rows(430).AutoFit
    Rows(431).AutoFit
    Rows(432).AutoFit
 
    If Rows(430).Height < 17 Then 
        Rows(430).Height = 17
    ElseIf Rows(431).Height < 17 Then
        Rows(431).Height = 17
    ElseIf Rows(432).Height < 17 Then
        Rows(432).Height = 17
    End If

Mais ça n'est pas correct fonctionnellement puisqu'une seule de ces conditions peut être exécutée et donc que ça ne mettrait pas tes 3 lignes à hauteur.

Ceci est correct :

Code :

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

1
2
3
4
5
6
7
    Rows(430).AutoFit
    Rows(431).AutoFit
    Rows(432).AutoFit
 
    If Rows(430).Height < 17 Then Rows(430).Height = 17
    If Rows(431).Height < 17 Then Rows(431).Height = 17
    If Rows(432).Height < 17 Then Rows(432).Height = 17

Mais ceci est mieux :

Code :

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

1
2
3
4
5
6
Dim Lig As Long
 
For Lig = 430 To 432
    Rows(Lig).AutoFit
    If Rows(Lig).Height < 17 Then Rows(Lig).Height = 17
Next Lig

[Florent6744]

Merci pour ton aide.

Ca a presque fonctionné j'ai eu juste une petite modif a faire.

Lorsque je notais

Code :

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

1
2
If Rows(430).Height < 17 Then 
        Rows(430).Height = 17

cela buggait quand la ligne est inferieur a 17, j'ai changé comme ça et cette fois ca marche nickel.

Code :

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

1
2
If Rows(430).Height < 17 Then 
        Rows(430).RowHeight = 17

Merci de ton aide.