petit pbe tout con mais qui m'ennuie beaucoup.
J'ai fusionn=E9e deux cellules cons=E9cutifs (A1 et B1, par=20
exemple). Le texte =E0 l'interieur est assez long. Je veux=20
donc faire un autofit apr=E8s avoir s=E9lectionn=E9 la cellule=20
A1 fusionn=E9e.
Le code tout b=E8te
Range(Cells(1, 1)), Cells(1, 2)).Select
With Selection
.WrapText =3D False
.Orientation =3D 0
.ShrinkToFit =3D False
.MergeCells =3D True
End With
Cells(1, 1).Select
Selection.Columns.AutoFit
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
FxM
Bonsoir,
défusionner tes cellules pour aligner le texte sur plusieurs colonnes.
@+ FxM
Laurent wrote:
salut à tous,
petit pbe tout con mais qui m'ennuie beaucoup. J'ai fusionnée deux cellules consécutifs (A1 et B1, par exemple). Le texte à l'interieur est assez long. Je veux donc faire un autofit après avoir sélectionné la cellule A1 fusionnée.
Le code tout bète Range(Cells(1, 1)), Cells(1, 2)).Select With Selection .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = True End With Cells(1, 1).Select Selection.Columns.AutoFit
et ben rien à faire, ça ne marche pas.
Avez vous la solution ?
Merci Laurent
Bonsoir,
défusionner tes cellules pour aligner le texte sur plusieurs colonnes.
@+
FxM
Laurent wrote:
salut à tous,
petit pbe tout con mais qui m'ennuie beaucoup.
J'ai fusionnée deux cellules consécutifs (A1 et B1, par
exemple). Le texte à l'interieur est assez long. Je veux
donc faire un autofit après avoir sélectionné la cellule
A1 fusionnée.
Le code tout bète
Range(Cells(1, 1)), Cells(1, 2)).Select
With Selection
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = True
End With
Cells(1, 1).Select
Selection.Columns.AutoFit
défusionner tes cellules pour aligner le texte sur plusieurs colonnes.
@+ FxM
Laurent wrote:
salut à tous,
petit pbe tout con mais qui m'ennuie beaucoup. J'ai fusionnée deux cellules consécutifs (A1 et B1, par exemple). Le texte à l'interieur est assez long. Je veux donc faire un autofit après avoir sélectionné la cellule A1 fusionnée.
Le code tout bète Range(Cells(1, 1)), Cells(1, 2)).Select With Selection .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = True End With Cells(1, 1).Select Selection.Columns.AutoFit
et ben rien à faire, ça ne marche pas.
Avez vous la solution ?
Merci Laurent
sabatier
tiens, pour une fois, c'est pas philippe R qui répond à un petit pbe tout con mais bon, la relève est assurée et comment!!! tout va bien, françois-xavier? jps (qui prend la route de l'auvergne dans un brouillard qui rend le tir de scuds à lui destinés plus délicat)
FxM a écrit:
Bonsoir,
défusionner tes cellules pour aligner le texte sur plusieurs colonnes.
@+ FxM
Laurent wrote:
salut à tous,
petit pbe tout con mais qui m'ennuie beaucoup. J'ai fusionnée deux cellules consécutifs (A1 et B1, par exemple). Le texte à l'interieur est assez long. Je veux donc faire un autofit après avoir sélectionné la cellule A1 fusionnée.
Le code tout bète Range(Cells(1, 1)), Cells(1, 2)).Select With Selection .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = True End With Cells(1, 1).Select Selection.Columns.AutoFit
et ben rien à faire, ça ne marche pas.
Avez vous la solution ?
Merci Laurent
tiens, pour une fois, c'est pas philippe R qui répond à un petit pbe
tout con mais bon, la relève est assurée et comment!!!
tout va bien, françois-xavier?
jps (qui prend la route de l'auvergne dans un brouillard qui rend le tir
de scuds à lui destinés plus délicat)
FxM a écrit:
Bonsoir,
défusionner tes cellules pour aligner le texte sur plusieurs colonnes.
@+
FxM
Laurent wrote:
salut à tous,
petit pbe tout con mais qui m'ennuie beaucoup.
J'ai fusionnée deux cellules consécutifs (A1 et B1, par exemple). Le
texte à l'interieur est assez long. Je veux donc faire un autofit
après avoir sélectionné la cellule A1 fusionnée.
Le code tout bète
Range(Cells(1, 1)), Cells(1, 2)).Select
With Selection
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = True
End With
Cells(1, 1).Select
Selection.Columns.AutoFit
tiens, pour une fois, c'est pas philippe R qui répond à un petit pbe tout con mais bon, la relève est assurée et comment!!! tout va bien, françois-xavier? jps (qui prend la route de l'auvergne dans un brouillard qui rend le tir de scuds à lui destinés plus délicat)
FxM a écrit:
Bonsoir,
défusionner tes cellules pour aligner le texte sur plusieurs colonnes.
@+ FxM
Laurent wrote:
salut à tous,
petit pbe tout con mais qui m'ennuie beaucoup. J'ai fusionnée deux cellules consécutifs (A1 et B1, par exemple). Le texte à l'interieur est assez long. Je veux donc faire un autofit après avoir sélectionné la cellule A1 fusionnée.
Le code tout bète Range(Cells(1, 1)), Cells(1, 2)).Select With Selection .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = True End With Cells(1, 1).Select Selection.Columns.AutoFit