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 !