XL 2019 concatener

[LEPATOCHE]

bonsoir a tous , donc je voudrais concatener dans la ligne 1 ; je vous joins un fichier bien expliquer dedans merci de votre aide ! j'ai bien peur que ca ne soit pas possible ?!

 

[patricktoulon]

bonjour est ce que tu sais le nombre de combinaison que ca fait

tu dis dans l'explicatif de la cellule je cite

ce qui représente en tout 15504 combinaisons différentes

ben tu es loin du compte mon ami

le nombre de combinaison a 20 chiffres est de 20 puissance 20 et plus si le nombre de chiffre diminue dans la combinaison
et au delà de puissance 12 exel va flipper et de donner un nombre abrégé qu'il sera difficile de manipuler en vba je te le dit j'ai testé
pour info regarde le nombre de combi
=combina(20;20)
😉

 

[LEPATOCHE]

merci beaucoup , mes mon calcul est tout t'a fait exact il y a 15504 combinaisons de 5 chiffres parmi les 20 cités voici l'operation qui faut faire 16x17x18x19x20/120=15504 et voila , vrai ou pas ? a vous de jouer merci a nouveau

 

[mapomme]

Bonsoir à tous,

Voir dans le fichier joint. J'utilise une fonction personnalisée de mon cru retournant un tableau à p colonnes contenant toutes les combinaisons de p parmi n.

Le code est est dans le module : ModuleCombi

Cliquer sur le bouton Hop!

Remarque : j'ai séparé les nombres dans chaque combinaison par un espace pour retrouver ses petits.

 

[LEPATOCHE]

ok merci mais j'avais oublier de dire que je ferais cela sur plusieurs lignes au moins 125000 lignes ; ou est votre code impossible de le trouver je ni comprend rien en vba ni en maccro !

 

[Dranreb]

Bonsoir.

Sub Test()
Dim Tjn(1 To 5) As String, C1&, C2&, C3&, C4&, C5&, CR&, TRésu(1 To 1, 1 To 15504)
   For C1 = 1 To 16: Tjn(1) = C1
      For C2 = C1 + 1 To 17: Tjn(2) = C2
         For C3 = C2 + 1 To 18: Tjn(3) = C3
            For C4 = C3 + 1 To 19: Tjn(4) = C4
               For C5 = C4 + 1 To 20: Tjn(5) = C5
                  CR = CR + 1
                  TRésu(1, CR) = Join(Tjn, ",")
                  Next C5, C4, C3, C2, C1
   [U1].Resize(, 15504).Value = TRésu
   End Sub

 

[LEPATOCHE]

Bon et bien encore merci , mais je ni comprend rien en vba je vais faire comment moi qui veus faire cela sur environ 125 000 lignes sur 15504 colonnes

 

[mapomme]

Bon et bien encore merci , mais je ni comprend rien en vba je vais faire comment moi qui veus faire cela sur environ 125 000 lignes sur 15504 colonnes

Pourquoi n'avez vous pas donné un échantillon représentatif de votre fichier ?
Il est temps de le faire.

Et que ferez vous donc avec une feuille excel contenant les un-milliard-neuf-cent-trente-huit-millions de cellules avec combinaisons !!?

 

[LEPATOCHE]

Bonsoir a tous un petit message pour Mapomme , donc sans rien vous cacher a vous tous la plus par du temps quand je vous demande de l'aide sur ce forum que j'aime beaucoup et que j'ai bien progresser en vous remerciant tous d'avance ! donc je suis un petit joueur de LOTO mais j'ai la tete sur les epaules je joue une fois tout les 2 mois environs 45 euros en moyenne , donc j'aime bien faire des pronostique avec des formules que vous me donner , vous allez me prendre pour un illuminer ca je vous comprend tout t'a fait mais bon ce n'ai pas interdit par la loi de penser qu'il y a une sorte de martingale avec un enorme ik , je fait confiance aux statistiques et je verrai bien , en ce qui me conserne je passe environ 3 heures par jours pour le LOTO sur excel et mon plus gros gain est de 102 euros et je joue depuis 1 an , bon sur ce encore merci et a tres bientot je l'espere !

 

[mapomme]

Bonsoir @LEPATOCHE 🙂,

Merci pour nous avoir explicité le contexte. Mais je crains bien qu'à la vue de la masse de données que cela représente que l'analyse va être très compliquée.
La question est bien plus philosophique : Peut on prévoir le hasard ? 🙄