retour ligne HELP PLZ Assez urgent

Question

Bonjour !

QQ1 sait-il comment faire en VBA pour excel :

if retour a la ligne auto dans une cellule de la feuille
then reduire la taille des caracteres de cette cellule
until tout le texte loge sans retour ligne auto

j'espere etre clair car je suis d&#233;butant et pourtant je cherche.

 merci a celui (ou celle ?) qui pourra m'aider !!!

jpleroisse · Answer

Bonjour,

1- Pour un retour chariot dans une cellule, dans l'exemple, la cellule A1.



Sub Retour()

Range("A1").Select

With Selection

    .HorizontalAlignment = xlGeneral

    .VerticalAlignment = xlBottom

    .WrapText = True

    .Orientation = 0

    .ShrinkTofit = False

    .MergeCells = False

    End With

End Sub



2- Pour la police de caract&#232;res.



Sub TailleCaract&#232;res()

    Range("A1").Select

    With Selection.Font

        .Name = "Arial"

        .FontStyle = "Normal"

        .Size = 8

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

       .ColorIndex = xlAutomatic

    End With

End Sub



jpleroisse

Retour ligne HELP PLZ Assez urgent

1 réponse

Discussions similaires