Discussion :

[Runsh63]

Bonjour,

Afin de mettre en forme de façon homogène des données provenant de différents fichiers, voilà ce que j'ai écris en fin de macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 'MEF finale données
 
        With Union(.Range("A1:F" & LR3), .Range("H1:H" & LR3))
            .Name = "Arial"
            .Size = 10
            .Font.Bold = False
            .NumberFormat = "General"
        End With
 
        With .Range("G1:G" & LR3)
            .Name = "Arial"
            .Size = 10
            .Font.Bold = False
            .NumberFormat = "dd/mm/yyyy"
        End With

Malheureusement cela n'a aucun effet... pourriez-vous m'expliquer ce qui ne vas pas et me donner une solution pour parer à ce problème SVP ?
Merci d'avance !

[MarcelG]

Bonjour Runsh, Bonjour le Forum,

Tu sélectionnes tes objets sans en préciser les propriétés que tu veux modifier.

Pour t'aider, tu peux utiliser l'enregistreur qu'il te faudra épurer

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro1()
 
Set masélection = Union(Range("A1"), Range("A8"))
 
With masélection
        With .Font
                .Name = "Arial"
                .FontStyle = "Gras"
                .Size = 11
        End With
End With
 
Set masélection = Nothing
 
End Sub

(à adapter)

[Runsh63]

Bonjour MarcelG,

Merci pour ta réponse, en effet c'est mieux une fois qu'on définit la zone d'application...