[Résolu] Formatter deux colonnes

[dedam]

Bonjour,

Afin d'harmoniser ma table de travail, j'aimerai qu'à l'ouverture du fichier ou au refresh des datas (connexion à une base de donnée), la colonne "Y" et "Z" aient comme condition de format cellule : Wrap Text, mais sans toucher à la grandeur largeur des colonnes.
Je me suis inspiré d'un exemple mais je bloque ...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CheckRange As Range
    Dim aCell As Range
     [B]  If Not Intersect(Target, Range("Y")) Is Nothing Then[/B]
            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
        [B]If Not Intersect(Target, Range("Z")) Is Nothing Then[/B]
            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


Merci d'avance pour votre aide :-)

 

[chris]

Re : Formatter deux colonnes

Bonjour

Si les colonnes sont pré-formatées, normalement les données ajoutées par une liaison respectent le format...

 

[dedam]

Re : Formatter deux colonnes

Bonjour

Si les colonnes sont pré-formatées, normalement les données ajoutées par une liaison respectent le format...

Bonjour Chris,

Le soucis c'est que je ne suis pas master de cette base de donnée .. moi je veux juste créer un display/table de travail à partir de cette BDD.

Un formattage automatique à l'entrée du fichier ainsi qu'en effectuant un refresh Data serait la solution

BàT

 

[chris]

Re : Formatter deux colonnes

Re

Mais si ton ficher Excel utilisé pour le display/table est correctement formaté (colonnes entières formatées) et que les données sont bien en liaison et non en copier coller, le format du ficher Excel prévaut...

 

[dedam]

Re : Formatter deux colonnes

Non car il y a ajout de donnée via la base de donnée .. qui introduit des données avec le format initiale de cette BDD

 

[dedam]

Re : Formatter deux colonnes

Plop,

J'ai résolu mon problème tout seul

Merci pour les conseils

Sub cmdformat()
'
' cmdformat Macro
' Formater cellule
'

'
    Range("Z:Z,Y:Y").Select
    Range("Table_CCData[[#Headers],[probleme]]").Activate
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveWorkbook.Save
End Sub