Problème de mise en forme conditionnelleRésolu

Question

Bonjour le Forum,

Je me retourne vers vous une nouvelle fois car je bloque sur un petit problème de mise en forme conditionnelle.

Voici la description du problème :

-Dans une première feuille Excel, j'ai une valeur dans la cellule A1. Une valeur décimale. Ici on va la noter "a" pour simplifier le problème.

-Dans une deuxième feuille Excel, j'ai une valeur dans la cellule A1. Une valeur décimale. Ici on va la noter "b" pour simplifier le problème.

-J'aimerais appliquer une mise en forme conditionnelle à la cellule A1 de ma deuxième feuille avec Excel 2007. Mise en forme avec jeux d&#8217;icônes, les 3 drapeaux que propose Excel.

-"b" peut être plus grand que "a" tout comme il peut être plus petit que "a".

-J'aimerais aider l'utilisateur dans sa prise de décision et le guider à faire son choix concernant la valeur de "b".

Voici les conditions qui s'appliquent à la cellule A1 de la feuille 2 ("b"):

-Si "a"-2<"b"<"a"+2 alors drapeau Vert
-Si "a"-4<"b"<"a"+4 alors drapeau Orange
-Si "a"-6<"b"<"a"+6 alors drapeau Rouge


Le problème c'est que je ne sais pas comment coder tout sa, et de plus je vois bien qu'il y a un problème d'intervalle car le "drapeau Rouge" englobe à la fois l'intervalle "drapeau Orange et "drapeau Vert"

Je suis perdu pour le coup. La finalité de mon objectif étant grosso-modo, de faire afficher le drapeau Vert si la valeur absolue de la différence entre "a" et "b" est inférieur à 2, drapeau Orange si la valeur absolue de la différence comprise entre 2 et 4, puis drapeau Rouge si la valeur absolue de la différence supérieur à 4.


Si vous avez des idées, des conseils je suis preneur.

Bien cordialement,

André qui se casse la tête lol


PS : Je désire programmer la mise en forme conditionnelle sous VBA (Macro Excel). De plus, j'ai bien compris que pour faire appel à une valeur qui se trouve sur une autre feuille il faut nommer la plage. Du coup on peut dire que la cellule A1 de la feuille 1 est une plage nommée "MaPlage"

SERIEUXETCOOL · Accepted Answer

Me voici de retour...avec de bonnes nouvelles. J'y suis arrivé ENFIN !

J'ai du travailler un peu sur l'objet "sh" de l&#8217;évènement "WorkBook_Change" qui me posait problème. J'ai finalement trouvé comment m'en servir astucieusement.

Je suis même allé un peu plus loin car le fait de devoir "appeler" une tierce Macro associée à mon évènement "WorkBook_Change" ne me plaisais pas du tout. J'ai donc tout placé dans mon "WorkBook". Comme sa, plus de problème.
De plus, je ne l'avais pas correctement précisé au début, mais mes feuilles n'existent pas au début de ma Macro. Elles sont créées au fur et à mesure que la Macro principale avance. Donc pas facile d'utiliser l&#8217;évènement "WorkSheet_Change" quand les feuilles n'existent pas^^. D&#8217;où l'utilisation de l&#8217;évènement "WorkBook_Change"

Je post ici le code le plus actualisé ( à placer dans un "WorkBook" et non un "module") :

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Name "Feuil1" And Target.Address "$A$1" Then

        Cells.FormatConditions.Delete 'Supprime les mises en formes conditionnelles
        Sheets("Feuil1").Select 'Une nouvelle plage
        Range("A1").Select
        ActiveWorkbook.Names.Add Name:="Plage1", RefersToR1C1:="=Feuil1!R1C1"

        Sheets("Feuil2").Select 'Mise en forme conditionnelle
        Range("A1").Select
        Selection.FormatConditions.AddIconSetCondition
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1)
            .ReverseOrder = True
            .ShowIconOnly = False
            .IconSet = ActiveWorkbook.IconSets(xl3Flags)
        End With

        If Abs(Sheets("Feuil1").Range("A1") - Sheets("Feuil2").Range("A1")) <= 2 Then
        With Selection.FormatConditions(1).IconCriteria(2)
            .Type = xlConditionValueFormula
            .Value = "=Plage1+2"
            .Operator = 5
        End With
        End If

        If Abs(Sheets("Feuil1").Range("A1") - Sheets("Feuil2").Range("A1")) <= 4 Then
        With Selection.FormatConditions(1).IconCriteria(3)
            .Type = xlConditionValueFormula
            .Value = "=Plage1+4"
            .Operator = 5
        End With
        End If

        Range("A1").Select 'Pour se positionner proprement

        MsgBox "Vous venez de modifier la cellule " & Target.Address & " d'une valeur de " & Target.Value & " de la feuille " & Sh.Name

