Comment realiser un tableau combinatoire sur deux colonnes

bonjour,
je vais essayé d etre plus précis..avec un logiciel combinatoire j ai toutes les combinaisons en serie de 5 de 1 à 18 . Ensuite je fais un copier coller de toutes ces combinaisons de 5 numeros sur mon tableau Excel dans la colonne A , ensuite dans la colonne B je fais un copier coller d'une autre serie de combinaison toujours en 5 numeros de 1 à 12 par exemple et je voudrai savoir comment faire pour les deduire de la colonne A ??? je sais que ce n'est pas facile d'expliquer clairement .........c est sympa de me renseigner

bonjour,

Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile de t'aider.

rebonjour,
j ai essayé de t envoyer la structure des donnees sur htpp://cjoint.com mais je n y arrive pas.......bref j ai fait un copier coller del a feuille de calcul excel...dit moi, peut etre que je ne fais pas ce qu il faut.... c est deja bien de vouloir m aider merci encore

Bonjour,

sur htpp://cjoint.com tu cliques sur "parcourir" et tu choisis ton classeur
ensuite tu cliques sur "créer le lien cijoint"
Lorsque c'est fait, clic droit sur le lien proposé et choisir "copier"
dans ton prochain message ici tu fais "coller"

bon ça se complique si tu n' as toujours pas reçu mon classeur alors je vais essayer autrement ; les series de cinq numeros comprises entre 1 et 18 cela fait plus de 8000 combinaisons qui se trouvent dans la colonne A du classeur ensuite dans la colonne B il y a X combinaisons comprises entre 1 et 12 et donc je voudrais trouver le moyen de les enlever de la colonne A .........encore Merci et dit moi si tu comprends mes explications...

Correction du lien : http://cjoint.com/13fe/CBxryYMD8Cm

Mytå

Bonjour Mytå,

As-tu une solution pour ce classeur après l'avoir vu ?

Je ne vois toujours pas le but à obtenir...

Re le Forum

Supprimer les valeurs de la Colonne A si inscrit dans la Colonne B.

Sub DeleteList()  
    Dim Cel As Range, Lig As Long  
    Dim Dico As Object  

    Set Dico = CreateObject("Scripting.Dictionary")  

    Application.ScreenUpdating = False  
      
    For Each Cel In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)  
        If Not Dico.Exists(Cel.Value) Then Dico(Cel.Value) = Cel.Value  
    Next Cel  

    Lig = 1  

    Do While Cells(Lig, "A") <> ""  
        If Not Dico.Exists(Cells(Lig, "A").Value) Then  
            Lig = Lig + 1  
        Else  
            Cells(Lig, 1).Delete Shift:=xlUp  
        End If  
    Loop  
      
    Application.ScreenUpdating = True  
      
End Sub

Mytå