recherche une boucle VBA

[Hervé]

Bonjour tout le monde


J'ai un petit souci.

Je recherche une boucle en vba me permettant de concatener une serie de chiffres.

de a1 à a10 : des chiffres, disont (1,2,3....,10)

je recherche la boucle qui me permettra de recupérer toutes les combinaisons des chiffres :

1
2
3
...
10
12
13
14
15
...
123
124
125
...
1234
1235

jusqu'a 12345678910

J'ai essayé d'imbriquer des boucles :

for i=1 to 10
for j=i to 10

mais ca marche pas

d'avance je vous remercie

salut

 

[Hellboy]

Bonjour Hervé

Ceci peut peut être te donner un départ. Je n'ai pas tout vérifié, c'est juste rapide comme ça !!!

Public Sub LoopaHerve()
  Dim bytNbCar    As Byte, lngDépart  As Byte
  Dim intCount      As Integer, intCom  As Integer, intTableau  As Integer
  Dim strArray      As String
     
  strArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)

  lngDépart = 2
  bytNbCar = UBound(strArray)
     
  Do
        For intCom = lngDépart To bytNbCar
          '  Reste a trouver la logique pour traiter la redimmention de la variable
          '  Un conteur peut être ???
              ReDim Preserve intTableau(0)
              intTableau = strArray(lngDépart - 2) & intCom
        Next intCom
        lngDépart = lngDépart + 1
  Loop Until lngDépart = bytNbCar
 
End Sub

 

[Hellboy]

re

oops, il m'en manque beaucoup de c'est combinaison. désolé ce n'est pas complet.

 

[Hellboy]

re

Prise 2

Public Sub LoopaHerve()
  Dim bytNbCar    As Byte, lngDépart  As Byte
  Dim intCount      As Integer, intComb1  As Integer, intComb2  As Integer, intTableau()    As String
  Dim strArray()    As Variant
     
  strArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
  bytNbCar = UBound(strArray)
  lngDépart = 1
  For intComb1 = 0 To bytNbCar
        ReDim Preserve intTableau(intCount)
        intTableau(intCount) = strArray(intComb1)
        For intComb2 = lngDépart To bytNbCar
              intCount = intCount + 1
              ReDim Preserve intTableau(intCount)
              intTableau(intCount) = intTableau(intCount - 1) & strArray(intComb2)
        Next intComb2
        lngDépart = lngDépart + 1
        intCount = intCount + 1
  Next intComb1
End Sub

 

[Simplet]

Bonsoir Hervé, Hellboy,
Bonsoir à tous,

Une idée pour tes boucles imbriquées (4 concaténations).

Comment lancer ta macro Hellboy et à partir de quoi ?

@+ [file name=Debut4.zip size=9698]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Debut4.zip[/file]

 

[Charly2]

Bonsoir Hervé et Philippe

Je te propose une fonction récursive, mais je ne doute pas que tu sauras la transfomer en boucle

Amitiés
Charly

 

[Charly2]

Ah, bah ! dis-donc, j'ai du mal avec les fichier aujourd'hui

Mais bon, ça me permet de dire bonjour à Simplet

PS : Pour le lien sur la fonction (donné par Gérard DEZAMIS), voir
.
[file name=Herve_Combinaisons.zip size=23761]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Herve_Combinaisons.zip[/file]

Message édité par: Charly2, à: 08/12/2005 23:40

 

[Simplet]

Re,

Charly2 écrit:

Bonsoir Hervé et Philippe

Je te propose une fonction récursive, mais je ne doute pas que tu sauras la transfomer en boucle

Amitiés
Charly

Je me doutais bien Charly2 que tu interviendrais sur un tel sujet. Mais où est ta fonction ? Elle ne s'est pas rappelée ?

Bonne nuit à tous

 

[Simplet]

Re,

J'avais interprété la question autrement.
Je n'ai pas pensé à une analyse combinatoire (sans répétition par définition). sinon j'aurais aiguillé Hervé sur un post dans lequel Charly2 donnait déjà une réponse (plus technique donc meilleure que la mienne).

Bonne nuit à tous

 

[Hervé]

Bonjour philippe, simplet, charly2, tata jeannine, le forum

Merci beaucoup messieurs, je pense que je vais me débrouiller avec ce que vous m'avez proposé.

Si je n'y arrive pas, je connais l'addresse d'un bon site d'entraide sur excel.

encore merci

salut

 

[ChTi160]

Salut Hervé
bonsoir le fil

en pièce jointe mon interprétation de ce que j'ai cru comprendre Lol

bone fin de Soirée [file name=Concatene.zip size=7944]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Concatene.zip[/file]

 

[Hervé]

Bonsoir tout le monde

Merci jean-marie

avec tout ca je devrais m'en sortir.

salut