End If


If Sh.Name "Feuil2" And Target.Address "$A$1" Then

        Cells.FormatConditions.Delete 'Supprime les mises en formes conditionnelles
        Sheets("Feuil1").Select 'Une nouvelle plage
        Range("A1").Select
        ActiveWorkbook.Names.Add Name:="Plage1", RefersToR1C1:="=Feuil1!R1C1"

        Sheets("Feuil2").Select 'Mise en forme conditionnelle
        Range("A1").Select
        Selection.FormatConditions.AddIconSetCondition
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1)
            .ReverseOrder = True
            .ShowIconOnly = False
            .IconSet = ActiveWorkbook.IconSets(xl3Flags)
        End With

        If Abs(Sheets("Feuil1").Range("A1") - Sheets("Feuil2").Range("A1")) <= 2 Then
        With Selection.FormatConditions(1).IconCriteria(2)
            .Type = xlConditionValueFormula
            .Value = "=Plage1+2"
            .Operator = 5
        End With
        End If

        If Abs(Sheets("Feuil1").Range("A1") - Sheets("Feuil2").Range("A1")) <= 4 Then
        With Selection.FormatConditions(1).IconCriteria(3)
            .Type = xlConditionValueFormula
            .Value = "=Plage1+4"
            .Operator = 5
        End With
        End If

        Range("A1").Select 'Pour se positionner proprement

        MsgBox "Vous venez de modifier la cellule " & Target.Address & " d'une valeur de " & Target.Value & " de la feuille " & Sh.Name

End If

End Sub


Il ne reste plus qu'un problème que je vois à l'heure actuelle : Si je ne rentre pas un nombre dans ma cellule A1 de ma feuille 1 ou 2, alors sa me génère une erreur avec l'événement "WorkBook_Change". En effet je ne peux pas comparer une lettre à un nombre.

Question : Comment faire en sorte que l&#8217;évènement ne se déclenche que si le contenu de ma cellule A1 de ma feuille 1 ET A1 de ma feuille 2 sont des nombres au bon formats ? (avec une virgule et pas un point pour les nombres décimaux)
Ainsi si l'utilisateur entre une chaine de caractère ou par erreur de touche une lettre etc, alors l&#8217;évènement n'est pas pris en compte et sa ne fait pas bugger le programme.

Merci pour ces dernières précisions. Mon code sera alors optimisé je pense.

Bien cordialement,

André

SERIEUXETCOOL · Answer

Pas beaucoup d'idées on dirait...

C'est l'effet Dimanche ou alors j'ai mal exposé mon problème peut-être ?

N'hésitez pas à demander plus d'infos si besoin est.

Bien cordialement,

André

ucfoutu · Answer

Bonjour, C'est l'effet Dimanche ou alors j'ai mal exposé mon problème peut-être ? je crains fort que oui, car ceci : Voici les conditions qui s'appliquent à la cellule A1 de la feuille 2 ("b"): -Si "a"-2<"b"<"a"+2 alors drapeau Vert -Si "a"-4<"b"<"a"+4 alors drapeau Orange -Si "a"-6<"b"<"a"+6 alors drapeau Rouge est "informatiquement" incompréhensible ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

SERIEUXETCOOL · Answer

Alors comment rendre ceci informatiquement compréhensible ?

La finalité de mon objectif étant grosso-modo, de faire afficher le drapeau Vert si la valeur absolue de la différence entre "a" et "b" est inférieur à 2, drapeau Orange si la valeur absolue de la différence comprise entre 2 et 4, puis drapeau Rouge si la valeur absolue de la différence supérieur à 4. 


Enfin si c'est possible bien sur...

André

