Extraction d'une variable tableau

Bonjour,

Je cherche un moyen d'extraire plusieurs valeurs d'un tableau.

Cela me paraît simple mais je n'ai pas la bonne syntaxe et je ne l'ai pas encore trouvé.

Par exemple :

Une tableau comprenant 100 valeurs je veux en extraire 10.

Dim toto(1 To 100)

Je souhaiterai avoir toto(10 to 20)

Mais ce n'est pas avec "To" que je vais y arriver.

Comment procéderiez vous ?

Bonsoir,

Public Sub Extraire()
    Dim i%
    For i = 10 To 20
        XXX = toto(i)
    Next i
End Sub

Bonjour Oyobrans,

Je m'attendais à une réponse de ce genre.

Dans la réalité je souhaite avoir une tableau avec plus de 100 000 voir 200 000 valeurs et pouvoir en extraire des tableau de 65 536 valeurs.

De base j'utilisais la fonction suivante sur un tableau de moins de 65 536 valeurs et cela fonctionnais.

WorksheetFunction.Max(tab)

Toutefois si j'augmente au delà de 65 536 cette fonction de fonctionne plus. C'est pourquoi je souhaite scinder le tableau initial en plusieurs tableau de 65 536 valeurs afin de pouvoir utiliser la fonction WorksheetFunction.Max().

Par la suite le prendrais les max de chaque résultat des WorksheetFunction.Max().

Merci

Bonjour,

Peux-tu joindre un fichier illustrant ce que tu veux obtenir ?

Il vaudrait mieux simplement parcourir le tableau pour en récupérer la plus grande valeur plutôt que créer une usine à gaz.

Bonjour,

http://boisgontierjacques.free.fr/pages_site/tableaux.htm#PrendrePartie

http://boisgontierjacques.free.fr/fichiers/Cellules/PartieArrayClassique.xls

Sub PrendPartieArrayClassique()
  TblE = Range("A1:C22")
  Début = 11
  Taille = 5
  fin = Début + Taille - 1: If fin > UBound(TblE) Then fin = UBound(TblE)
  Dim TblS(): ReDim TblS(1 To Taille, 1 To UBound(TblE))
  n = 0
  For i = Début To fin
    n = n + 1: For k = 1 To UBound(TblE, 2): TblS(n, k) = TblE(i, k): Next k
  Next i
  [e2].Offset(, décal).Resize(UBound(TblS), UBound(TblS, 2)) = TblS
End Sub

Boisgontier

Utiliser une fonction.

Sub essai()
  Tbl = [A1:B200000].Value
  maxi = TblMax(Tbl, 2)
End Sub

Function TblMax(Tbl, col)
  maxi = Tbl(LBound(Tbl) + 1, col)
  For i = LBound(Tbl) To UBound(Tbl)
    If Tbl(i, col) > maxi Then maxi = Tbl(i, col)
  Next i
  TblMax = maxi
End Function

Boisgontier

0fonctionmax.xlsm (15.90 Ko)
Rechercher des sujets similaires à "extraction variable tableau"