Loop for j

[cg1980]

bonjour,
j'essaye de faire une boucle assez simple.

il s'agit de faire la somme de la colonne c pour la plage de cellule en b non vide.

mais la commande : a = Range("c" & j) + a ne marche pas. le reste semble bon.

merci de votre aide
--------------------------------------------

Sub Macro1()

Dim i As Integer
Dim a As Integer

i = WorksheetFunction.CountA(Columns(2))
a = 0
For j = 1 To i

a = Range("c" & j) + a

Next j

MsgBox a
End Sub

 

[pierrejean]

Re : Loop for j

Bonjour cg1980

Désolé de te contredire : Cette macro fonctionne parfaitement

 

[cg1980]

Re : Loop for j

merci. cette macro marche effectivement.

j'avais le message " erreur 6 depassement de capactié". je sais pas vraiment ce que c'est mais j'ai refais sur un autre fichier et ca marche.
+

 

[cg1980]

Re : Loop for j

ha j'ai compris il fallait definir en "as double" au lieu de "as integer"