XL 2016 Redimensionner un tableau de données en ne prenant que les 3 derniers éléments

elgringo123456 · 20 Novembre 2021

Bonjour,

Je me permets de vous solliciter sur une autre problématique de redimensionnement de tableau.
Pour ce faire, j'utilise l'instruction Redim Preserve.
Néanmoins, je souhaite redimensionner mon tableau sans démarrer à la 1ere position mais par exemple à partir de la 3ième position.
Je me suis permis d'intégrer un fichier.

Par exemple dans la variable "Montants" est un tableau de "double" de 5 valeurs.
Je souhaite redimensionner la variable "Montants" en ne prenant que les valeurs 3, 4 et 5.
Redim Preserve permet de retailler la variable "Montants" à partir du 1ere élément.
Existe-t-il une instruction permettant d'extraire les éléments 3 à 5 et les intégrer dans une variable ?

Merci d'avance de vos propositions,
El Gringo 123 456

Compte Supprimé 979 · 20 Novembre 2021

Bonsoir,

Votre fichier ne contient rien à part du code qui nous donne un exemple très mal fait, mais bon

De ce que j'ai compris, pourquoi en pas faire comme ça

VB:

For Ind = 3 to 5
 Total = Total + Montant(Ind)
Next Ind

A+

patricktoulon · 20 Novembre 2021

on ne redim pas les antécédents dans un array c'est toujours la dernière dimension qui est redimensionnement en occurrence ici pour un array une dimensions c'eest la fin que que l'on peut redimensionner pas le début pour faire ce que tu cherche il te faut le couper
tu a application.index pour ca avec un array ou avec mes astuces evaluate

comme ceci

VB:

Option Explicit
Option Base 1

' Exemple d'utilisation
Sub SampleResizePosTab()

    Dim Montants() As Double, montantcoupe
    
    ReDim Preserve Montants(1 To 5)
    Montants(1) = 0: Montants(2) = 0
    Montants(3) = -100: Montants(4) = 10: Montants(5) = 300
    montantcoupe = Application.Index(Montants, Evaluate("COLUMN(" & Columns(3).Resize(, 3).Address(0, 0) & ")"))
  
    MsgBox "a l'origine il y a " & UBound(Montants) & vbCrLf & "maintenant il yen a " & UBound(montantcoupe)


End Sub

elgringo123456 · 20 Novembre 2021

Merci beaucoup Patrick
J'apprends tous les jours

Wayki · 20 Novembre 2021

Bonsoir tout le monde,

patricktoulon à dit:
on ne redim pas les antécédents dans un array c'est toujours la dernière dimension qui est redimensionnement en occurrence ici pour un array une dimensions c'eest la fin que que l'on peut redimensionner pas le début pour faire ce que tu cherche il te faut le couper
tu a application.index pour ca avec un array ou avec mes astuces evaluate

comme ceci

VB:

Option Explicit Option Base 1 ' Exemple d'utilisation Sub SampleResizePosTab() Dim Montants() As Double, montantcoupe ReDim Preserve Montants(1 To 5) Montants(1) = 0: Montants(2) = 0 Montants(3) = -100: Montants(4) = 10: Montants(5) = 300 montantcoupe = Application.Index(Montants, Evaluate("COLUMN(" & Columns(3).Resize(, 3).Address(0, 0) & ")")) MsgBox "a l'origine il y a " & UBound(Montants) & vbCrLf & "maintenant il yen a " & UBound(montantcoupe) End Sub

@patricktoulon je vois que vous utilisez une fonction de feuille de calcul pour votre tableau (liste en l'occurrence ici) "montants", je ne savais pas que c'était possible, peut on toutes les utiliser (par exemple countif) ?
Merci d'avance pour vos lumières
A +

patricktoulon · 20 Novembre 2021

re
bonsoir @Wayki
oui quelque unes bien que countif est un membre de application il n'est donc pas nécessaire de bidouiller evaluate

ici j'utilise application .index

VB:

x=application.index( variable tableau, [ array 2 dimensions(x ligne 1 colonne ] , [ array  une dimensions ] )

XL 2016 Redimensionner un tableau de données en ne prenant que les 3 derniers éléments

elgringo123456

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

patricktoulon

XLDnaute Barbatruc

elgringo123456

XLDnaute Occasionnel

Wayki

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Discussions similaires