recherche une boucle VBA

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...