Discussion :

[alsimbad]

Bonjour tout le monde
je stocke une plage de cellule sous la forme

Code :

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

1
2
3
for i = 1 to 3
tableaucomptes(i) = array(cel, cel.offset(0,1), cel.offset(0,2), cel.offset(0,3)) 
next i

jusque la tout va tres bien. je souhaiterai renvoyer la valeur d'une de ces cellules

Code :

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

genre msgbox  tabcompte(2).array(3)

evidement ce n'est pas ça qui marche, mais es ce possible?

deuxieme question. si j'ai une liste de chiffre et un resultat et les operateur + et -
puis je dire
j'ai les chiffres 5.12.15 . 4.1.16 3. 20
je connais le resultat 17
et que le calcul me renvoie 5 + 12; 16 + 1; 20 -3, ça , je ne pense pas mais on peut rever. merci d'avance pour les tuyaux

[ouskel'n'or]

Regarde déjà là, si ça peut te donner une idée


Ch't'avais bien dit, starec, que ça servirait à quelqu'un

[alsimbad]

excuse moi ouskel, merci de m'avoir trouvé une réponse, mais je ne sais pas si c'est une question de fatigue ou de dépassement de capacité, mais je ne comprend rien, a la faq. je ne vois pas l'adaptation a mon probleme. je dois etre a bloc pour ce soir. un coup de pouce plus clair est le bienvenue, je trouverais pas tout seul

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub testEableau()
Dim cel As Range
Set cel = Range("A1")
For i = 1 To 3
tableaucomptes = Array(cel, cel.Offset(0, 1), cel.Offset(0, 2), cel.Offset(0, 3))
Next i
For i = LBound(tableaucomptes, 1) To UBound(tableaucomptes, 1)
        MsgBox tableaucomptes(i)
Next
End Sub

Si ça peut t'aider
A+

[alsimbad]

ok, merci ouskel, c'est un peu plus clair, je regarderai demain, merci bien

[ouskel'n'or]

Si ta plage est du style A1:H1 ou H1:Z15, tu peux récupérer les données ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TableauxDeCellules()
Dim Montab As Variant, cmpt1 As Long, cmpt2 As Long
Montab = Range("A1:H15").Value
For cmpt1 = LBound(Montab, 1) To UBound(Montab, 1)
    For cmpt2 = LBound(Montab, 2) To UBound(Montab, 2)
        MsgBox Montab(cmpt1, cmpt2) 
    Next cmpt2
Next cmpt1
'Et en sens inverse
Worksheets("Feuil1").Range("A1:H15").Value = Montab
End Sub

qui était l'exemple donnée dans l'adresse citée
A toutes fins utiles
A+

[alsimbad]

bon, je suis un peu plus en forme, merci d'avoir été patient. j'ai compris que ubound et lbound petit et grande et cmt1 et cmt2 represente les lignes et colonnes du tableau de variable. mais voila, a la maniere dont je fait mes tableau, je ne vois pas comment appliquer en effet

Code :

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

1
2
3
for i = 1 to 3
tableaucomptes(i) = array(cel, cel.offset(0,1), cel.offset(0,2), cel.offset(0,3)) 
next i

alors

Code :

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

si tableaucompte(1) )  = array(cellule 1, cellule 2, cellule 3, cellule 4)

si j'utilise ta methode, je pourrais renvoyerpour montableau(1) le array qui contien une plage de 4 cellules. mais comment renvoyerune seule cellule de cet array?
si je veux renvoyer dans le tableau(2) la troisieme cellule

Code :

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

montableau(2) = array(celule10, cellule20,cellule30,callule40)

je veux renvoyer la valeur de la cellule30. pas facile
techniquement, je ne crois pas que excel accepte des tableaux a plusieurs dimensions, c'est une ruse que je recherche. mais bon, je ne sais pas si je me fais bien comprendre

[SilkyRoad]

bonjour

as tu essayé cette syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
Dim TableauComptes As Variant
Dim Cel As Range
 
Set Cel = Range("A1")
'Plage A1:D3
TableauComptes = Range(Cel, Cel.Offset(3, 4))
 
'cellule C2
MsgBox TableauComptes(2, 3)

bon week end
michel

[alsimbad]

je viens d'essayer. la aussi,

Code :

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

msgbox TableauComptes(2, 3)

renvoie la case qui est en coordonée 2 et 3 d'un tableau existant, mais ce n'est pas un tableau de variable que je stocke, c'est une série de range.
une entrée dans le tableau est une série de plusieurs valeur. si ce ne sont pas des cellules, cela pourait etre des valeurs
disons

Code :

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

1
2
3
4
5
6
valeur1 = 1, 2, 3, 4, 5
valeur2 = 6,7,8,9,10
valeur3 = 11,12,13,14,15
montab = (valeur1,valeur2,valeur3)
et si je veux sortir le 9, je fais
msgbox   montab(2,4)

mais voila, ça serais trop simple

[ouskel'n'or]

Eh non ! On peut pas... A la limite, on peut écrire

Code :

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

1
2
3
4
5
6
 
