Boucle sur 195 lignes!!!

[gex1403]

Bonjour le forum, enfin de retour

Problème:
Comment faire une boucle sur 195 lignes????

Sur ma feuil1, je teste la valeur en W2( une date), si la date est atteinte ; je mets 0 en L2, et ajoute 1 an a ma date .

Ds Workbook_Open
With sheets('Feuil1').range('W2')
If Date>= .value Then
Sheets('Feuil1').range('L2').value=0
.value=DateAdd('yyyy',1,.value)
End if
end with

J'ai a faire cette manip sur 195 lignes, Quelqu'un a t_il une solution plus rapide que de se retaper a ecrire cette procedure pour chaque lignes???

Merci d'avance
@micalement

 

[PascalXLD]

Bonjour

essaies
dim i as byte
for i = 2 to 195
With sheets('Feuil1').range('W' & i)
If Date>= .value Then
Sheets('Feuil1').range('L' & i).value=0
.value=DateAdd('yyyy',1,.value)
End if
end with
next i

Bon courage

 

[Jacques87]

Bonjour

Si tes lignes sont consécutives, par exemple de 5 à 200, tu inséres ton code dans la boucle suivante

For I = 5 To 300
Rows(I).Select
......
Next I

 

[ERIC S]

Bonjour

Ds Workbook_Open
for i = 2 to 195
addresse = 'W' & i
dest = 'L' & i
With sheets('Feuil1').range(adresse)
If Date>= .value Then
Sheets('Feuil1').range(dest).value=0
.value=DateAdd('yyyy',1,.value)
End if
next i
end with

pas essayé mais devrait marcher, réalise un eboucle sur lignes 2 à 195

A+

 

[dg62]

bonjour jex1403

j'espère avoir compris le problème !

for i = 2 to 195
With sheets('Feuil1').range('W' & i) 
If Date>= .value Then 
Sheets('Feuil1').range('L' & i).value=0 
.value=DateAdd('yyyy',1,.value) 
End if 
end with 
next i

j'ai été pris de vitesse, trop vite le forum !

Message édité par: dg62, à: 03/02/2006 14:58

 

[Jacques87]

Oups, bonjour Pascal
étant donné la vitesse que nous connaissons maintenant, on risque de se faire plus mal lors des chocs.

Amicalement et bonne journée


PS : maintenant ça va tellement vite que dg62 (entre autres) arrive à s'insérer entre 2 posts et de ce fait on oublie de les saluer, donc bonjour également

Message édité par: Jacques87, à: 03/02/2006 14:59

 

[gex1403]

Merci Pascal, Jacques , eric et dg62, avec tout , je vais me debrouiller.

@+
Bonne journée