LIBRE_MAX · Answer

Bonsoir,

ce que voulait dire ucfoutu c' est qu' à ton avis,que pourrait être la valeur absolue de la 
différence entre "SERIEUX" et "COOL" ?

[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

1) une valeur x est comprise entre une valeur y et une valeur z si x est supérieur à y et inférieur à z ==>> If x > y And x < z Then .. 2) prévoir le cas si = (à mettre dans > (>=) ou dans < (<=)) 3) t'intéresser à Select Case,n bien confortable dans certains cas de figure. surtout pour cette partie : Le problème c'est que je ne sais pas comment coder tout sa, et de plus je vois bien qu'il y a un problème d'intervalle car le "drapeau Rouge" englobe à la fois l'intervalle "drapeau Orange et "drapeau Vert" Avec Select Case, en effet, la première condition vérifiée fait que les autres ne sont même pas "regardées". ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

un exemple ? toto = 1 Select Case toto Case Is <= 2 MsgBox "cas 1" Case Is <= 4 MsgBox "cas 2" Case Is <= 6 MsgBox "cas 3" End Select Bien que les 2ème et 3ème cas "englobent le 1er, on "quittera" ainsi sur le 1er cas. Le tout est de mettre (dans cet exemple) le cas le plus restrictif en premier et le cas le moins restrictif en dernier. ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et intéresse-toi également (et peut-être surtout) à ce qu'est la fonction ABS 
Voilà ! tu as maintenant tout entre tes mains pour travailler comme il le faut.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

SERIEUXETCOOL · Answer

Bonjour à tous,

LIBRE_MAX : que pourrait être la valeur absolue de la
différence entre "SERIEUX" et "COOL" ? 

Et bien si je déclare la variable "SERIEUX" et "COOL" comme étant des variables de type "Long" alors sa donne sa : ABS(SERIEUX - COOL)

Ou est le problème ???


Ucfoutu, j'ai suivi ton aide en utilisant "Select Case". Voici le code que je propose :

Option Explicit

Sub Macro1()

Select Case Sheets("Feuil2").Range("A1")
  Case (Sheets("Feuil1").Range("A1") - 2) To (Sheets("Feuil1").Range("A1") + 2)
    MsgBox "Drapeau Vert"
  Case (Sheets("Feuil1").Range("A1") - 4) To (Sheets("Feuil1").Range("A1") + 4)
    MsgBox "Drapeau Orange"
  Case Is < (Sheets("Feuil1").Range("A1") - 4)
    MsgBox "Drapeau Rouge"
  Case Is > (Sheets("Feuil1").Range("A1") + 4)
    MsgBox "Drapeau Rouge"
End Select

End Sub


En effet, sa m'affiche bien les 3 cas possibles dans le bon ordre (j'ai bien mis du plus restrictif au moins restrictif). Mais alors ma question est la suivante...A quoi sa me sert d'avoir fait sa maintenant ???

Je veux dire, ici sa m&#8217;affiche un message comme quoi je suis drapeau Vert, Orange, ou Rouge. Mais moi je désire une mise en forme conditionnelle par contre.
Je ne cherche pas à avoir un message à l'écran mais bel et bien la petite icône des drapeaux que propose Excel en mode mise en forme conditionnelle. Je veux une info "visuelle". De plus si ma valeur "a" ou "b" change, je veux avoir la nouvelle info en direct par un re-calcul immédiat. La mise en forme conditionnelle le fait très bien.

Que dois-je faire pour retomber sur mes pattes maintenant ?

Merci de votre aide.

André

ucfoutu · Answer

Déjà (et pour suivre ton exemple donné plus haut) : -Si "a"-2<"b"<"a"+2 alors drapeau Vert -Si "a"-4<"b"<"a"+4 alors drapeau Orange -Si "a"-6<"b"<"a"+6 alors drapeau Rouge veut dire qu'il te suffit d'examiner la valeur absolue de la différence, non ? =>> toto = >Abs(x-y) select case toto case 2 .... case 4 .... case 6 .... end select les petits points = tes instruction (pas nécessairement un msgbox) ! Après, ma foi, tu en fais ce que tu veux et comme tu l'entends. Ce que tu as ici, c'est la manière de déterminer en vue de faire ensuite comme tu l'entends ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

