Macro MFC "supérieur à"

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/04/2015, 15h54
Meranto

Macro MFC "supérieur à"

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 !

Bonjour Meranto,

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

Code:

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

Bonjour,

ton paramètre est là

Code:

Formula1:="=20"

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

voici un exemple

Code:

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

22/04/2015, 17h13
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 ?

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

Code:

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:

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

22/04/2015, 18h22
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 ?
22/04/2015, 18h29
joe.levrai
tu devrais le savoir, puisque c'est toi qui a généré la macro avec l'enregistreur :roll:
Code:

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"
22/04/2015, 18h32
Meranto

Ok merci !

Sujet clos :)
23/04/2015, 14h23
Meranto

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 !

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:

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

23/04/2015, 14h43
Meranto

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
23/04/2015, 14h46
joe.levrai

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
24/04/2015, 14h26
Meranto

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)

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:

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

24/04/2015, 14h48
Meranto

Une solution existe si le classeur est fermer ?
24/04/2015, 14h50
joe.levrai

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
24/04/2015, 14h51
Meranto

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

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

Code:

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

24/04/2015, 15h03
Meranto

Hâte d'essayer tout ça !

Merci et bon week end à toi :)
24/04/2015, 15h12
joe.levrai

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

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 13h13.