Somme des éléments d'un tableau
Résolu
mlhaquin
mlhaquin
- Messages postés
- 14
- Date d'inscription
- mercredi 15 novembre 2000
- Statut
- Membre
- Dernière intervention
- 20 mai 2005
mlhaquin
- Messages postés
- 14
- Date d'inscription
- mercredi 15 novembre 2000
- Statut
- Membre
- Dernière intervention
- 20 mai 2005
A voir également:
- Sgn vba
- Tableau vb - Meilleures réponses
- Tableau en vb - Meilleures réponses
- ASM : Addition de 2 tableaux,mise du resultat dans un 3° tableau,calcul de la somme des element - Guide
- Somme des elements de tableau ✓ - Forum - Visual Basic 6
- Algorithme insertion d'un element dans un tableau trié - Guide
- Supprimer un élément d'un tableau php ✓ - Forum - PHP
- Ajouter un élément dans un tableau java - Forum - Java
2 réponses
cs_Jack
18 mai 2005 à 19:24
- Messages postés
- 14007
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
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)
- 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)
mlhaquin
19 mai 2005 à 14:02
- 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...
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...