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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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