extraire des éléments de A^3

[Archimed]

bonsoir tout le monde ;
quelqu'un peut-il m'aider à extraire tous les éléments sous la forme (a;b;c) de l'ensemble a^3 sachant que a={1;2;3;4;5;6} tout en utilisant un code VBA.
merci bcp.
Archi.

 

[ROGER2327]

Re : extraire des éléments de A^3

Bonjour Archimed

Un essai.

1. Écrivez votre ensemble dans une cellule. Par exemple :
   { 1 ; 2 ; 3 ; 4 ; 5 ; 6 }​
   en A2.
2. Sélectionnez cette cellule.
3. Exécutez le code suivant :
   

   [COLOR="DarkSlateGray"][B]Sub SPECIAL()
   Dim i As Long, j As Long, k As Long, n As Long, p As Integer, a As String, b As String
   Dim ens, elem, srt
      ens = ActiveCell.Value
      a = Mid$(ens, 2, Len(ens) - 2)
      a = Replace(a, " ", "", 1)
      elem = Split(a, ";")
      n = (1 + UBound(elem) - LBound(elem)) ^ 3
      ReDim srt(1 To n, 1 To 1)
      For i = LBound(elem) To UBound(elem)
         a = elem(i)
         For j = LBound(elem) To UBound(elem)
            b = elem(j)
            For k = LBound(elem) To UBound(elem)
               p = p + 1
               srt(p, 1) = "(" & a & ";" & b & ";" & elem(k) & ")"
            Next k
         Next j
      Next i
      ActiveCell.Offset(1, 0).Value = "Les " & n & " éléments de " & ens & "^3 sont :"
      ActiveCell.Offset(2, 0).Resize(n, 1).Value = srt
   End Sub[/B][/COLOR]

Vous devriez obtenir la liste des éléments cherchés sous A2.​

ROGER2327
#2263

 

[Archimed]

Re : extraire des éléments de A^3

Bonjour Roger,
Rien à dire vous êtes un AS , ça marche bien le code , merci et bonne journée.
Archi