XL 2019 Si valeur saisie non conforme faire apparaître dans la listbox et la feuille NC.

[Tempus]

Bonjour à tous,
Bonjour le forum,

Je souhaiterais faire apparaître dans la dernière colonne "K" de la feuille et de la listbox l'information conforme "C" ou non-conforme "NC".

Actuellement, je saisi cette information manuellement.

Dans le code du fichier qui est en pièce jointe, il y a déjà deux plage de MFC qui définissent les couleurs de la colonne I, donc en gros conforme si supérieur à 1.030 et non-conforme si inférieur à 0.980.

Merci pour votre aide.

' on redéfinit la plage des MFC
       ' nota: les formatconditions.modify rendent excel instable
        .Cells.FormatConditions.Delete
        BdRng.Columns("i").FormatConditions.Add(xlCellValue, xlGreater, 1.02) _
            .Interior.Color = vbRed
        BdRng.Columns("i").FormatConditions.Add(xlCellValue, xlLess, 0.98) _
            .Interior.Color = 9420794
    
    End With
  
    Trier_Click

End Sub

 

[danielco]

Bonjour,

Dans le code du fichier qui est en pièce jointe, il y a déjà deux plage de MFC qui définissent les couleurs de la colonne I, donc en gros conforme si supérieur à 1.030 et non-conforme si inférieur à 980.

Pourquoi "en gros" ? Et entre 980 et 1030, on est quoi ?

Daniel

 

[Tempus]

Bonjour Daniel,

Je reformule, je pense que cela sera plus clair et, j'avais fait une erreur, ce n'est pas 980 mais 0.980

Non-conforme si inférieur à 0.980 et supérieur à 1.030
et
Conforme si compris entre 0.980 et 1.030.

Si besoin de plus d'info, ne pas hésiter.

Merci à vous.
"980 modifier par 0.980 dans le premier message"

 

[danielco]

En J4, à recopier vers le bas :

=SI(ET(I4>=0,98;I4<=1,03);"C";"NC")

Daniel

 

[Tempus]

Merci Daniel,

Mais est-t-il possible de l'incorporer dans le code vb, car sur la colonne I il y a déjà des MFC. voir ci-dessous.

"Dans la colonne J , c'est une valeur différente qui n'est pas sujette au NC ou C"

' on redéfinit la plage des MFC 
       ' nota: les formatconditions.modify rendent excel instable
        .Cells.FormatConditions.Delete
        BdRng.Columns("i").FormatConditions.Add(xlCellValue, xlGreater, 1.02) _
            .Interior.Color = vbRed
        BdRng.Columns("i").FormatConditions.Add(xlCellValue, xlLess, 0.98) _
            .Interior.Color = 9420794

 

[danielco]

Si tu veux avoir, par exemple du vert en cas de conformité, pas besoin de règle, ajoute :

BdRng.Interior.Color = RGB(96, 201, 17)

après les MFC.

Daniel

 

[Tempus]

Re Daniel

J'ai incorporé après la MFC votre bout de code, merci.

mais cela colorie en vert l'ensemble de la feuille,
La feuille est la juste pour servir de base de donnée, je vais travailler sur la listbox et imprimer le rapport par la suite , il me faut donc une colonne qui indique NC ou C.

     ' on redéfinit la plage des MFC
       ' nota: les formatconditions.modify rendent excel instable
        .Cells.FormatConditions.Delete
        BdRng.Columns("i").FormatConditions.Add(xlCellValue, xlGreater, 1.02) _
            .Interior.Color = vbRed
        BdRng.Columns("i").FormatConditions.Add(xlCellValue, xlLess, 0.98) _
            .Interior.Color = 9420794
       BdRng.Interior.Color = RGB(96, 201, 17)
    End With
    
    Trier_Click

End Sub

 

[danielco]

Désolé, j'ai les yeux qui commencent à se croiser. Remplace par :

BdRng.Resize(, 1).Offset(, 8).Interior.Color = RGB(96, 201, 17)

Daniel

 

[Tempus]

merci danielco,