Discussion :

[flav_cm]

Bonjour à tous,

Lorsque je fais "Ajuster la hauteur de ligne" sur une (ou plusieurs) cellule(s), la hauteur reste plus grande que le texte à l'intérieur.
Je souhaiterais que la hauteur de la cellule s'adapte au nombre de lignes de texte à l'intérieur, je ne comprends pas pourquoi ça ne marche pas (les cellules ne sont pas fusionnées).

Je n'arrive même pas à le forcer en VBA, quelque chose m'échappe

Code :

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

1
2
3
4
5
6
7
8
9
Sub ajust()
 
Range("F13:F33").Select
With Selection
    .WrapText = True
    .ShrinkToFit = True
End With
 
End Sub

Auriez-vous des pistes ?

Merci d'avance pour votre aide.

[kiki29]

Salut,

Code :

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

Selection.Rows.AutoFit ou Selection.RowHeight = 10

[flav_cm]

Bonjour kiki29 et merci pour ta réponse rapide.

Je souhaite adapter la hauteur de chaque ligne au texte contenu dans les cellules correspondantes. Donc toutes les lignes ne devront pas avoir la même hauteur, d’où la commande

Code :

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

Selection.RowHeight = 10

ne me convient pas.

De plus,

Code :

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

Selection.Rows.AutoFit

ne fonctionne pas, il m'ajuste toutes mes lignes à la même hauteur (qui correspond aux cellules les plus grandes ou il y a le plus de texte).

Y-aurait-il d'autres moyens ?

Merci d'avance.

[X5-495]

Bonsoir,

Je n'ai pas forcément bien compris la demande, cependant tu appliques ton code à une sélection de lignes, il me parait donc logique que l'ensemble de ces lignes soient ajustée à la même hauteur.

Il faudrait selon moi appliquer l'ajustement à chaque ligne, individuellement, pour que chacune possède sa propre hauteur ajustée.

Cordialement.

[Docmarti]

Bonjour.

Code :

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

Selection.Rows.AutoFit

ne fonctionne pas, il m'ajuste toutes mes lignes à la même hauteur (qui correspond aux cellules les plus grandes ou il y a le plus de texte).

Selection.Rows.AutoFit ne fait pas ça normalement. Il ajuste chaque ligne indépendamment des autres lignes.

[flav_cm]

Il faudrait selon moi appliquer l'ajustement à chaque ligne, individuellement, pour que chacune possède sa propre hauteur ajustée.

Bonjour X5-495 et merci pour ta réponse. Toutefois, même quand j'effectue l'instruction ligne par ligne ça ne fonctionne pas.

De plus, même lorsque je me mets manuellement sur une ligne et que je fais "ajuster la hauteur de ligne", celle-ci reste plus grande que le texte contenu dans les cellules. Cette option permet-elle seulement d'augmenter la hauteur de ligne (sans pouvoir la diminuer) ?

[X5-495]

Bonsoir,

As-tu des cellules avec des renvois à la ligne ?

N'y-t-a-il pas des retours à la ligne "masqué" ?

Cordialement.

[flav_cm]

As-tu des cellules avec des renvois à la ligne ?

Oui certaines de mes colonnes ont un renvoi à la ligne automatique. Étant donné que je veux écrire du texte plus ou moins long dans les cellules, j'aimerais que le texte aille à la ligne quand il dépasse la largeur de la cellule et que la hauteur de la cellule s'adapte au nombre de lignes présentes dans la cellule.

N'y-t-a-il pas des retours à la ligne "masqué" ?

Je suis sur qu'il n'y en a pas. En effet, j'ai un "tableau" (pas au sens VBA, juste un groupement de 6 lignes sur 8 colonnes qu'on appellera bloc1) dans lequel j'ai un retour à la ligne automatique et un ajustement automatique de la hauteur de ligne. Tout cela fonctionne très bien. Malheureusement ensuite, lorsque j’insère des 6 lignes sous ce bloc1 et que j'en copie la forme (pour avoir un bloc2), l'ajustement automatique de hauteur de ligne ne fonctionne plus (hauteur bloquée à 24 et même quand je me mets sur la ligne et que je reclique sur ajuster la hauteur de ligne ça ne fonctionne pas).

Voila j'espère que c'est un peu plus clair.

Merci d'avance.

[X5-495]

