Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion Tempus
  • Date de début Date de début
T

Tempus

XLDnaute Junior
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.

VB: 
' 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
 

Pièces jointes

  • tempus conforme ou non-conforme dans la derniere colonne.xlsm
    59.3 KB · Affichages: 13
Dernière édition:
Trier par date Trier par votes
T

Tempus

XLDnaute Junior
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"
 
Vote positif 0 Vote négatif
T

Tempus

XLDnaute Junior
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"

VB: 
' 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
 
Vote positif 0 Vote négatif
T

Tempus

XLDnaute Junior
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.

VB: 
     ' 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
 

Pièces jointes

  • 1598628321314.png
    98.7 KB · Affichages: 9
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Z
  • Question Question
Trouver la couleur d'une MFC et l'afficher dans la Cellule d'à coté !
Réponses
11
Affichages
3 K
zephir94
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…