Somme des éléments d'un tableau [Résolu]

Signaler
Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
20 mai 2005
-
Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
20 mai 2005
-
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

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
20 mai 2005
1
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...