Manipulation d'entiers avec VBA

Bonsoir à tous,

Je voudrais savoir comment on fait pour utiliser des entiers avec VBA.
Par exemple, comment initialiser un entier à 0 et le modifier à chaque passage dans une boucle, puis mettre le résultat dans une certaine cellule.

Imaginons une boucle qui lit les cellules de 2 vecteur-colonne, et qui en fasse la somme des produits terme à terme (j'espère que c'est clair...)
Que faut-il modifier au code suivant (volontairement faux) ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

dim somme As Integer   Somme = 0 'Là c'est foireux j'imagine...   dim Cellule1 As Range dim Cellule2 As Range   Set Cellule 1 = Range("A1") Set Cellule 2 = Range("B1")   For i = 1 To 100   Somme = Somme + cellule1.Value * Cellule2.Value Set Cellule1 = Cellule1.Offset(1,0) Set Cellule1 = Cellule1.Offset(1,0)   Next i

---

Merci pour votre aide !

Non c'est tres bien ce que tu as écris.

Par défaut, un entier est à zéro au début de la procédure donc la ligne soit disant foireuse n'est pas fausse mais juste inutile.

Pfiou, je bloquais alors qu'il suffisait d'enlever la ligne superficielle :D

Merci ;)

bonsoir,

ca marche comme l'a dit Coconut mais il y a plus simple et rapide sans manipuler les variables "range"

Code:

---

1 2 3 4 5 6 7

Dim somme as integer dim cptr as byte 'perso vieille école: je n'aime pas les variables à 1 caractère   for cptr=1 to 100 somme=somme+cells(cptr,1)*cells(cptr,2) 'value est la propriété par défaut next

---

cordialement

J'ai envie de beurrer un peu plus épais sur la croute des habitudes de programmation.

Les seules variables à une lettre qu'il m'arrive d'utiliser se sont les indices d'une variable tableaux i et j (pour deux dimensions) et c et r pour col et row dans une grille du genre FlexGrid, ou une table excel. C'est peut-être une mauvaise habitude, mais tant qu'elle est constante. Le tout, c'est de rester clair.

Citation:

---

Envoyé par Michel_M

Code:

---

1 2 3

somme=somme+cells(cptr,1)*cells(cptr,2) 'value est la propriété par défaut next

---

---

Ah, merci pour ce petit tuyau.

pour Zazaraignée:

Bien Chef, Oui, chef!