Discussion :

[bab33]

Bonjour,

J'ai un problème de définition sur ce qu'est un tableau ou du moins le tableau que j'ai créé "ou est il?"

Je m'explique:
J'ai un fichier Excel avec une feuille "Eco" dans la quelle j'ai certaines case qui sont remplies (par ex. la cellule C4) que je range dans des variables (par ex: vie_eco)
pour pouvoir me servir de leurs valeurs dans mon code vba.

Ici je créé un tableau de dimension 2 avec vie_eco+4 lignes et 18 colonnes
Mais si je comprend bien (et a voir ce qui se passe dans ma feuille excel lorsque j 'execute ma maccro) ce tableau n'existe que sur vba il n 'est assigné a aucune plage de cellule dans ma feuille
Donc pour le remplir je parcours le tableau et lui assigne une valeur (par ex: tab_cash(5, 0) = n + 1 (j'ai bien sur donné une valeur a n))

1)Pour remplir certaines case de mon tableau, j'ai besoin d'utiliser des fonction qui elles memes necessitent "des plages" de valeurs (ex: sum(A1:A5)) mais voila gros problème A1:A5 ca decrit la feuille excel et non mon tableau
si je fais tab_cash(vie_eco , 17)=Sum(tab_cash(0vie_eco-1),18)) --> ca ne marche pas
si je fais tab_cash(vie_eco , 17)=Sum(tab_cash(0,18):tab_cash((vie_eco-1),18)) --> ca ne marche pas non plus

2)Très bien j'ai un tableau remplit sur vba mais comment faire pour qu'il "apparaisse" dans ma feuille excel, genre la premiere cellule de mon tableau tab_cash soit collée sur la cellule H5 de ma feuille excel et que le reste du tableau se colle automatiquement par rapport a cet ancrage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub cash_flow()
Worksheets("Eco").Activate
 
'Déclaration
Dim vie_eco As Integer
vie_eco = Range("C4").Value
 
Dim tab_cash()
ReDim tab_cash((vie_eco + 4), 18)

Voilà, toute explication, aide est la bienvenue!

Merci

[patricktoulon]

Bonjour

ca n'est pas très clair ton truc la

bon je pense que quand tu parle de tableau tu parle de variable tableau

exemple pour remplir une variable tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim montablo as variant 
montablo=range("A1:D20")

maintenant on veut lire les cellule de la variable tableau

se sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for ligne = 0 to ubound(montablo)-1' ici on boucle sur le nombre de ligne de la variable tableau
for col = 0 to range("A1:D20").columns.count -1'ici on boucle sur le nombre de colonne de la grille excel(c'est forcement le meme que la variable tableau 
msgbox montablo(ligne,col)
next
next

maintenant si on veut transférer une partie de la grille excel dans un autre onglet par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim montablo as variant 
montablo=sheets("toto").range("A1:D20")'on rempli la variable avec la plage A1D20 du sheets toto
'maintenant  on va mettre cette partie de la grille exell du sheets toto dans le sheets titi a partir de la cellule A5 par exemple 
sheets("titi").range("A5").resize(ubound(montablo),range("A1:D20").columns.count)=montablo

en fin des exemple on peut t'en faire mais si ton explication n'est pas plus claire ca risque d'être difficile

[bab33]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim montablo as variant 
montablo=range("A1:D20")

Justement la dans la manière dont tu crées le tableau, il est directement alloué a des cases de la feuille excel alors que moi dans la manière dont je déclare mon tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim tab_cash()
ReDim tab_cash((vie_eco + 4), 18)

je l'assigne a rien du tout, il n 'est lié a aucune case du fichier excel.

il est quelque part stocké avec un nombre de ligne et de colonne sans référence d'attache je sais pas si c'est plus clair...
d'ou mes questions

je comprend bien ce que tu fais ... ma méthode n'est elle pas correcte?Parcque je le jures je créee bien un tableau dont je peux voir chaque case avec un "MsgBox"

[Igloobel]

Bonjour,

Pour répondre à ta question ton tableau est déclaré en variable comme te le dit patricktoulon

et donc il n'est qu'en mémoire !

si je fais tab_cash(vie_eco , 17)=Sum(tab_cash(0vie_eco-1),18)) --> ca ne marche pas
si je fais tab_cash(vie_eco , 17)=Sum(tab_cash(0,18):tab_cash((vie_eco-1),18)) --> ca ne marche pas non plus

Je confirme que ça cela ne peut pas marcher tu mélange une variable (VBA) evec une fonction

donc pour faire ta somme tu dois récupérer les valeurs contenus dans tes cellules (ou te ton tableau) et les additionner

exemple (c'est pas le plus élégant mais c'est pour te faire comprendre le principe)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tab_cash(vie_eco , 17)=tab_cash(1, 18)+tab_cash(2, 18)+....+tab_cash(vie_eco , 18)

Bien evidemment ici l'idéal serait de faire une boucle

A+

[Invité]

Bonjour,
j’avoue n’avoir rien compris sur ce que tu veux faire!

en tous cas si tu déclare un tableau, tu n’aura pas de lien entre celui-ci et ta feuille excel!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test1()
Dim montablo As Variant 'je déclare un tableau
montablo = Range("A1:D20")
End Sub

si tu déclare une collection de cellules, tu auras un lien entre ta collection et ta feuille Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test2()
Dim montablo As Range 'je déclare une collection de cellules
Set montablo = Range("A1:D20")
End Sub

[bab33]

Hum je comprend mieux!

Dans mon cas, je crée mon tableau en méoire et je remplis chacune des cases en mémoire --> c'est pour cela que je ne peux pas utiliser les fonctions dont les arguments contiennent des plages de tableau (puisque ces plages la ne sont définies que en dur)

Deux solutions soit je remplis mon tableau en memoire et ensuite je fais comme suggère rdurupt en sens inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Range("A1:D20")=montablo

Soit j'assigne directement mon tableau a une plage de cellules et dans ce cas je peux utiliser les fonction déjà définies dans excel


Je pense avoir compris mon problème

Merci a tous