Discussion :

[GADENSEB]

Bonjour le Forum,

Je cherche ajuster la hauteur des cellules remplies de texte.

A chaque fois, il y a sept colonnes fusionnées
J'ai bricolé cela mais rien de concret ...

J'ai du oublier un truc ....

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
Dim a, nbrligne As Integer
Sub MiseEnForme()
'On définit le nombre de lignes réellement utilisées
Feuil1.Select
nbrligne = Feuil1.Range("A65536").End(xlUp).Row
'Puis on les parcourt
For a = 1 To nbrligne
'Pour chaque ligne on parcourt les sept premières colonnes
For b = 1 To 7
'Ici on renvoie le texte à la ligne
If Feuil1.Cells(a, b).Value <> "" Then
      Feuil1.Cells(a, b).Select
      Selection.WrapText = True
End If
Next b
Next a
End Sub