XL 2016 RECHERCHE AUTOMATIQUE D'UNE PLAGE DE COMBINAISONS

album40 · 12 Mars 2021

Bonsoir ,

Je désire à partir de ma feuille Excel, trouver automatiquement des combinaisons possibles entre des valeurs insérées dans les cellules (J5 à L5) et (P5 à R5).
Il s'agit des combinaisons de 3 nombres parmi 90.
1) Les cellules (J5 à L5) sont des combinaisons de début
2) Les cellules (P5 à R5) sont des combinaisons de Fin

Je vous prie de m'aider à l'aide d'une macro car j'essaie en vain mais je ne trouve pas la solution.

Fred0o · 12 Mars 2021

Bonjour album40

Un essai a tester :

VB:

Public Nb1 As Byte, Nb2 As Byte, Nb3 As Byte, li As Integer, Co As Integer

Sub Trouve_Combi()
    [J6:L1048576].ClearContents
    li = 6
    Co = 10
    For Nb1 = [J5] To [P5]
        For Nb2 = [K5] To [Q5]
            For Nb3 = [L5] To [R5]
                Cells(li, Co) = Nb1
                Cells(li, Co + 1) = Nb2
                Cells(li, Co + 2) = Nb3
                li = li + 1
            Next
            Nb3 = [L5]
        Next
        Nb2 = [K5]
    Next
End Sub

album40 · 12 Mars 2021

Fred0o à dit:

Bonjour album40

Un essai a tester :

VB:

Public Nb1 As Byte, Nb2 As Byte, Nb3 As Byte, li As Integer, Co As Integer

Sub Trouve_Combi()
    [J6:L1048576].ClearContents
    li = 6
    Co = 10
    For Nb1 = [J5] To [P5]
        For Nb2 = [K5] To [Q5]
            For Nb3 = [L5] To [R5]
                Cells(li, Co) = Nb1
                Cells(li, Co + 1) = Nb2
                Cells(li, Co + 2) = Nb3
                li = li + 1
            Next
            Nb3 = [L5]
        Next
        Nb2 = [K5]
    Next
End Sub

Bonjour Fredo
Merci pour la solution proposée, Je viens de la tester. Je trouve qu'il y a des combinaisons manquantes au sein du resultat obtenu. Je te ramène ma feuille pour que tu puisse observer aussi.

Merci

Fred0o · 13 Mars 2021

Bonjour album40

Je ne comprends pqs quelle est la logique pour chaque colonne, les combinaisons partent du chiffre de debut jusqu'au chiffre de fin.
Pourrais-tu m'expliquer plus en detail comment doit evoluer la serie de chiffres pour chaque colonne ?

album40 · 13 Mars 2021

Bonjour Fred0o
Voici La logique pour chaque colonne : en

L5 le chiffre mini = 5, le chiffre Maxi de fin = 49
K5 Le chiffre mini = 4, le chiffre Maxi de fin = 48
J5 Le chiffre mini = 3, Le chiffre Maxi de fin = 47

Donc la plus petite combinaison en J5K5L5 = 3-4-5
la plus grande combinaison 47-48-49

La série évolue comme suit :

si la colonne L arrive au nombre 49
la colonne K devient K+1 et L devient K+2

Si la colonne K arrive au nombre 48
la colonne J devient J+1, K devient J+2 et L devient J+3

Jusqu'à ce qu'on arrive à la combinaison 47-48-49

Ce que je veux : Chaque fois que je j'introduit une combinaison dans les colonnes J5K5L5
je veux que Excel me donne la plage des combinaisons comprise entre J5k5L5 et P5Q5R5

Voila en quelque sorte ma préoccupation.

Fred0o · 15 Mars 2021

Bonjour album40

Avec une vraie explication, on arrive a fournir une solution adaptée (je pense).

Voir le fichier joint

album40 · 15 Mars 2021

Bonjour Fred0o
c'est exactement ce que je veux
grand merci à toi et bonne soirée

XL 2016 RECHERCHE AUTOMATIQUE D'UNE PLAGE DE COMBINAISONS

album40

XLDnaute Nouveau

Pièces jointes

Fred0o

XLDnaute Barbatruc

album40

XLDnaute Nouveau

Pièces jointes

Fred0o

XLDnaute Barbatruc

album40

XLDnaute Nouveau

Fred0o

XLDnaute Barbatruc

Pièces jointes

album40

XLDnaute Nouveau

Discussions similaires

XL 2016 RECHERCHE AUTOMATIQUE D'UNE PLAGE DE COMBINAISONS

album40

XLDnaute Nouveau

Pièces jointes

Fred0o

XLDnaute Barbatruc

album40

XLDnaute Nouveau

Pièces jointes

Fred0o

XLDnaute Barbatruc

album40

XLDnaute Nouveau

​

​

Fred0o

XLDnaute Barbatruc

Pièces jointes

album40

XLDnaute Nouveau

Discussions similaires