pardon ===>>> toto = ABS(x-y)   (bien sur)
Et quid si ?>>
Case 0
 ....

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

SERIEUXETCOOL · Answer

Je viens de voir ce lien qui me semble très intéressant car en rapport avec mon sujet. Mais je ne parviens pas à comprendre le fichier Excel.

De plus dans l'exemple du lien, le drapeau se trouve dans une cellule vide alors que moi je désire placer le drapeau dans une cellule contenant déjà une formule de calcul.

Ma demande est-elle simplement réaliste ???

André

PS : Le lien
Mise en forme conditionnelle : drapeaux : Excel - VBA

SERIEUXETCOOL · Answer

Merci Ucfoutu pour tes infos supplémentaires.

Je vais manger et je vois sa tout de suite après.

Je sens venir toute fois un problème qui est le suivant : Une fois ma macro lancée et terminée. Que se passe t'il si je change la valeur "a" ou "b" ??? Moi je souhaite un changement automatique des drapeaux en fonction de la valeur des données. J'ai peur que le changement ne soit pas pris en compte automatiquement et qu'il faille relancer la macro à chaque fois. Bon je verrais sa tout de suite après manger.

Je reviens...

Merci Ucfoutu

LIBRE_MAX · Answer

Bonjour,

A SERIEUXETCOOL:

Ce que je voulais dire c' est que "a" et "b", notés comme tels,ne sont plus des variables mais des chaines de caractères.

c' était juste ça.

Ceci dit, je te laisse entre de bonnes mains pour la suite.

Bonne journée à tous.



[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

Que se passe t'il si je change la valeur "a" ou "b"
Tu as pour cela au moins deux méthodes :
1) utiliser directement les formules de mise en forme conditionnelle
2) utiliser l'évènement Worksheet_Change et la fonction Intersect (par rapport au paramètre  Target présent dans Worksheet_Change). Je te conseille cette deuxième procédure, plus souple, moins gourmande et correspondant mieux à toutes tes conditions).
Vais-y  : commence à réfléchir d'abord seul... Ce n'est pas difficile.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

SERIEUXETCOOL · Answer

Pas difficile dis tu Ucfoutu ???

Lol

Allez parce que tu m'a fait rire en disant sa, je vais continuer de chercher encore.

Je post ci-après le code le moins pire actuellement. Il ne fonctionne que dans le cas ou la valeur "b" est plus grande que la valeur "a". Sinon sa ne fonctionne plus.

Option Explicit

Sub Macro1()

Sheets("Feuil1").Select
Cells.FormatConditions.Delete 'Supprime les mises en formes conditionnelles

Sheets("Feuil2").Select
Cells.FormatConditions.Delete 'Supprime les mises en formes conditionnelles

Sheets("Feuil1").Select 'Une nouvelle plage
Range("A1").Select
ActiveWorkbook.Names.Add Name:="Plage1", RefersToR1C1:="=Feuil1!R1C1"

    Sheets("Feuil2").Select 'Mise en forme conditionnelle
    Range("A1").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = True
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Flags)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueFormula
        .Value = "=Plage1+2"
        .Operator = 5
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueFormula
        .Value = "=Plage1+4"
        .Operator = 5
    End With

Sheets("Feuil2").Select 'Pour se positionner proprement
Range("A1").Select

End Sub

C'est presque ce que je voulais. La je traite bien le cas ou "a" est plus petit ou égal à "b". Mais il me reste encore à traiter le cas "a" plus grand strictement que "b".

Ucfoutu je ne parviens pas à comprendre ta solution. Je ne perçois pas le lien entre "Select Case" et mise en forme conditionnelle.

Dim Toto As Long 'Variables

Toto = Abs(Sheets("Feuil2").Range("A1") - Sheets("Feuil1").Range("A1"))
Sheets("Feuil2").Range("B1") = Toto

Select Case Toto 'Méthode qui fonctionne
  Case Is <= 2
    MsgBox "Drapeau Vert"
  Case Is <= 4
    MsgBox "Drapeau Orange"
  Case Is > 4
    MsgBox "Drapeau Rouge"
End Select


Peux tu me donner un peu plus de conseils ucfoutu ? La je galère pas mal on dirait bien...

André^^

