Nombres absents (par formule).

[JJ1]

Bonjour à tous,
Je souhaiterais afficher à partir de la colonne U les nombres absents de la plage A:T.
Je joins un exemple concret.
Merci de votre aide
Bon AM

 

[Kotov]

Re : Nombres absents (par formule).

Bonjour JJ1,

Voici une macro qui fait le travail demandé

Tu peux la relier à un bouton, ou à une procédure évènementielle (Worksheet_SelectionChange(ByVal Target As Range) par exemple)

Sub Test()
Dim T(70)
Dim i As Byte, r As Byte, c As Byte
For r = 5 To 8
    For c = 1 To 20
    Cells(r, c).Select
        i = ActiveCell.Value
        T(i) = T(i) + 1
    Next c
Next r

r = 20
c = 0
For i = 1 To 70
   If IsEmpty(T(i)) Then: c = c + 1: Cells(5, r + c) = i
Next i
End Sub

Bonne journée
Kotov

 

[Monique]

Re : Nombres absents (par formule).

Bonjour,

Par formule
Il doit y avoir plus simple

 

[JeanMarie]

Re : Nombres absents (par formule).

Bonjour Monique, JJ1, Kotov

Une autre proposition en formule.

=TRANSPOSE(PETITE.VALEUR(SI(FREQUENCE(A5:T8;LIGNE(1:69))=0;LIGNE(1:70));LIGNE(1:70)))

Pour l'utiliser, il faut sélectionner la plage U5:AK5 avant de la saisir, et valider par les touches Ctrl+Shift+Entrer.
Un message d'erreur #Nombre! est retourné par la fonction PETITE.VALEUR qui signale qu'il n'y a plus de valeur à retourner.
Pour supprimer ce message, deux solutions :
intégration dans la formule une gestion d'erreur

=TRANSPOSE(SI(ESTNUM(PETITE.VALEUR(SI(FREQUENCE(A5:T8;LIGNE(1:69))=0;LIGNE(1:70));LIGNE(1:17)));PETITE.VALEUR(SI(FREQUENCE(A5:T8;LIGNE(1:69))=0;LIGNE(1:70));LIGNE(1:17));""))

ou utiliser le format conditionnel utilisé par Monique dans son fichier.

@+Jean-Marie

 

[JJ1]

Re : Nombres absents (par formule).

Bonjour Monique,Kotov, Jean-Marie,
Merci à vous trois pour ces solutions, j'y suis arrivé sans problème.
Je n'ai pas utilisé la macro car je devais recopier la formule dans mon tableau.
Bonne soirée et encore merci