Bonjour à tous,

J'essaie d'écrire une macro pour rendre automatique la mise en forme de tableaux. Seulement le Hic c'est qu'avec mes maigres connaissances parfois je coince :

Mon soucis actuel est que j'essaie d'intégrer une règle de mise en forme conditionnelle avec une formule mais je n'arrive pas à "bien l'écrire" sous VBA et du coup cela ne fonctionne pas...

J'essaie d'écrire cette formule : "$F5 = "SA" en sachant qu'en fonction du tableau sélectionné le "$F5" change. J'ai donc écris ceci :

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
b = 6
 
'For b = 5 To 60 Step 12
 
Dim for_3_1 As String, lettre_colonne As String
 
lettre_colonne = Split(Columns(b).Address(ColumnAbsolute:=True), ":")(1)
 
for_3_1 = lettre_colonne & 5 & "=""SA"""
 
'Application formule 3
 
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=for_3_1 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
    End With
    Selection.FormatConditions(1).StopIfTrue = False
J'utilise la fonction split pour récupérer la lettre de la colonne, j'y associe le numéro de ligne puis le =""SA""" et malgré pleins de tentative je fini toujours par obtenir dans mon tableau de mise en forme conditionnelle ceci : ="$F5=""SA"""

Du coup j'aimerais avoir un ptit coup de main pour comprendre ce que je fais mal ?

Merci
Bonne journée

Bastien