22 entités et 3 variables

  • Initiateur de la discussion Initiateur de la discussion adri26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

adri26

XLDnaute Nouveau
Bonjour voici mon problème,

Je souhaite généré autant de combinaison possible avec 22 entités qui peuvent chacune comporter 3 variables.
Autant dire

ABC
ABC
ABC
ABC... etc 22 fois.

Je souhaiterai obtenir toute les combinaisons uniques.

voila la macro que j'utilise, cela marche avec 10 entités, mais impossible avec 22. (Mon pc plante)
Merci, Cdt.


Sub combi()
Columns("D").Clear
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
For o = 1 To 3
For p = 1 To 3
For q = 1 To 3
For r = 1 To 3
For s = 1 To 3
For t = 1 To 3
For u = 1 To 3
For v = 1 To 3
For w = 1 To 3
For x = 1 To 3
For y = 1 To 3
For z = 1 To 3
For a = 1 To 3
For b = 1 To 3
For c = 1 To 3
For d = 1 To 3
[D65536].End(xlUp).Offset(1, 0).Value = Cells(1, i).Value & _
Cells(2, j).Value & Cells(3, k).Value & Cells(4, l).Value & _
Cells(5, m).Value & Cells(6, n).Value & Cells(7, o).Value & _
Cells(8, p).Value & Cells(9, q).Value & Cells(10, r).Value & _
Cells(11, s).Value & Cells(12, t).Value & Cells(13, u).Value & _
Cells(14, v).Value & Cells(15, w).Value & Cells(16, x).Value & _
Cells(17, y).Value & Cells(18, z).Value & Cells(19, a).Value & _
Cells(20, b).Value & Cells(21, c).Value & Cells(22, d)
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub
 
Re : 22 entités et 3 variables

Bonjour à tous
Teste et dis moi
Code:
Sub Conbi3Var()
Dim DerLg&, Cel As Range
DerLg = Range("A" & Rows.Count).End(xlUp).Row

For Each Cel In Range("A2:A" & DerLg)
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = Cel
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = Left(Cel, 1) & Right(Cel, 1) & Mid(Cel, 2, 1)
Next Cel

End Sub
 
Re : 22 entités et 3 variables

Bonjour,

Je souhaite généré autant de combinaison possible avec 22 entités qui peuvent chacune comporter 3 variables.
Rien compris à ce que vous voulez faire
cela marche avec 10 entités, mais impossible avec 22. (Mon pc plante)
Il doit bien y avoir un message d'erreur ?
sous excel 2003, chaque colonne est limitée à 65536 lignes.
Tel que le montre votre code, il devrait y avoir quelque 31381059609 possibilités !

a priori on fait afficher dans une cellule le contenu d'autres cellules . Sans classeur contenant des données pas facile de suivre !

Bonne suite
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
205
Réponses
8
Affichages
485
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
183
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
662
Réponses
3
Affichages
672
Retour