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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <Nitottt@supaticol.com> a écrit dans le message de
news:OedYevquIHA.4952@TK2MSFTNGP05.phx.gbl...
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.
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
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
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.
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
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
Merci ebaucoup
Pourrions nous l'avoir de A4 vers B5 au lieu de A4 vers A5
"LSteph" <lecocosteph@frite.fr> wrote in message
news:eSQm$0ruIHA.396@TK2MSFTNGP04.phx.gbl...
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 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.