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

[Malick]

Bonjour,

Essayez avec ce code :

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
Sub MettreEnFormeConditionnelle()
    ' Supprime le formatage conditionnel existant dans cette plage
    Range("A1:AA2500").FormatConditions.Delete
 
    ' Crée une nouvelle règle de mise en forme conditionnelle
    Dim Plage As Range
    Set Plage = Range("A1:AA2500")
 
    ' Ajoute une condition pour la colonne G (colonne 7) non vide
    Plage.FormatConditions.Add Type:=xlExpression, Formula1:="=($G1<>"")"
 
    ' Définit la couleur de fond en bleu pour cette condition
    Plage.FormatConditions(1).Interior.Color = vbBlue
 
    ' Définit les autres paramètres de mise en forme (police, etc.)
    With Plage.FormatConditions(1).Font
        .Name = "Aptos Narrow"
        .FontStyle = "Gras"
        .Size = 11
        .ThemeColor = xlThemeColorDark1
    End With
 
    ' Vous pouvez aussi personnaliser d'autres aspects comme la couleur du texte ou d'autres paramètres ici
End Sub

[Zam44]

Bonjour Malick,

Tout d'abord merci d'avoir répondu.

Je m'aperçois que j'ai oublié un élément dans mon essai de programmation.
Je souhaite que la "macro" réagisse au fait que la colonne "E" (colonne 5) soit "numérique".

J'ai tenté de modifier ce que tu m'as envoyé (ligne 9 et 10) mais je dois oublier quelque chose.
J'ai la formule suivante :

' Ajoute une condition pour la colonne E (colonne 5) numérique
Plage.FormatConditions.Add Type:=xlExpression, Formula1:="=(isnumeric ($E1))"


Pourquoi cela ne fonctionne pas ?
Merci de tes lumières.

[Zam44]

Après Modification, j'obtiens :

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
Sub FormaterLignesSiE7EstNombre_Conditionnelle()
 
    ' Définir la plage sur laquelle appliquer la mise en forme conditionnelle (lignes 7 à 2500, colonnes A à AA)
    Dim plage As Range
    Set plage = Range("A7:AA2500")
 
    ' Supprimer le formatage conditionnel existant dans cette plage
    plage.FormatConditions.Delete
 
    ' Ajouter la mise en forme conditionnelle (fond bleu si la cellule E7 est un nombre)
    plage.FormatConditions.Add Type:=xlExpression, Formula1:="=ESTNUM($E7)"
 
    With plage.FormatConditions(1)
        ' Format de la police
        .Font.Underline = xlUnderlineStyleNone
        .Font.ThemeColor = xlThemeColorDark1
        .Font.TintAndShade = 0
        .Font.ThemeFont = xlThemeFontMinor
 
        ' Format de l'arrière-plan (bleu clair)
        .Interior.Pattern = xlSolid
        .Interior.ThemeColor = xlThemeColorLight2
        .Interior.TintAndShade = 0.249946592608417
        .Interior.PatternTintAndShade = 0
    End With
 
End Sub

...ET ça marche !

Si cela peut servir à quelqu'un !

Cordialement

[Malick]

Salut,

Merci pour ce retour et le partage de la solution finale