Bonsoir,

C'est plus clair en effet.

Il faudrait que je teste de mon côté.

Cordialement.

[flav_cm]

Bonjour X5-495 et merci pour l’intérêt porté à ma question.

Je me permets d'ajouter encore quelques informations à mon problème dans l'espoir de pouvoir en trouver la solution :

- le code utilisé pour insérer les lignes et copier la mise en forme (et insérer mon numéro de référence de ma ligne) est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
If i <> 1 And existe_deja = False Then
            ' Insertion des 7 nouvelles lignes :
            Rows(4 + i * nb_lig).Insert 'commence dès f=2, il faut alors insérer avant la 16eme ligne
            Cells(4 + i * nb_lig, 3) = "1.1." & (i) * nb_lig
            Rows(4 + i * nb_lig).Insert
            Cells(4 + i * nb_lig, 3) = "1.1." & (i) * nb_lig - 1
            Rows(4 + i * nb_lig).Insert
            Cells(4 + i * nb_lig, 3) = "1.1." & (i) * nb_lig - 2
            Rows(4 + i * nb_lig).Insert
            Cells(4 + i * nb_lig, 3) = "1.1." & (i) * nb_lig - 3
            Rows(4 + i * nb_lig).Insert
            Cells(4 + i * nb_lig, 3) = "1.1." & (i) * nb_lig - 4
            Rows(4 + i * nb_lig).Insert
            Cells(4 + i * nb_lig, 3) = "1.1." & (i) * nb_lig - 5
            'Copie de la forme du tableau :
            Range(Cells(10, 4), Cells(15, 11)).Select
            Selection.Copy
            Cells(4 + i * nb_lig, 4).Select
            Selection.PasteSpecial Paste:=xlPasteFormats
            Application.CutCopyMode = False
            'Positionnement de la Position_courante :
            Set Position_courante = Cells(4 + i * nb_lig, 4)
        End If ' i <> 1

- lorsque je supprime plusieurs lignes du texte dans une de mes cellule du bloc1, la hauteur de la cellule s'ajuste automatiquement (elle diminue). Or dans les blocs suivants, impossible d'ajuster la hauteur de ligne que ce soit en augmentant ou en diminuant le contenu (même en redemandant l'ajustement automatique)...

[flav_cm]

Je me permets de relancer cette discussion.

Personne n'a déjà rencontré ce problème de mauvais ajustement de hauteur de ligne ?

Merci d'avance pour votre attention.

[X5-495]

Bonsoir,

Comme dit, j'ai regardé d'un peu plus près.

Cela semble en effet fonctionner, mais il ne faut pas modifier ensuite les hauteurs de lignes, ou la largeur des colonnes, car après cela fonctionne moins bien.

Je ne peux pas aider davantage malheureusement ne comprenant à mon tour pas tout ce qu'il se passe.

Cordialement.

[flav_cm]

Je reviens pour (enfin!) clôturer ce sujet...

J'ai trouvé par hasard la solution : une cellule par ligne contient une référence de ligne (1.1.1 jusqu'à 1.1.20 par exemple). Lorsque la référence contenait plus de 4 chiffres, alors la hauteur de la ligne s'agrandissait (à partir de 1.1.10 donc!). Problème réglé en mettant la police de cette référence à une taille 7 au lieu de 11, l'ajustement automatique de ligne fonctionne à nouveau comme je le souhaite.

Merci en tout cas pour vos contributions !

[Cyrilio]

Je reviens pour (enfin!) clôturer ce sujet...

J'ai trouvé par hasard la solution : une cellule par ligne contient une référence de ligne (1.1.1 jusqu'à 1.1.20 par exemple). Lorsque la référence contenait plus de 4 chiffres, alors la hauteur de la ligne s'agrandissait (à partir de 1.1.10 donc!). Problème réglé en mettant la police de cette référence à une taille 7 au lieu de 11, l'ajustement automatique de ligne fonctionne à nouveau comme je le souhaite.

Merci en tout cas pour vos contributions !

Bonjour

J'ai EXACTEMENT le même soucis! En descendant d'une taille la police des cellules concernées la taille de la ligne s'ajuste parfaitement, mais je souhaite conserver la taille de police 11.

Je n'ai pas compris la solution et les "références de ligne", pouvez vous preciser SVP?

Merci d'avance!

Cyril