Recopier ligne avec constantes et variables en fonction d'un intervalle de dates

titeuf · 20 Janvier 2011

Bonjour les xldiens & xldiennes,

j'avance sur mon projet et rencontre de nouveau une difficultée:

à chaque fois qu'il y a un intervalle de plus d'un jour entre deux dates,
j'ai besoin de recopier la ligne concernée, d'autant de fois;

par exemple: en col D le:18/01/11, en col E le 21/01/11
Recopier cette ligne 2 fois, avec une information changeante:
1ère recopie avec en col D le 19/01/11,
2ème recopie avec en col D le 20/01/11;
les autres informations (dans les autres colonnes doivent elles rester identiques)

j'arrive bien dans mon code à identifier en fonction de cet intervalle supérieur à un jour et recopier d'autant la ligne, mais pas à garder en constant les autres cellules autres qu'en colonne D lorsqu'il s'agit de dates!

je vous join le fichier pour faciliter.

Merci pour votre attention

Bonne journée

Cijoint.fr - Service gratuit de dépôt de fichiers

tototiti2008 · 21 Janvier 2011

Re : Recopier ligne avec constantes et variables en fonction d'un intervalle de dates

Bonjour titeuf,

un essai

Code:

Sub CréerNewligne()
Dim i As Long, NouvLigne As Long, Diff As Long, j As Long
With Sheets("BDD Clients")
For i = 1 To .Range("D65536").End(xlUp).Row
    Diff = .Cells(i, 5).Value - .Cells(i, 4).Value
    If Diff > 1 Then
        NouvLigne = .Range("D65536").End(xlUp).Row + 1
        For j = 1 To Diff - 1
            .Cells(i, 1).EntireRow.Copy .Cells(NouvLigne + j - 1, 1)
            .Cells(NouvLigne + j - 1, 4).Value = .Cells(i, 4).Value + j
        Next j
    End If
Next i
End With
End Sub

titeuf · 21 Janvier 2011

Re : Recopier ligne avec constantes et variables en fonction d'un intervalle de dates

Merci Tototiti,

ça fonctionne à merveille,
Bon WE

Recopier ligne avec constantes et variables en fonction d'un intervalle de dates

titeuf

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

titeuf

XLDnaute Nouveau

Discussions similaires