Hauteur de ligne

Le
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #6670851
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" 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




LSteph
Le #6671221
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




Nito
Le #6672101
Merci ebaucoup
Pourrions nous l'avoir de A4 vers B5 au lieu de A4 vers A5

"LSteph" 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





Publicité
Poster une réponse
Anonyme