Discussion :

[progpro]

Dans une feuille Excel, j'insère un texte contenant des sauts de ligne dans une cellule dont la largeur est fixe. Je voudrais ajuster, par programmation VBA, la hauteur de la ligne pour visualiser l'ensemble du texte sur l'écran, sans changer la largeur de la colonne. j'ai essayé autofit, mais ça ne fonctionne pas.

Merci de votre aide.

[ouskel'n'or]

Code tout droit sorti de l'aide :

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

Worksheets("Sheet1").Range("B2").WrapText = True

[Yaone]

Désolée d'avance si je devais ouvrir un nouveau sujet mais vu que c'est ça que je recherche, je n'ai pas vu l'intérêt.
C'est juste que dans la réponse donnée, je ne sais pas quoi changer par quoi XD

Genre, j'ai une liste de 10 lignes par exemple et des données jusqu'à la colonne G. Et il faut que j'ajuste la hauteur des lignes avec la colonne C.
je mets quoi où ? ^^"

Merci d'avance pour la réponse.

[Invité]

Bonsoir Yaone,

Si autofit ne fonctionne pas est-ce que votre cellule est fusionnée avec d'autres cellules ?

Car si c'est le cas il y a une autre solution.

[Yaone]

Je n'ai pas essayé avec autofit parce que je ne sais pas comment elle marche et sa syntaxe XD
(et l'aide d'excel ne marche pas chez moi T_T)

Mais autofit, ça ne modifierait pas par hasard la largeur des colonnes ? Parce que je ne veux pas qu'il touche à ça moi ^^"

Bon, en fait, j'ai trouvé la fonction dans excel et j'ai donc enregistré la manoeuvre dans une macro donc pour moi c'est bon avec autofit ^^

[ouskel'n'or]

Ok. Alors enregistre une macro en faisant :
- Tu sélectionnes ta ligne ou la feuille (ctrl + A) -> Format -> Cellules -> Onglet Alignement -> Et tu valides "Renvoyer à la ligne automatiquement"
ça va te donner ça

Code :

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

1
2
3
4
5
6
7
8
9
10
    Cells.Select
    Range("F5").Activate
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With

Après tu simplifies, ce qui donne

Code :

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

Cells.WrapText = True

A+