Répondre à la discussion

Message

<blockquote data-quote="Au_noun" data-source="post: 20449989" data-attributes="member: 224656">Bonjour,Je reviens encore vers vous pour une nième fois pour un coup de pouceLe code parcours les chaines de caractères (valeurs) de chaque cellule de la colonne C dans Feuil1 et recherche ces valeurs dans la colonne A de feuil2.Les conditions sont :1 - Si [la cellule de la colonne C est vide alors on met la cellule en rouge]2- Sinon on recherche la (les) valeur(s) de la cellule dans la Feuil2!A, et Si une(les) valeur(s) ne se trouve pas dans Feuil2!A alors on met la cellule en rouge]3 - Sinon si la valeur se trouve dans trouve dans Feuil2!A Et en plus de ça Feuil2!C &lt; Feuil1!D, on met la cellule en Jaune sinon on laisse en blanc.Les conditions 1 et 2 marchent parfaitement bien mais par contre j'ai essayé la condition 3, ça ne marche pasQuelqu'un aura des suggestions à me donner ? Merci.Je mets en pièce jointe le fichier Excel avec le résultat attendu et les explications[CODE=vb]Sub Analyser4()Dim x, NumRows, xPriority2, xPriority1 As IntegerDim Cell As RangeDim yCell As RangeDim zCell As Range&nbsp; &nbsp; Application.ScreenUpdating = False&nbsp;&nbsp; &nbsp;'NumRows = Range(&quot;A2&quot;, Range(&quot;A2&quot;).End(xlDown)).Rows.Count&nbsp;&nbsp; 'For x = 5 To NumRows&nbsp; &nbsp; Range(&quot;A2:C18&quot;).Interior.Color = RGB(255, 255, 255)&nbsp; &nbsp; For Each Cell In Range(&quot;C2:C18&quot;)&nbsp;&nbsp; &nbsp; &nbsp;&nbsp; 'For Each yCell In Range(&quot;D&quot; &amp; x)&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; 'For Each zCell In Sheets(&quot;Feuil2&quot;).Range(&quot;C&quot; &amp; x)&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If IsEmpty(Cell.Value) = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Range(&quot;C2&quot;).End(xlDown).Interior.Color = RGB(255, 0, 0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 0).Interior.Color = RGB(255, 0, 0)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; LesClass = Split(Cell.Value, &quot;,&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'xPriorityI = Split(yCell.Value, &quot;-&quot;)(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'xPriorityP = Split(zCell.Value, &quot;-&quot;)(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'xPriorityI = Mid(Range(&quot;D&quot; &amp; x).Value, 2, 1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'xPriorityP = Mid(Sheets(&quot;Feuil2&quot;).Range(&quot;C&quot; &amp; x).Value, 2, 1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For i = 0 To UBound(LesClass)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Equiv = Application.Match(Trim(LesClass(i)), Sheets(&quot;Feuil2&quot;).Range(&quot;A2:A22&quot;), 0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If IsError(Equiv) = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; NonTrouve = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NonTrouve = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next i&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NonTrouve = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 0).Interior.Color = RGB(255, 128, 128)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'ElseIf IsError(xEquiv) = False And xPriority2 &lt; xPriority1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Range(&quot;A&quot; &amp; x).Interior.Color = RGB(224, 255, 96)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Exit For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Exit For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Exit For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Next&nbsp; &nbsp; &nbsp; &nbsp; 'Next&nbsp; &nbsp; Next Cell&nbsp;&nbsp; &nbsp; &nbsp; 'Next x&nbsp; &nbsp; Application.ScreenUpdating = TrueEnd Sub[/CODE]</blockquote>

[QUOTE="Au_noun, post: 20449989, member: 224656"] Bonjour, Je reviens encore vers vous pour une nième fois pour un coup de pouce Le code parcours les chaines de caractères (valeurs) de chaque cellule de la colonne C dans Feuil1 et recherche ces valeurs dans la colonne A de feuil2. Les conditions sont : 1 - Si [la cellule de la colonne C est vide alors on met la cellule en rouge] 2- Sinon on recherche la (les) valeur(s) de la cellule dans la Feuil2!A, et Si une(les) valeur(s) ne se trouve pas dans Feuil2!A alors on met la cellule en rouge] 3 - Sinon si la valeur se trouve dans trouve dans Feuil2!A Et en plus de ça Feuil2!C < Feuil1!D, on met la cellule en Jaune sinon on laisse en blanc. Les conditions 1 et 2 marchent parfaitement bien mais par contre j'ai essayé la condition 3, ça ne marche pas Quelqu'un aura des suggestions à me donner ? Merci. Je mets en pièce jointe le fichier Excel avec le résultat attendu et les explications [CODE=vb]Sub Analyser4() Dim x, NumRows, xPriority2, xPriority1 As Integer Dim Cell As Range Dim yCell As Range Dim zCell As Range Application.ScreenUpdating = False 'NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count 'For x = 5 To NumRows Range("A2:C18").Interior.Color = RGB(255, 255, 255) For Each Cell In Range("C2:C18") 'For Each yCell In Range("D" & x) 'For Each zCell In Sheets("Feuil2").Range("C" & x) If IsEmpty(Cell.Value) = True Then 'Range("C2").End(xlDown).Interior.Color = RGB(255, 0, 0) Cell.Offset(0, 0).Interior.Color = RGB(255, 0, 0) Else LesClass = Split(Cell.Value, ",") 'xPriorityI = Split(yCell.Value, "-")(0) 'xPriorityP = Split(zCell.Value, "-")(0) 'xPriorityI = Mid(Range("D" & x).Value, 2, 1) 'xPriorityP = Mid(Sheets("Feuil2").Range("C" & x).Value, 2, 1) For i = 0 To UBound(LesClass) Equiv = Application.Match(Trim(LesClass(i)), Sheets("Feuil2").Range("A2:A22"), 0) If IsError(Equiv) = True Then NonTrouve = True Else NonTrouve = False Exit For End If Next i If NonTrouve = True Then Cell.Offset(0, 0).Interior.Color = RGB(255, 128, 128) 'ElseIf IsError(xEquiv) = False And xPriority2 < xPriority1 Then 'Range("A" & x).Interior.Color = RGB(224, 255, 96) 'Exit For 'Exit For 'Exit For End If End If 'Next 'Next Next Cell 'Next x Application.ScreenUpdating = True End Sub [/CODE] [/QUOTE]

Vérification