OVH Cloud OVH Cloud

stockage de valeurs dans un tableau

3 réponses
Avatar
Kared
bonjour,

je souhaiterais stocker des cellules d'une feuille (nombre de lignes
variables => ajout au fur et a mesure et nombre de colonnes fixes)

j'ai entendu parler des tableaux virtuels et lu quelques post à ce sujet
mais je n'arrive pas à le mette en oeuvre
un exemple de ce que j'ai fait :

Sub test()

Dim tableau() As Single
Dim X
Dim Y
Dim I
Dim J

Y = 4 ' nombre de colonnes

Sheets("Tarif").Select
Range("A1").Select

For I = 1 To 6 ' un exemple dans la realite je recupere le nombre de
lignesavec un countrow

ReDim Preserve X(UBound(Y) + 1) 'c est la que ca vaas pas


For J = 1 To 4
Next
Next
End Sub

je n'ai pas la description des tableaux dans l'aide de VB

merci d'avance

3 réponses

Avatar
AV
je souhaiterais stocker des cellules d'une feuille (nombre de lignes
variables => ajout au fur et a mesure et nombre de colonnes fixes)


Pourquoi ne pas simplement utiliser une plage définie dynamiquement ?
(fonction DECALER)

AV

Avatar
Kared
je suis ouvert à toute proposition (sous excel bien sur)
mais j'aimais bien l'idée du tableau de variables car je ferais cela depuis
un formulaire
de plus je serais ammané à supprimer des lignes ou en modifier


"AV" wrote:

je souhaiterais stocker des cellules d'une feuille (nombre de lignes
variables => ajout au fur et a mesure et nombre de colonnes fixes)


Pourquoi ne pas simplement utiliser une plage définie dynamiquement ?
(fonction DECALER)

AV






Avatar
AV
je suis ouvert à toute proposition (sous excel bien sur)
** T'es dans le bon forum !


mais j'aimais bien l'idée du tableau de variables car je ferais cela depuis
un formulaire
** Je vois pas très bien ce que ça peut changer....


de plus je serais ammané à supprimer des lignes ou en modifier
** C'est tout l'intérêt de la plage dynamique

Exemple pour un tableau en A1: Kx
Insertion > Nom Définir > Nom dans le classeur : "tablo" > fait référence à :
ÞCALER($A$1;;;NBVAL($A:$A);NBVAL($A$1:$K$1))
Ok


PS ; Etiquettes de colonnes en A1:K1
AV