Identifier cellules fautives sous conditions

[blord]

Bonjour à tous,

J'utilise le bout de code suivant pour compter le nombre de cellules vides dans une plage :

    Dim I As Long, n As Long
    DerLig = [A65000].End(xlUp).Row
    For I = DerLig To 11 Step -1
    If Cells(I, 18).Value = "" Then n = n + 1
    Next I

Ce que j'aimerais faire c'est ajouter une condition qui, si la cellule n'est pas vide, cherche la valeur dans une table et si la valeur n'est pas dans la table, compte également la cellule dans le n = n + 1 ??

Je pensais à quelque chose du genre :

    Dim I As Long, n As Long
    DerLig = [A65000].End(xlUp).Row
    For I = DerLig To 11 Step -1
    If Cells(I, 18).Value = "" or IF (ISERROR(VLOOKUP(Cells(I, 18).Value,Provinces!C[-19],1,FALSE) Then n = n + 1
    Next I

Mais ça ne fonctionne évidemment pas....

Le but de ce code est de valider une colonne dans laquelle doit absolument se trouver un code de province (Canada). J'aimerais indiquer le nombre de cellules fautives à l'utilisateur d'ou le n = n + 1. Si en plus, on pouvait mettre la cellule fautive en couleur, se serait vraiment parfait...

Merci pour votre aide....

Benoit Lord

 

[tototiti2008]

Re : Identifier cellules fautives sous conditions

Bonjour Blord,

peut-être

    Dim I As Long, n As Long
    DerLig = [A65000].End(xlUp).Row
    For I = DerLig To 11 Step -1
    If Cells(I, 18).Value = "" or Application.Countif(sheets("Provinces").range("A2:A1000"),Cells(I, 18).Value)=0 Then n = n + 1
    Next I

 

[CBernardT]

Re : Identifier cellules fautives sous conditions

Bonsoir,

Une autre solution 🙂

 

[blord]

Re : Identifier cellules fautives sous conditions

Bonjour tototiti, Bonjour Bernard, le Forum

La solution de tototiti fonctionne mais comme celle de Bernard me donne en prime la mise en forme de la cellule, je vais opter pour cette dernière...

Merci beaucoup à vous deux !

Benoit Lord