Excel : ajuster hauteur de la celulle par VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Excel : ajuster hauteur de la celulle par VBA

scaryfan

Apple Inside

:hello:

Salut à tous !

Voici mon problème :
j'ai un classeur Excel avec 5 colonnes.
la cellule en A1 est fusionnée avec B1, C1, D1.
le format de cette cellule est :
gauche
justifiée
renvoyer à la ligne automatiquement

Mon souci est que lorsque je saisis un texte très long, il devrait aller à la ligne de lui-même et la taille de la ligne s'ajuster automatiquement.
Mais ça ne le fait pas et on ne voit pas tout le texte.
Bref, comme j'ai pas mal de lignes dans ce cas dans mon tableau, je pensais créer une procédure passant en revue chaque ligne du tableau et ajuster automatiquement.

Quelqu'un peut-il m'aider sachant que j'ai essayer ça :

Code :

Range("A65536" ).Select
Do
If ActiveCell.value <> "" Then
Selection.Entirerow.Autofit
End If
ActiveCell.Offset(-1,0).Select
Loop Until ActiveCell.Row = 1
If ActiveCell.value <> "" Then
Selection.Entirerow.Autofit
End If

Merci pour votre aide !

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Publicité

Ctplm

Hi,

Je ne comprends pas trop pourquoi parcourir l'intégralité des lignes, et je ne vois pas trop non plus l'intérêt du .offset ?
Est-ce que tu souhaites que ton texte aille à la ligne, ou bien que la taille de la cellule s'adapte au texte.. ?

En attendant, un premier essai :

Code :

Dim a As Integer
Sub MiseEnForme()
'On définit le nombre de lignes réellement utilisées
Sheet1.Select
nbrligne = Sheet1.Range("A65536" ).End(xlUp).Row
'Puis on les parcourt
For a = 1 To nbrligne
If Sheet1.Range("A" & a).Value <> "" Then
Sheet1.Range("A" & a).Select
'WrapText pour renvoyer le texte à la ligne
Selection.WrapText = True
'Ou bien Autofit pour adapter la taille des cellules
'Selection.EntireColumn.AutoFit
'Selection.EntireRow.AutoFit
End If
Next a
End Sub

:hello:

---------------
"That kind of information doesn't just grow on trees."

Ctplm

Autant pour moi pour le Offset, j'avais cru lire que tu ne voulais ajuster que les lignes de ta colonne A.

Deuxième essai :

Code :

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

---------------
"That kind of information doesn't just grow on trees."

scaryfan

Apple Inside

:hello:

Désolé mais je ne me suis pas bien exprimé...
Chaque cellule de la colonne 1 est fusionnée avec les 4 colonnes suivantes.
Et j'écris du texte dans chaque cellule qui peut être long...

Bref, j'ai découvert que des cellules fusionnées ne peuvent pas renvoyer à la ligne automatiquement... (limite Excel ou alors non développé par MS).

Finalement, j'ai fait autrement...

Je parcours chaque ligne, défusionne la cellule en colonne 1, définis la taille de cette cellule de la largeur de la somme des 5 colonnes, fais un Autofit (la cellule s'épaissit !), j'enregistre dans une mémoire la taille de la ligne, refusionne les 5 colonnes et redéfinit la taille de la ligne grâce à la mémoire...

ça marche nickel chrome...

:sol:

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Excel : ajuster hauteur de la celulle par VBA

Sujets relatifs
Recherche dans tableau multi dimension Excel	Sauvegarde sous VBA ACCESS
Création d'un test sur PowerPoint avec VBA	[VBA] Lire la propriété Interior.Color d'une cellule
mettre des valeurs booléennes vba excel	Regrouper des fichiers excel en un seul par bouton vba
Sauvegarder un seul onglet (VBA) Excel	Aquerir dans Excel des données venant de fichiers txt
Jasper Reporting Excel
Plus de sujets relatifs à : Excel : ajuster hauteur de la celulle par VBA

Page générée en 0.033 secondes