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+

[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

[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]

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

[AlainTech]

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

Je veux bien m'attaquer à la cerise mais:

1. Je te propose de créer une nouvelle discussion puisque le problème de tableau est résolu.
2. Corrige ton énoncé. Tu as une liste de nombres et pas de chiffres.
3. Précise-nous si tes nombres seront toujours dans le désordre ou s'ils peuvent être triés.
4. J'espère que tu te contentes de 2 opérandes... Sinon, le traitement risque d'être un peu complexe et, du coup, aurait plus sa place dans le forum algorithme.

A+