Problème détection de numéros

Bonjour,

J'ai déjà mis un post à ce sujet mais je l'ai clôturé car comme je me suis expliqué comme un manche les solutions étaient à coté.

Voilà j'ai mis toutes les explications dans le fichier joint avec un exemple.

Merci pour votre aide.

Bonjour à tous,

Un debut de proposition :

bonjour à tous,

une autre proposition

Sub aargh()
    Range("C1:C3,E1:E3").ClearContents
    Set dict = CreateObject("scripting.dictionary")
    i = 8
    dl = Cells(Rows.Count, 2).End(xlUp).Row
    'tableau jaune
    ctr = 0
    Do
        n = Cells(i, 2)
        If Not dict.exists(n) Then
            ctr = ctr + 1
            Cells(ctr, 3) = n
            If ctr = 3 Then Exit Do
            dict(n) = 1
        End If
        i = i + 1
    Loop Until i > dl
    If i < dl Then
    'traitement tableau vert
        dict.RemoveAll
        For j = 1 To 6
            n = Cells(j, 4)
            dict(n) = 1
        Next j
        ctr = 0
        Do
            n = Cells(i, 3)
            If Not dict.exists(n) Then
                ctr = ctr + 1
                Cells(ctr, 5) = n
                If ctr = 3 Then Exit Do
                dict(n) = 1
            End If
            i = i + 1
        Loop Until i > dl
    End If
End Sub

Bonjour,

merci pour cette proposition mais il y a tjrs une incompréhension.

Jai remis le fichier ici. en fait dans le jaune il doit y avoir 1-2-5

les numéros en doubles faut les contrôler dans les 3 cases jaunes. et non dans la colonne B

donc on a en B 1-2-2-5

le sélection est donc :

1 puis 2 puis pour le deuxième 2 on ne le met pas car sinon doublon dans le jaune puis 5

même chose pour le vert sauf que c'est à partir de la ligne 12 que l'on détecte (car le dernier jaune est 5 et est en ligne 11).

même principe mais en plus les numéros que l'on met dans le vert ne doivent pas faire partie du bleue.

j'ai mis les numéros sélectionnés en gris

donc on a une analyse de B qui termine ligne 11 car on a les 3 qui vont en jaune

une analyse de C qui démarre en ligne 12 pour finir en ligne 16 car on a les 3 qui vont en vert.

comprends pas

C'est exactement les resultats que tu desires

5--4

6--7

3--1

Et dans ton 2eme fichier, la plage e1:e3 differe du premier ......

Bonjour DjiDji59430,

si tu ouvre simplement le fichier le fichier tu as en jaune et vert les numéros qui doivent y être par rapport à B et C qui changent tout le temps.

maintenant si j'appuis sur le bouton qui lance ta macro il n'y a plus rien car je pense que par exemple pour les jaunes si il y a deux fois le 2 dans la colonne B et bien tu ne le mets pas dans les jaunes et c'est pas ça.

tu démarre à B8 si tu rencontre un numéro qui n'est pas dans les jaunes tu le mets dans les jaunes

s'il est déjà dans les jaunes tu passes au suivant.

quand tu arrive à 3 numéros tu arrêtes, tu garde la dernière ligne analysée et tu passes au vert

donc tu démarres en C + la dernière ligne que tu as gardé.

donc si un numéros de C est différent des numéros en bleues et de ceux en vert tu le mets dans les verts et ceci jusqu'à ceux que les vert soit pleins

Bonjour à tous !

Pouvez-vous mettre à jour votre profil ? Excel 2011 n'existe pas....

Si vous évoluez sous Microsft 365 :

Pour la zone jaune :

=PRENDRE(UNIQUE(B8:B27);3)

Pour la zone verte :

=LET(c;UNIQUE(EXCLURE(C8:C28;EQUIV(L3;B8:B27;0)));PRENDRE(FILTRE(c;NB.SI(D1:D6;c)=0);3))

danval a écrit :

Bonjour DjiDji59430,

si tu ouvre simplement le fichier le fichier tu as en jaune et vert les numéros qui doivent y être par rapport à B et C qui changent tout le temps.

Tu as ouvert le mien ?

Jeviens de verifier avec le nouveau fichier

ok je viens de l'ouvrir et pour les jaunes c'est ok mais il y as tjrs un pb pour les verts.

Quand je change les numéro en A8-A27 et bien il n'y a plus rien dans les verts??

regarde dans le fichier j'ai juste changé les numéros en A

re

J'avais mis un "debut de solution" ........

ok je vais vérifier mais je pense que c'est tout bon.

Mille merci et bonne soirée.

DjiDji59430,

c'est tout bon mais juste une chose là c'est fait pour de B8-B27 et C8-C27

pour mon fichier définitif cela va jusque 50 et non 27 alors je fais comment pour modifier je remplace le 27 par 50?

Re.

oui, a condition que les lignes soient remplies, sinon tu vas avoir des erreurs et que tu commences a la ligne 8.

Et question bete : pourquoi tu n'as pas mis le bon fichier, avec tes 50 lignes tout de suite ???

Crdlmt

Bonjour,

Par ce que je pensais en avoir assez avec 27 mais j'ai eu un cas hier ou il y en avait 35.

encore milles mercis pour ton aide et ta patience.

bonne continuation

Bonjour à tous,

Une version toute longueur :

merci beaucoup