Format des cellules en VBA

[Ilino]

Bonjour Forum
j'aimerais savoir s'il existe une fonction sur vba qui applique un format à des cellules (fusionnées) dans un tableau
( ex : Police Arial de taille 11 ,
alignement du texte dans la cellule centré et a gauche ;
renvoie a la ligne automatiquement )
Merci

 

[phlaurent55]

Re : Format des cellules en VBA

Bonjour Ilino,

voici ce que donne l'enregistreur de macro

Sub Macro1()
 
    Range("C3:D9").Select  'selection de la cellule fusionnée

    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With


    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = True
        .MergeCells = True
    End With

End Sub

à+
Philippe

 

[DoubleZero]

Re : Format des cellules en VBA

Bonjour, Ilino, le Forum,

L'enregistreur de macro peut fournir un tel code.

A-t-il déjà été fait appel à lui ?

A bientôt 🙂

Bonjour, Philippe 🙂

 

[Ilino]

Re : Format des cellules en VBA

Bonjour Philippe
Merci pour le code ça fonctionne mais mon souci restera tjr..
je voudrai faire un code qui mis a jour automatique le format de mes cellules après la saisie est t il possibl?

example: si je saisie dans mes cellule un texte de taille 16 et tres lent et qui n'est pas centré normalement apres avoir terminé la saisi cette macro doit le mettre le format automatiquement




merci A+

 

[phlaurent55]

Re : Format des cellules en VBA

Re, Bonjour 00

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)

    With Target.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Target
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = True
        .MergeCells = True
    End With

End Sub

à+
Philippe

 

[Ilino]

Re : Format des cellules en VBA

Re: encore une fois merci
mais la taille de la cellule ( hauteur) ne change pas si je saisi dans la cellule un teste de TAILLE DE 24 par example

 

[phlaurent55]

Re : Format des cellules en VBA

Re,

ceci à mettre juste avant le End Sub

Target.Row.EntireRow.AutoFit

....... mais ça ne réajuste pas les cellules en cas d'effacement du contenu 😡
à+
Philippe

 

[Ilino]

Re : Format des cellules en VBA

Bonsoir forum
Je pré faire de joindre un fichier exemple pour bien comprendre mon souci
1. dans le cas de renvoie a la ligne : la hauteur de cellule s’ajuste automatiquement ?
merci

 

[laurent950]

Re : Format des cellules en VBA

Bonsoir,

Code :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CheckRange As Range
    Dim aCell As Range
       If Not Intersect(Target, Range("B7:H7")) Is Nothing Then
            With Target.Font
                .Name = "Arial"
                .Size = 11
                .Strikethrough = False
                .Superscript = False
                .Subscript = False
                .OutlineFont = False
                .Shadow = False
                .Underline = xlUnderlineStyleNone
                .ThemeColor = xlThemeColorLight1
                .TintAndShade = 0
                .ThemeFont = xlThemeFontNone
         End With
        With Target
                .HorizontalAlignment = xlLeft
                .VerticalAlignment = xlCenter
                .WrapText = True
                .MergeCells = True
        End With
Target.Rows.EntireRow.AutoFit
End If
End Sub

Laurent

 

[Ilino]

Re : Format des cellules en VBA

Bonjour Laurent
merci pour le code mais il reste tjr le pblm de l'ajustement de la hauteur de la cellule dans le cas du renvoie ala ligne ...ça fonctinne pas ???
Edit : je veux définir l'option retour à la ligne pour l'ensemble des cellules car certains contenu ne sont pas entièrement visible sans un retour à la ligne.

Ma plage de cellule est la 2eme colonne du tableau "aa"
merci