Posez votre question Signaler

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

Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Dernière intervention
20 mai 2005
 - - Dernière réponse : mlhaquin
Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Dernière intervention
20 mai 2005
 - 19 mai 2005 à 14:02
Visual Basic Posez votre question Signaler
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...
Afficher la suite 

2 réponses

Meilleure réponse
Signaler Commenter la réponse de cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
 73
3
Merci
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)

Dire « Merci » 3

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

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

Signaler Commenter la réponse de mlhaquin
Messages postés
14
Date d'inscription
mercredi 15 novembre 2000
Dernière intervention
20 mai 2005
 1
1
Merci
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...
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.