boucle qui se boucle trop tôt

[Batiscaf]

Bonsoir le forum,

Dans le code du fichier joint, je n'arrive pas à faire fonctionner ma boucle for next jusqu'au bout de toutes les lignes de ma base.
Le principe : Je duplique les lignes lorsque plusieurs nuits sont passées dans un hotel pour un même participant. Cela me permet ensuite de faire de faire le tcd programmé.
Mon problème se situe dans la partie 2 de la macro :
La boucle s'arrête à la valeur initiale de la variable "derlig" alors que je fais bien évoluer cette valeur dans ma boucle.
Il y a donc quelque chose que je ne comprends pas (ou plus à cette heure-ci) dans cette boucle.

Merci de bien vouloir m'aider.

Cordialement.
Batiscaf
ps. le reste de la macro est ok

 

[ftho]

Re : boucle qui se boucle trop tôt

Bonjour,

pour ta boucle, essaie comme ceci :

For i = derlig To 2 Step -1
    If Range("H" & i) > 1 Then
        Rows(i).Copy
        Rows(i + 1).Insert
        Range("F" & i + 1).FormulaR1C1 = "=R[-1]C+R[-1]C[3]"
        Application.CutCopyMode = False
    End If
Next

 

[Batiscaf]

Re : boucle qui se boucle trop tôt

Bonjour ftho,

Désolé mais ça ne va pas car pour les durées de nuitées supérieures à 1 il faut que je créé une ligne par nuit, or ton code ne permet que de créé un ligne supplémentaire.

Cdlt.
Batiscaf.

 

[Catrice]

Re : boucle qui se boucle trop tôt

Bonjour,

ci-joint une adaptation à tester.
J'ai modifié les dates dans le tableau d'origine. Elles ne semblent pas correctes.
Il faut sans doute les traiter avant de démarrer la macro.
Peux tu préciser pourquoi elles ont se format ?

 

[Batiscaf]

Re : boucle qui se boucle trop tôt

Bonjour Catrice, ftho, le forum,

En fait les dates sortent "à l'anglaise" bien que le format de cellule soit français.
J'ai finalement forcé le nombre de lignes en en déduisant le nombre total de nuitées.
Voici ce que ça donne.

Merci à vous.
Batiscaf.