Discussion :

[Meranto]

Bonjour

Je vous explique, je dispose d'une macro qui crée des pages, j'ai juste trois feuilles fixe dès le début sur mon Excel.
Mon souhait serais de crée une fonction pour coloriser en rouge toute les cases de ma colonne B qui sont supérieur à 20.
Cependant je voudrais que la valeur soit un paramètre ajustable disponible sur l'une des cases de l'une de mes feuilles déjà présente sur mon Excel.

Je n'ai absolument aucune idée de comment faire :/

Merci d'avance pour vos réponses !

[antonysansh]

Bonjour Meranto,

Voilà une Sub qui ajoute la MFC que tu veux faire sur toute la colonne B :

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 Test_MFC()
 
Dim Sh As Worksheet
Set Sh = ActiveSheet
 
With Sh
    .Columns("B:B").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=20"
    With .Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
End With
 
End Sub

[joe.levrai]

Bonjour,

ton paramètre est là

Code :

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

Formula1:="=20"

il suffit de remplacer 20 par une variable, et ton paramètre est maintenant ajustable

voici un 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
16
17
18
19
20
21
22
 
Sub Test_MFC()
 
Dim Sh As Worksheet
Dim i As String
Set Sh = ActiveSheet
 
i = InputBox("Entrez un nombre")
 
If Not IsNumeric(i) Then Exit Sub
If CLng(i) <> i Then Exit Sub
 
With Sh
    .Columns("B:B").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & CLng(i)
    With .Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
End With
 
End Sub

[Meranto]

Merci pour les réponses rapide !

Seulement est ce que c'est > à 20 ou juste = à 20 ?

Et est ce que je peux récupéré la valeur non pas avec une box mais plutôt dans une case sur une feuil prédéfinis ?

[joe.levrai]

En fait, tu as plusieurs paramètres dans ta MEF dont :

Code :

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

Operator:=xlGreater, Formula1:="=20"

L'opérateur indique que la MEF s'appliquera en cas de Valeur "Supérieure à"
La formule indique la valeur

l'addition des deux paramètres donne : ">" à "Valeur"


il est bien sûr possible de récupérer la valeur depuis une cellule Excel
Par exemple, la Cellule A1 de la feuille active

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
Sub Test_MFC()
 
Dim Sh As Worksheet
Set Sh = ActiveSheet
 
 
If Not IsNumeric(Sh.Range("A1").Value) Then Exit Sub
If CLng(Sh.Range("A1").Value) <> Sh.Range("A1").Value Then Exit Sub
 
With Sh
    .Columns("B:B").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & Sh.Range("A1").Value
     With .Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
End With
 
End Sub

[Meranto]

Excellentes explications !

Je te remercie énormément pour ta réactivité

Il est donc possible de sélectionner la feuil contenant la règle et de l'appliquer sur une feuil crée par ma macro ?

Ah et est ce que c'est le fond de la case qui est rouge ou est ce que c'est la police qui est en rouge ?

[joe.levrai]

tu devrais le savoir, puisque c'est toi qui a généré la macro avec l'enregistreur

Code :

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

1
2
3
4
5
With .Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With

c'est bien l'intérieur de la cellule

pour la police, il faut remplacer "Interior" par "Font"