Macro MFC "supérieur à"

**Meranto** · 22/04/2015, 16h54

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** · 22/04/2015, 17h05

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** · 22/04/2015, 17h10

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** · 22/04/2015, 18h13

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** · 22/04/2015, 18h26

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** · 22/04/2015, 19h22

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** · 22/04/2015, 19h29

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"

**Meranto** · 22/04/2015, 19h32

Ok merci !

Sujet clos

**Meranto** · 23/04/2015, 15h23

Je me permet de reposter, car j'ai tester le code etc... Cela fonctionne très bien !
Seulement je pensais que le chiffre écrit sur la case pouvais rendre la feuille dynamique !

Je m'explique, en fait j'ai écrit dans la case voulu avec les lignes de code qu'il faut bien.
J'ai une case A7 qui vaut 20.

Je récup donc cette valeur a l'aide du bout de code que tu m'as donner, la colorisation se fait a merveille !
Seulement je pensais que si je changeais la valeur directement sur la feuille ça le prendrais en compte :/

Du coup voilà mon nouveau problème, j'aimerais quelque chose de dynamique et non fixer dans le code !

Merci bien !

**joe.levrai** · 23/04/2015, 15h38

ta MEF est figée car c'est la valeur de A1 qu'on a mis dans la formule de vérification de condition

il suffit de mettre l'adresse de la cellule et c'est dynamique

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:="=$A$1"  ' ou "=Sh.Range("A1").Address"
     With .Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
End With
 
End Sub

**Meranto** · 23/04/2015, 15h43

Oui il n'y a qu'une seule MFC !

Dans le module de la feuille en question ?

Est ce que je peux rajouter un ciblage de feuille plutôt ? Du style Sheets("Feuil1").Select ?
Car souviens toi, la feuille se crée avec ma macro

**joe.levrai** · 23/04/2015, 15h46

j'ai modifié mon code intial, il n'y avait pas besoin de passer par un évènement change sur la feuille
(la digestion est difficile aujourd'hui !)

on reste sur une macro classique, tu mets en place ta MEF et en changeant la valeur en A1 tu modifies la borne d'activation de ta MEF

pour modifier la feuille, il te suffit de l'affecter à la variable Sh

**Meranto** · 24/04/2015, 15h26

Bonjour bonjour !

Ca marche niquel, j'te remercie.

Mais je me demandais, est ce qu'il est possible de communiquer entre deux fichier excel ?
Ce que j'aimerais faire c'est avoir ma macro avec la MEF et tout le reste.
Et sur un autre fichier nommé : Changer_valeur_MEF
Avoir un bouton, ou l'on clique dessus, on rentre une valeur, par exemple 10 et sur mon autre fichier la valeur initiale que j'ai mit dans la case A7 change avec la nouvelle rentrer dans l'autre fichier.
Ou même en y repensant, juste faire un autre fichier Excel avec la valeur dans une case, et le fichier avec ma macro récupère cette valeur dans le fichier ?

Mon fichier possède un sub enregistrement/impression qui ferme le fichier et l'imprime de suite sans pouvoir rien changer, c'est pour cela que j'ai pensé a un système de ce type.

Dans les deux cas je ne sais pas si c'est possible, ni comment faire x)

**joe.levrai** · 24/04/2015, 15h47

Bonjour,

c'est bien sûr possible, mais on va perdre la notion de "dynamique" dans ce que je peux personnellement te proposer
(d'autres ont peut être une méthode qui ne la casse pas)

voilà pour l'exemple... faut maintenant que tu adaptes au contexte

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 Valeur
Set Sh = ActiveSheet
 
'le classeur doit être ouvert au préalable
Valeur = Workbooks("NomDuFichier").Worksheets("NomDeLaFeuille").Range("AddresseDeLaCellule").Value
 
If Not IsNumeric(Valeur) Then Exit Sub
If CLng(Valeur) <> Valeur Then Exit Sub
 
With Sh
    .Columns("B:B").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & Valeur  
     With .Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
End With
 
End Sub

**Meranto** · 24/04/2015, 15h48

Une solution existe si le classeur est fermer ?

**joe.levrai** · 24/04/2015, 15h50

on peut ouvrir le classeur, lire la valeur, et le refermer
on peut lire dans un classeur fermé, mais je ne l'ai jamais fait (il y a un excellent tutoriel à ce sujet sur le site)
on pourra effectuer une liaison entre les deux classeurs ? Est-ce que ça marcherait dans ton cas ? C'est sur ce point là que je ne préfère pas m'aventure, car je ne maîtrise pas

**Meranto** · 24/04/2015, 15h51

Je pense que la première solution est plus simple dans mon cas !

**joe.levrai** · 24/04/2015, 16h01

voici, tu dois juste bien saisir le nom du classeur, feuille, cellule etc..

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
Sub Test_MFC()
 
Dim Sh As Worksheet
Dim Wb as Workbook
Dim Valeur
Set Sh = ActiveSheet
 
Set Wb = Workbooks.Open("Chemin du fichier", , True)  'True permet de l'ouvrir en lecture seule
Valeur = Wb.Worksheets("NomDeLaFeuille").Range("AddresseDeLaCellule").Value
Wb Close False  ' False permet de fermer le fichier sans l'enregistrer
Set Wb = Nothing
 
If Not IsNumeric(Valeur) Then Exit Sub
If CLng(Valeur) <> Valeur Then Exit Sub
 
With Sh
    .Columns("B:B").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & Valeur  
     With .Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
End With
 
End Sub

**Meranto** · 24/04/2015, 16h03

Hâte d'essayer tout ça !

Merci et bon week end à toi

**joe.levrai** · 24/04/2015, 16h12

au passage, tu testeras le cas où ta cellule qui contient la valeur est vide

je suis pas sûr mais faut gérer le cas à part car ça va faire planter le schmilblick

Macro MFC "supérieur à" [XL-2007]

Macros et VBA Excel

Partager

Partager