Somme des éléments d'un tableau

Résolu
mlhaquin
Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
20 mai 2005
- 18 mai 2005 à 18:15
mlhaquin
Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
20 mai 2005
- 19 mai 2005 à 14:02
bonjour, j'ai un tableau à 1 colonne créé sous VB et je voudrais additionner les éléments de ce tableau. est-ce que quelqu'un peut m'aider, je suis débutante et je sais pas comment faire...

voila une partie de mon programme, je souhaite additionner les éléments du tableau xi

ReDim maVariable(0, iTab)
ReDim xi(0, iTab)

For iTab = 0 To (UBound(monTab1, 2) - 1)
maVariable(0, iTab) = (AiCarre(0, iTab)) ^ (1 / 2) * monTab1(3, iTab) _
* monTab1(4, iTab)
xi(0, iTab) = maVariable(0, iTab) * Sgn(1 - monTab1(1, iTab))
Next iTab


ReDim Preserve maVariable(0, iTab)
ReDim Preserve xi(0, iTab)

merci bcp !

j'aime pas programmer...

2 réponses

cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
18 mai 2005 à 19:24
Salut
- Tu parles d'un tableau à 1 colonne et je ne le vois pas : il n'y a que des tableaux à 2 dimensions !
- Contrairement à la propriété Count des objets, UBound te renvoie le chiffre du dernier index d'un tableau --> Enlève le - 1 dur For-Next
- Pour être puriste, il faudrait remplacer (dans le For-Next) le 0 par LBound(monTableau)
- Tu parles d'additionner mais les formules que tu utilises sont plus complexes : que faut-il faire ?

Bref, la prochaine fois, essaye d'être précise, parce que là, c'est un peu n'importe quoi dans l'énoncé.
Si ton tableau s'appelle monTableau et est dimensionné vraiment avec une seule colonne/dimension :

Dim Somme As Double
Somme = 0
For iTab = LBound(monTableau) To UBound(monTableau)
Somme = Somme + monTableau(iTab)
Next iTab

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
3
mlhaquin
Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
20 mai 2005

19 mai 2005 à 14:02
maintenant je voudrais tracer un graphe avec les valeurs contenues dans le tableau suivant, et pour tout vous avouer j'en ai marre de chercher...

ReDim FB(1, iTab2)
For iTab2 = LBound(monTab2, 2) To (UBound(monTab2, 2) - 1)
FB(0, iTab2) = ((FBCarre(0, iTab2)) ^ (1 / 2))
FB(1, iTab2) = ((FBCarre(1, iTab2)) ^ (1 / 2))
MsgBox FB(1, iTab2)
Next iTab2
ReDim Preserve FB(1, iTab2)

comme vos réponses me satisfont pleinement, ptet que vous allez encore une fois pouvoir m'éclairer !...

merci encore
j'aime pas programmer...
0