Dim Montab, valeur1, valeur2, valeur3
valeur1 = Array(1, 2, 3, 4, 5)
valeur2 = Array(6, 7, 8, 9, 10)
valeur3 = Array(11, 12, 13, 14, 15)
Montab = Array(valeur1, valeur2, valeur3)

ou

Code :

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

1
2
3
4
5
Dim Montab As Variant, valeur(3)
valeur(1) = Array(1, 2, 3, 4, 5)
valeur(2) = Array(6, 7, 8, 9, 10)
valeur(3) = Array(11, 12, 13, 14, 15)
Montab = Array(valeur(1), valeur(2), valeur(3))

mais s'il existe une méthode pour sortir quelque chose de Montab je ne la connais pas
Par contre, les n valeur ça on peut...
Et donc, je ne t'apprends rien
A+

[SilkyRoad]

bonjour

renvoie la case qui est en coordonée 2 et 3 d'un tableau existant, mais ce n'est pas un tableau de variable que je stocke, c'est une série de range.
une entrée dans le tableau est une série de plusieurs valeur. si ce ne sont pas des cellules, cela pourait etre des valeurs
disons

Code :
valeur1 = 1, 2, 3, 4, 5
valeur2 = 6,7,8,9,10
valeur3 = 11,12,13,14,15
montab = (valeur1,valeur2,valeur3)
et si je veux sortir le 9, je fais
msgbox montab(2,4)mais voila, ça serais trop simple

je suis désolé mais je ne comprend pas ton message



michel

[alsimbad]

ben merci les gars, je comprend mieux pourquoi j'y arrivais pas. ça doit pas etre possible tout simplement. la seule façon que j'ai trouvé c'est d'écrire ma serie de range dans un tableau, puis d'extraire ma valeur, par sa position dans ce nouveau tableau. j'essayais juste d'éviter cette étape intermediaire. merci encore, bonne journée tout le monde

[AlainTech]

Voici une syntaxe qui fonctionne:

Code :

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

1
2
3
4
For i = 1 To 3
  tableaucomptes(i) = Array(2, 5, 7, 9)
Next i
MsgBox tableaucomptes(2)(3)

[ouskel'n'or]

Merci Alain.

[edelweisseric]

Bonjour à tous
Bonjour à vous 4

J'ai suivi cette discussion avec un très grand intérêt, mais je n'ai pas vraiment compris la 1ère question de alsimbad, car dans ce cas là je prend généralement un tableau bidirectionnel (voir multi au besoin) tout simplement sauf si tu voulais aller au plus court !!!! quant à ta deuxième question, j'ai l'impression qu'elle est restée dans les oubliettes, ou alors je vais me coucher tout de suite

En ce qui concerne la réponse de AlainTech, là c'est le désert dans mon petit cerveau, je ne vois pas comment utiliser ce code, si je pouvais avoir des explications elles seraient les bien venues,

Merci d'avance

A+

[ouskel'n'or]

Mais oui, Alain il est comme ça. Il arrive, il donne la bonne réponse que tout le monde attendait avec un exemple belge et il s'en va sans regarder en arrière.
Je reprends un exemple donné par un autre

Code :

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

1
2
3
4
5
6
Dim Montab, valeur1, valeur2, valeur3
valeur1 = Array(1, 2, 3, 4, 5)
valeur2 = Array(6, 7, 8, 9, 10)
valeur3 = Array(11, 12, 13, 14, 15)
Montab = Array(valeur1, valeur2, valeur3)
Msgbox Montab (2) (3)

Et là, ton "petit cerveau" prend tout de suite une aut' gueule
A+

C'est comme si tu mettais

Code :

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

1
2
Montab = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
msgbox Montab(13)

... mais c'est plus long

[alsimbad]

salut Alain
effectivement, ton code fonctionne. je n'ai pas le loisir de m'y remettre tout de suite, vu que je suis sur une histoire de fonction, mais dès que possible, je reteste.

pour la deuxieme partie de la question, c'était un peu la cerise sur le gateau, mais j'y croyais pas trop, et si c'est possibele, j'ai peur que ce soit un peu compliqué pour moi; mais merci a tout ceux qui se seront penché sur le sujet

[ouskel'n'or]

je prend généralement un tableau bidirectionnel (voir multi au besoin)

Il va dans tous les sens alors...

multi dimensions...

[alsimbad]

et comment fait on un tableau bidirectionel? ça m'interresserait de le savoir?

[ouskel'n'or]

Pour le déclarer à deux dimensions
Dim LeTab(2,5),
à trois diemensions
LeTab2(3,5,2),
A 4...
LeTab3(4,5,2,7)
et pour récupérer

Code :

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

Msgbox LeTab(2,1) & " " & LeTab2(1,3,1) & " " & LeTab3(2,4,1,6)

Te reste plus qu'à renseigner tes tableaux pour tester
A+

Pour les remplir, LeTab3 par exemple, tu renseignes LeTab3(0,0,0,0), puis LeTab3(0,0,0,1)... LeTab3(0,0,0,7)...
puis
LeTab3(0,0,1,1)... LeTab3(0,0,1,7)...
puis
LeTab3(0,0,2,1)... LeTab3(0,0,2,7)...
etc