SERIEUXETCOOL · Answer

je ne suis pas sur d'avoir raison, mais j'ai le sentiment qu'il faudra coder en VBA 3 fois la mise en forme conditionnelle si l'on utilise ta solution Ucfoutu ???

Du genre :

"Case Is <-2 Then MFC
Case Is <-4 Then MFC
Case Is >4 Then MFC"

Sa va faire lourd non ? Surtout s'il faut en plus ajouter un moyen d'intercepter le changement de valeur de "a" ou "b".

Suis-je dans le vrai ?

Sinon j'ai mis au point une astuce "simple" mais qui fait bricolage. étant donné que la condition intéressante est "ABS("a"-"b")" mais que je ne n'est pas de cellule contenant cette valeur absolue, je peux utiliser la cellule juste à la droite de "b" lui faire calculer la valeur absolue de la différence puis d'y affecter ensuite la mise en forme conditionnelle en masquant le contenue de la cellule. Du coup "presque" ni vu ni connu et j'ai le drapeau avec la valeur de "b".

Pas terrible comme solution ??? Mais bon sa débrouille un peu pour le moment.

André

SERIEUXETCOOL · Answer

Tjs pas d'idées en vues ?

Je m'exprime mal ou mon problème est sans solutions ? La je patouille depuis ce matin et j'ai pas franchement trouvé de solution miracle.

Un peu d'aide ou des conseils seraient les bienvenus.

Merci à vous.

André

Ps : N'hésitez pas à posez vos questions si besoin est. Je suis la pour éclaircir les doutes...

SERIEUXETCOOL · Answer

J'ai mis au point le code suivant qui fonctionne assez bien. Le seul inconvénient c'est qu'il faut que je relance la macro pour que sa se recalcule automatiquement.

Ma question est simple : Comment pourrais-je améliorer mon code de façon à ce que dès que la cellule A1 de la feuille 1 ou la cellule A1 de la feuille 2 change, alors sa met à jour tout seul ???

Ucfoutu tu m'as parlé de sa :

    Que se passe t'il si je change la valeur "a" ou "b"


Tu as pour cela au moins deux méthodes :
1) utiliser directement les formules de mise en forme conditionnelle
2) utiliser l'évènement Worksheet_Change et la fonction Intersect (par rapport au paramètre Target présent dans Worksheet_Change). Je te conseille cette deuxième procédure, plus souple, moins gourmande et correspondant mieux à toutes tes conditions). 


Voici le code :

Option Explicit

Sub Macro1()

Sheets("Feuil1").Select
Cells.FormatConditions.Delete 'Supprime les mises en formes conditionnelles

Sheets("Feuil2").Select
Cells.FormatConditions.Delete 'Supprime les mises en formes conditionnelles

Sheets("Feuil1").Select 'Une nouvelle plage
Range("A1").Select
ActiveWorkbook.Names.Add Name:="Plage1", RefersToR1C1:="=Feuil1!R1C1"

    Sheets("Feuil2").Select 'Mise en forme conditionnelle
    Range("A1").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = True
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Flags)
    End With

If Abs(Sheets("Feuil1").Range("A1") - Sheets("Feuil2").Range("A1")) <= 2 Then
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueFormula
        .Value = "=Plage1+2"
        .Operator = 5
    End With
End If

If Abs(Sheets("Feuil1").Range("A1") - Sheets("Feuil2").Range("A1")) <= 4 Then
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueFormula
        .Value = "=Plage1+4"
        .Operator = 5
    End With
End If

Sheets("Feuil2").Select 'Pour se positionner proprement
Range("A1").Select

End Sub


Merci à ceux qui pourront m'aider sur ce nouveau problème bcp plus simple maintenant.

André

cs_GG72 · Answer

Bonjour, 

Il te suffit maintenant d'appeler cette procédure à partir des événements  Worksheet_Change de tes feuilles "Feuil1" et "Feuil2" après avoir vérifié l'adresse des Ranges modifiés (Target.Address).

C'est ce que te disait ucfoutu dans sa 2ème méthode.

Bonne soirée.

ucfoutu · Answer

Je voudrais vraiment que tu relises attentivement cette phrase, André :
2) utiliser l'évènement Worksheet_Change et la fonction Intersect (par rapport au paramètre Target présent dans Worksheet_Change)

