Discussion :

[Zam44]

Bonjour à tous,

Merci d'accueillir un petit nouveau sur "dévellopez.net". Je viens demander de l'aide pour une problématique de mise en forme conditionnelles via Excel VBA.

J'ai créé un fichier EXCEL qui comporte une mise en forme. Cette mise en forme modifie la couleur de la ligne et le format d'écriture lorsqu'un nombre est mis dans la colonne 7. (voir image jointe)


J'aimerais arriver à faire la même chose via VBA. Pour l'instant j'ai limité a mettre du bleu….
Mais ça marche pas !

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'Supprime le formatage conditionnel existant dans cette plage
Range("A1:AA2500").FormatConditions.Delete
 
'Création de la première règle
Range("$A$1:$AA$2500").FormatConditions.Add Type:=xlExpression, Formula1:="($E7)=vrai"
Range("$A$1:$AA$2500").FormatConditions(1).Interior.Color = vbBlue
 
(pour la couleur je veux faire cela !)
With Selection.Font
        .Name = "Aptos Narrow"
        .FontStyle = "Gras"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0
    End With

Je n'ai pas trouvé dans le forum… ou alors je n'ai pas encore les réflexes pour trouver si cela a déjà été traité ! Désolé si cela à déjà été traité, merci de me rediriger vers les post.
Est-ce que quelqu'un pourrait m'aider, je ne suis pas un "pro" du VBA.

Cordialement,
Zam44