Tableau Nombre manquant

Bonjour,

Voila j'ai un tableau de A à E et de 1 à 12 avec des chiffres de 1 à 20.

En suite j'ai sur la ligne 15 de ma feuille Excel de A jusqu'à T les chiffres de 1 à 20.

Dans H3 faudrait que cela me donne le premier chiffre manquant de mon tableau.

Exemple si manque: 3 8 15 18 je voudrais que sa me mette 3 dans H3.

Et que sur ma ligne 15 tous les chiffres qui sont dans mon tableau les cellule de A à T devienne rouge si elle sont dans le tableau.

les chiffres manquant en orange sauf le premier en vert si c'est possible a faire.

Je vous met un exemple sur Excel pour mieux m'aider merci d'avance.

Bonjour Duncoup32,

En ligne 14 :

=NB.SI($A$1:$E$12;A15)

recopier vers la droite 19 fois.

En cellule H3 :

=RECHERCHEH(0;A14:T15;2;FAUX)

Puis réaliser 3 mises en forme conditionnelles sur la plage A15:T15

=A14<>0

rouge

=A14=0

orange

=A14=RECHERCHEH(0;A14:T15;2;FAUX)

vert

Bonne mise en oeuvre

Christian

Bonjour,

Proposition en PJ.

Merci infiniment à vous deux sa marche impeccable, je vous remercie beaucoup.

Bonjour Duncoup, bonjour le forum,

Ooops, 'ach'ment en r'tard moi ! tant pis, j'envoie quand même...

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLC As Range 'déclare la variable PLC (PLage des Chiffres)
Dim PLT As Range 'déclare la variable PLT (Plage du Tableau)
Dim CC As Range 'déclare la variable CC (Cellule de la plage Chiffres)
Dim CT As Range 'déclare la variable CT (Cellule de la plage Tableau)
Dim TEST As Boolean 'déclare la variable TEST
Dim PREM As Boolean 'déclare la variable PREM (PREMier chiffre manquant)

Set O = Worksheets("Feuil1") 'définit l'onglet O
Set PLC = O.Range("A15:T15") 'définit la plage des chiffres PLC
Set PLT = O.Range("A1:E12") 'définit la plage du tableau PLT
PLC.Interior.ColorIndex = 3 'couleur rouge dans toute la plage PLC
O.Range("H3").Value = "" 'efface le contenu de H3
O.Range("H3").Interior.ColorIndex = 4 'couleur verte dans la cellule H3
For Each CC In PLC 'boucle 1 : sur toutes les celllule CC de la plage des chiffres PLC
    TEST = False 'réinitialise la variable TEST
    For Each CT In PLT 'boucle 2 : sur toutes les cellule CT de la plage du tableau PLT
        'si les deux cellules ont la même valeur, redéfinit la variable TEST, sort de la boucle 2
        If CC = CT Then TEST = True: Exit For
    Next CT 'prochaine cellule de la boucle 2
    If TEST = False Then 'condition : Si TEST est [faux]
        CC.Interior.ColorIndex = IIf(PREM = True, 45, 4) 'colore la cellule CC de orange si PREM est [vrai] de vert si PREM est [faux]
        If PREM = False Then 'condition : si PREM est [faux]
            O.Range("H3").Value = CC 'renvoie la valeur de la cellule CC dans H3
            PREM = True 'redéfinit la variable PREM (=[vrai])
        End If 'fin de la condition
    End If 'fin de la condition
Next CC 'prochaine cellule de la boucle 1
End Sub