XL 2016 RECHERCHE AUTOMATIQUE D'UNE PLAGE DE COMBINAISONS

album40

XLDnaute Nouveau
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.
 

Pièces jointes

  • COMBINAISONS.xlsx
    11.6 KB · Affichages: 15

Fred0o

XLDnaute Barbatruc
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
 
Dernière édition:

album40

XLDnaute Nouveau
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
 

Pièces jointes

  • COMBINAISONS.xlsm
    30.9 KB · Affichages: 7

Fred0o

XLDnaute Barbatruc
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

XLDnaute Nouveau
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.



 

Discussions similaires

Réponses
13
Affichages
637
Réponses
7
Affichages
673

Statistiques des forums

Discussions
315 136
Messages
2 116 631
Membres
112 818
dernier inscrit
waity