for .. to variable

[Maëlle]

Salut à tous,
j'ai un petit souci avec une boucle contenant une variable
la derniere ligne varie apres l'ajout de ligne dans la boucle
mais la variable derlign n'est pas mis a jour !!
j'ai essayer de faire la manip en partant de la dermiere ligne
for lign = derlign to 2 step -1 mais ça fout le souc dans l'obtention de mes numéro de semaine

derlign = Feuil1.Range('A56635').End(xlUp).Row  ' la derniere ligne
    
    For lign = 2 To derlign ' boucle pour tester les lignes
derlign = Feuil1.Range('A56635').End(xlUp).Row  ' recherche de la derniere ligne 
    dates = Feuil1.Range('A' & lign) ' va chercher la date
    'numéro de la semaine en fonction de la dates
    Semaine = Int((dates - DateSerial(Year(dates), 1, 1) + _
        ((Weekday(DateSerial(Year(dates), 1, 1)) + 1) _
        Mod 7) - 3) / 7) + 1
    If Semaine = 0 Then
        Semaine = (DateSerial(Year(dates) - 1, 12, 31))
    ElseIf Semaine = 53 And (Weekday(DateSerial(Year(dates), 12, 31)) - 1) _
        Mod 7 <= 3 Then
        Semaine = 1
    End If
If Semaine2 <> Semaine Then ' test pour savoir si la date de la ligne est diff de la ligne précédante
Feuil1.Rows(lign).insert Shift:=xlDown 'insertion ligne
Feuil1.Range('a' & lign) = 'Semaine ' & Semaine 'on inscrit le n° de semaine dans la ligne ajouter
Semaine2 = Semaine ' pour le prochain test
End If
Next

merci de votre aide

 

[pat1545.]

Salut,

à mon avis , tu dois comme souvent quand on insère ou delete une ligne, commencer depuis en bas ...

Patrick

 

[Maëlle]

Re bonjour le forum, Pat

Merci pour le conseil, je travaillais déjà dessus, en faite j'avais oublié que quand on travail de bas en haut il ne fallait pas forcément faire de même avec les lignes (j'enlevais au lieu d'ajouter) au final ça fonctionne.
A la prochaine