Elle est ta solution à :
Ma question est simple : Comment pourrais-je améliorer mon code de façon à ce que dès que la cellule A1 de la feuille 1 ou la cellule A1 de la feuille 2 change, alors sa met à jour tout seul ??? 
L'évènement Change d'une feuille intervient spontanément dès que tu modifies une valeur.
Le paramètre Target qui figure dans cet évènement définit la cellule modifiée.
Alors ?
Je voudrais que tu réfléchisses à ce que fait cet EXEMPLE (EXEMPLE, hein, afin que tu réfléchisses à comment utiliser adroitement cet évènement)

Tu ouvres un nouveau projet ===>> tu vas sur Feuil1 ===>> tu cliques sur l'onglet développeur ===>> puis editeur visual basic ==>>> tu es maintenant face à une fenêtre qui n'est plus ta feuille ===>> regarde-la bien : dans la grande "zone" blanche dans la partie droite : tu as deux colonnes ===>> dans celle de gauche : choisis WorkSheet. Dans celmle de droite, choisis l'évènement Change ===>> regarde bien.
Mets-y ensuite ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then
    MsgBox "tu biens de modifier une cellule de la colonne A de la feuille " & ActiveSheet.Name
  End If
End Sub
retourne à tes Feuilles de calcul ===>> active Feuil2 ===>> fais la même chose dans son évènement Change ===>> même code
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then
    MsgBox "tu biens de modifier une cellule de la colonne A de la feuille " & ActiveSheet.Name
  End If
End Sub

retourne à tes feuilles ===>> sors du mode création (si tu y es encore) ===>> va sur Feuil1 ===>> modifie une cellule de la colonne A et va sur une autre cellule ===>> observe
=>> va sur Feuil2 ===>> modifie une cellule en colonne A ===> va sur une autre cellule ===>> Observe
Intéressant ?
Voilà ! Ce sont les premiers pas à faire et je tiens à ce que tu les fasses, car ils t'ouvrent une porte en grand (et ce sont des gestes simples).




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

SERIEUXETCOOL · Answer

Je vais tester tes conseils Ucfoutu. Ils me semblent bons !
GG72 merci aussi de tes conseils ;)

J'avais déjà entendu parler à plusieurs reprises de cet événement "whorsheet_Change" mais je ne m'y étais encore jamais frotté car sa me faisait peur. Cette fois-ci, plus d'autre solution que de me pencher sur cet événement.

Je vais découvrir une nouvelle chose sur les Macro Excel lol. Je vous ferait un retour dès que j'aurais un résultat probant.
Je vais tester sa ce soir, et je devrais vous dire sa demain matin^^

Au moins, je sais que je suis presque au bout de la solution. Ne me reste plus qu'a travailler cet événement et hop sa devrait rouler tout seul sans que sa soit lourd à gérer. Enfin j'espère^^...

A toute, et merci pour vos conseils. Je les prends tous.

Bien cordialement,

André

SERIEUXETCOOL · Answer

J'ai suivis tes conseils Ucfoutu et je suis arrivé à 2 codes possibles qui fonctionnent. Mais il ne sont pas opérationnels à 100%.

Voici le premier code :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address =   "$A$1" Then
    Call Macro1
  End If
End Sub

Je colle ce code dans la feuille 1 ET la feuille 2. Sa marche bien. L'inconvénient de cette méthode est que dans mon cas à moi, je pars d'un classeur Excel ne contenant qu'une seule feuille au début. Ensuite via une macro je créer 2 nouvelles feuilles. Et je dois placer ce fameux code dans les deux nouvelles feuilles qui viennent d'être créées via la macro.

Bilan comment dois-je m'y prendre pour placer ce code dans une feuille qui n'existe pas à l'ouverture du classeur Excel mais qui est créée en cours de route ???

La je bloque, et je ne trouve pas de pistes. Comment fait-on cela ?


Enfin une autre solution que j'ai mis en place. C'est une petite variante de la solution précédente. Je me suis dit, puisque je ne dispose pas des deux feuilles au début de la macro alors je vais essayer de travailler avec le seul élément présent à l'ouverture d'un classeur...Le Workbook !

  Voici le deuxième code :  

