OVH Cloud OVH Cloud

calcul avec range

2 réponses
Avatar
boblebob
salut,

soit la proc=E9dure suivante :=20
for i=3D3 to 50
If Cells(i, 1).Value >=3D 600000 And Cells(i, 1).Value <=3D=20
629999 Then
Reponse1 =3D Cells(i, 3).Value
ReponseA =3D ReponseA + Reponse1

...
end if
next i
en gros cela prend le contenu d'une cellule de la colonne=20
C si le contenu de la cellule colonne 1 est >600000 et=20
<=3D629999.
tout marche bien si la cellule de la colonne 1 n'est pas=20
vide, le probl=E8me c'est qu'il s'arr=EAte de boucler=20
lorsqu'il rencontre une cellule vide, j'ai bien tent=E9 de=20
mettre un On error resume next en d=E9but mais =E7a n'est pas=20
terrible.

Une id=E9e pourcontinuer le calcul meme s'il rencontre une=20
cellule vide ?=20

merci
a+
bob

2 réponses

Avatar
Vincent.
Salut !
Peut-être en ajoutant un test :
...and not isempty(cells(i, 3)) then...
Non? (g pas pris le temps de tester désolé)

V.

-----Message d'origine-----
salut,

soit la procédure suivante :
for i=3 to 50
If Cells(i, 1).Value >= 600000 And Cells(i, 1).Value <=
629999 Then
Reponse1 = Cells(i, 3).Value
ReponseA = ReponseA + Reponse1

....
end if
next i
en gros cela prend le contenu d'une cellule de la colonne
C si le contenu de la cellule colonne 1 est >600000 et
<b9999.
tout marche bien si la cellule de la colonne 1 n'est pas
vide, le problème c'est qu'il s'arrête de boucler
lorsqu'il rencontre une cellule vide, j'ai bien tenté de
mettre un On error resume next en début mais ça n'est pas
terrible.

Une idée pourcontinuer le calcul meme s'il rencontre une
cellule vide ?

merci
a+
bob
.



Avatar
Jpl
Bonjour,

moi aussi j'ai des problèmes avec les cellules vides et
c'est normale ! En effet, la cellule vide permet de
détecter la fin d'une ligne ou d'une colonne.
J'ai résolu le problème en faisant en sorte de ne plus
avoir de cellule vide, je mets un zéro pour le numérique,
un tiret pour l'alphanumérique.

Joseph
-----Message d'origine-----
Salut !
Peut-être en ajoutant un test :
....and not isempty(cells(i, 3)) then...
Non? (g pas pris le temps de tester désolé)

V.

-----Message d'origine-----
salut,

soit la procédure suivante :
for i=3 to 50
If Cells(i, 1).Value >= 600000 And Cells(i, 1).Value <=
629999 Then
Reponse1 = Cells(i, 3).Value
ReponseA = ReponseA + Reponse1

....
end if
next i
en gros cela prend le contenu d'une cellule de la
colonne


C si le contenu de la cellule colonne 1 est >600000 et
<b9999.
tout marche bien si la cellule de la colonne 1 n'est
pas


vide, le problème c'est qu'il s'arrête de boucler
lorsqu'il rencontre une cellule vide, j'ai bien tenté
de


mettre un On error resume next en début mais ça n'est
pas


terrible.

Une idée pourcontinuer le calcul meme s'il rencontre
une


cellule vide ?

merci
a+
bob
.

.