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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !