Discussion :

[C.R.E.A.M]

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 !

[COCONUT2]

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.

[C.R.E.A.M]

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

Merci

[Michel_M]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

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.

[C.R.E.A.M]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Michel_M]

pour Zazaraignée:

Bien Chef, Oui, chef!