Option Explicit

'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'If Target.Address   "$A$1" Or Target.Address   "$A$1" Then
'    Call Macro1
'        MsgBox "Vous venez de modifier la cellule " & Target.Address & _
'        " (" & Target.Value & ")"
'  End If
'End Sub


La encore sa marche bien. Sa marche même mieux que le code précédent. C'est plus simple à coder et plus logique en fait. Malheureusement, sa ne fonctionne que si je travaille sur la cellule "A1" pour les deux feuilles ! C'est à dire que si j'utilise "A1" de la feuille 1 et "C4" de la feuille 2 sa ne fonctionne plus. Il faut pour cela que j'intègre le nom des feuilles respectives.

Mais je ne sais pas faire cela ! Et sa m'agace. Je me casse la tête dessus depuis des heures maintenant. Comment fait-on cela ???

Alors en cherchant des solutions pour mon problème j'ai créé le code suivant qui fonctionne bien lui aussi.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value Sheets("Feuil2").Range("A1") Or Target.Value Sheets("Feuil1").Range("A1") Then
    Call Macro1
        MsgBox "Vous venez de modifier la cellule " & Target.Address & _
        " (" & Target.Value & ")"
  End If
End Sub


Le problème c'est que je ne veux pas un "Target.Value" mais un "Target.Address" car je ne sais pas pourquoi mais sa fonctionne moins bien en "Target.Value". Et je ne sais pas faire avec "Target.Address".


  En conclusion :  

Il suffit de corriger cette expression pour que le code fonctionne bien. Le travail est mâché à 90 %. Ce n'est plus qu'un problème de syntaxe maintenant.

If Target.Address   "'Feuil1'!$A$1" Or Target.Address "'Feuil2'!$A$1" Then


Merci de votre aide. Je pensais que c'était un problème simple, mais finalement il est bien plus compliqué qu'il n'en a l'air !

André

PS : Ucfout, je n'ai pas compris la fonction "Intersect". Dans mon cas j'utilise une cellule sur une feuille, et une autre cellule appartenant à une autre feuille. L'intersection des deux est forcément nul non ?

ucfoutu · Answer

Allons allons, André !
N'as-tu pas comme l'impression que tu connais la solution ?
C'est quoi, d'après toi ActiveSheet dans cette ligne de code que tu as essayée :
 MsgBox "tu biens de modifier une cellule de la colonne A de la feuille " & ActiveSheet.Name
Et c'est quoi, sa propriété Name ?
Alors ===>> essaye donc ! 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et d'ailleurs :
C'est quoi, ce paramètre Sh dans :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

pas d'idée ?
Essaye donc
 msgbox Sh.Name
pour voir 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_GG72 · Answer

Bonjour,

Dans ton
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
tu récupères le nom de la feuille modifiée (Sh.Name) et l'adresse du range modifié (Target.Address)

Il te suffit de "regarder" les valeurs retournées pour savoir, si oui ou non, tu viens de modifier les cellules concernées par ta MFC.

cs_GG72 · Answer

Comment faire en sorte que l'évènement ne se déclenche que si le contenu de ma cellule A1 de ma feuille 1 ET A1 de ma feuille 2 sont des nombres au bon formats ?
L'événement se déclenchera obligatoirement.

Par contre, il te faut tester la validité de la saisie par Target.Value dès l'entrée dans la procédure et en sortir par Exit Sub si saisie non valide.

Mais comment gères-tu une modification dans les 2 nouvelles feuilles que tu ajoutes par le code?
Le code que tu nous montres ne teste que Feuil1 et Feuil2.

Même question si Range autre que "A1"

SERIEUXETCOOL · Answer

Merci pour l'info GG72. J'ai suivis ton conseil et sa ma amené sur une bonne solution. Nice !

Pour répondre à tes questions... En effet, le code que j'ai montré ne fait pas apparaître la création ou la suppression de nouvelles feuilles. Ce qui est normal car le code que j'ai proposé juste au dessus, n'est pas dans un module mais dans un WorkBook. Il ne s'agit que d'un évènement qui contrôle deux cellules : une cellule "A1" dans une feuille "Feuil1" et une cellule "A1" dans une feuille "Feuil2" suite au changements des ces cellules, on affecte une mise en forme conditionnelle particulière.

