Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Hauteur de ligne

3 réponses
Avatar
Nito
Bonjour à vous tous
Dans une cellule fusionnée le texte est renvoyé à la ligne automatiquement.
Comment faire pour ajuster la hauteur d'une ligne par macro en fonction de
la longueur du texte.

Merci encore
Nito

3 réponses

Avatar
Philippe.R
Bonsoir,
Voici une raison de plus pour abandonner les cellules fusionnées, au profit
de centrer sur plusieurs colonnes par exemple.
Alors, l'instruction :
Selection.Rows.AutoFit
fait ce que tu souhaites
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Nito" a écrit dans le message de
news:
Bonjour à vous tous
Dans une cellule fusionnée le texte est renvoyé à la ligne
automatiquement.
Comment faire pour ajuster la hauteur d'une ligne par macro en fonction de
la longueur du texte.

Merci encore
Nito




Avatar
LSteph
Bonjour Nito,

Exemple avec A4 et A5, mais ce pourrait être [maplage]
où [a4] serait [maplage].cells(1) et où
Int(myH / 2) serait Int(myH /[maplage].cells.count)


Dim myH As Integer, c As Range
With [a4]
.UnMerge
.WrapText = True
.EntireRow.AutoFit
myH = .Height
End With
For Each c In [a4:a5].Rows
c.RowHeight = Int(myH / 2)
Next
[a4:a5].Cells.Merge 'beurk

Nota:
Au cas où on l'utilise excel comme tableur ou pour gérer des données,on
est pas forcé d'en compromettre des fonctionnalités essentielles .
On peut renvoyer et ajuster le texte dans une ligne, sans (beurk)
fusionner.


Cordialement.

--
lSteph
"Pourfendeur des fusions"

Bonjour à vous tous
Dans une cellule fusionnée le texte est renvoyé à la ligne automatiquement.
Comment faire pour ajuster la hauteur d'une ligne par macro en fonction de
la longueur du texte.

Merci encore
Nito




Avatar
Nito
Merci ebaucoup
Pourrions nous l'avoir de A4 vers B5 au lieu de A4 vers A5

"LSteph" wrote in message
news:eSQm$
Bonjour Nito,

Exemple avec A4 et A5, mais ce pourrait être [maplage]
où [a4] serait [maplage].cells(1) et où
Int(myH / 2) serait Int(myH /[maplage].cells.count)


Dim myH As Integer, c As Range
With [a4]
.UnMerge
.WrapText = True
.EntireRow.AutoFit
myH = .Height
End With
For Each c In [a4:a5].Rows
c.RowHeight = Int(myH / 2)
Next
[a4:a5].Cells.Merge 'beurk

Nota:
Au cas où on l'utilise excel comme tableur ou pour gérer des données,on
est pas forcé d'en compromettre des fonctionnalités essentielles .
On peut renvoyer et ajuster le texte dans une ligne, sans (beurk)
fusionner.


Cordialement.

--
lSteph
"Pourfendeur des fusions"

Bonjour à vous tous
Dans une cellule fusionnée le texte est renvoyé à la ligne
automatiquement.
Comment faire pour ajuster la hauteur d'une ligne par macro en fonction
de la longueur du texte.

Merci encore
Nito