La suppression et la création des feuilles se fait dans mon module principal, ma Macro. Je n'ai pas mis ces détails car c'est de la programmation lourde pour rien.
Ma macro ajoute 2 feuilles et les renommes. Ce sont ces 2 nouvelles feuilles fraichement créés et renommées que mon évènement WorkBook va surveiller par la suite.
J'ai testé et sa fonctionne bien. Que les feuilles excitent ou pas encore sa marche.


Voili voila. En ce qui concerne les cellules, j'ai modifier radicalement mon code. Je le post juste après. Il gère le nom des feuilles, ET le nom des cellules en question ;)

Pratique hein^^

Merci pour ton aide GG72

SERIEUXETCOOL · Answer

Comme promis me voici de nouveau...

Ayé mon problème est résolu à 100%. Merci à toi aussi Ucfoutu pour ton aide précieuse.

Le code a été testé et il fonctionne bien. A noter que j'ai particulièrement modifié le code pour le rendre plus souple et plus simple d'utilisation.
J'ai divisé le nombre de lignes par 2, mis les paramètres essentiels en variables pour éviter de devoir chercher dans le code la ou il faut changer les valeurs.

Du coup c'est que du bonheur et sa marche !

Je poste ci-après la version définitive du code :

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim F1 As String, F2 As String, L1 As String, L2 As String 'Définitions des variables
Dim C1 As Integer, C2 As Integer
Dim V1 As Long, V2 As Long

F1 = Worksheets("Feuil1").Name 'Nom de la première feuille
F2 = Worksheets("Feuil2").Name 'Nom de la deuxième feuille
L1 = "A" 'Cellule de la première feuille
C1 = 1 'Cellule de la première feuille
L2 = "A" 'Cellule de la deuxième feuille
C2 = 1 'Cellule de la deuxième feuille
V1 = 2 'Premier intervalle pour le jeu d'icônes
V2 = 4 'Deuxième intervalle pour le jeu d'icônes

If IsNumeric(Target.Value) Then

    If (Sh.Name F1 And Target.Address "$" & L1 & "$" & C1) Or (Sh.Name = F2 And Target.Address = "$" & L2 & "$" & C2) Then

            Cells.FormatConditions.Delete 'Supprime les mises en formes conditionnelles
            Sheets(F1).Select 'Nomme une nouvelle plage
            Range("" & L1 & "" & C1).Select
            ActiveWorkbook.Names.Add Name:="Plage1", RefersToR1C1:=ActiveCell

            Sheets(F2).Select 'Mise en forme conditionnelle
            Range("" & L2 & "" & C2).Select
            Selection.FormatConditions.AddIconSetCondition
            Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            With Selection.FormatConditions(1)
                .ReverseOrder = True
                .ShowIconOnly = False
                .IconSet = ActiveWorkbook.IconSets(xl3Flags)
            End With

            If Abs(Sheets(F1).Range("" & L1 & "" & C1) - Sheets(F2).Range("" & L2 & "" & C2)) <= 2 Then
            With Selection.FormatConditions(1).IconCriteria(2)
                .Type = xlConditionValueFormula
                .Value = "=Plage1+" & V1
                .Operator = 5
            End With
            End If

            If Abs(Sheets(F1).Range("" & L1 & "" & C1) - Sheets(F2).Range("" & L2 & "" & C2)) <= 4 Then
            With Selection.FormatConditions(1).IconCriteria(3)
                .Type = xlConditionValueFormula
                .Value = "=Plage1+" & V2
                .Operator = 5
            End With
            End If

            Range("" & L2 & "" & C2).Select 'Pour se positionner proprement

            MsgBox "Vous venez de modifier la cellule " & Target.Address & " d'une valeur de " & Target.Value & " de la feuille " & Sh.Name

    End If
End If

End Sub


Voila, 2 jours pour régler mon problème de drapeaux, mais je suis fière d'avoir pondu ce code avec un peu d'aide je dois l'admettre. Merci à ceux qui m'ont conseillé. C'est sympa de votre part.

Bien cordialement,

André qui a finit de se casser la tête^^


OUUUUUUF !

Problème de mise en forme conditionnelle

29 réponses

Votre réponse

Discussions similaires