Mettre à jour les dates

[nakadon]

Bonjour,

J'ai un tableau avec plusieurs lignes. Certaines lignes sont identiques. Est-ce possible pour les lignes qui sont identiques de modifier par macro la date qui se trouve en colonne "A" de la façon suivante : pour chaque ensemble de lignes identiques, la macro remplace la date de la première ligne par le 1er du mois en cours, la seconde ligne identique par le 1er du mois suivant, etc. Le tout trié par "Libellé1" et par "Date". Ci-joint un tableau avec l'onglet "avant" et "après".

D'avance merci.

 

[CISCO]

Re : Mettre à jour les dates

Bonjour

Est-ce indispensable de faire ça par macro ?

@ plus

 

[Paf]

Re : Mettre à jour les dates

Bonjour à tous

a priori

Sub  Nakadon()
Dim MaDate, DerLig, i, IndDeb
DerLig = Range("A" & Rows.Count).End(xlUp).Row

Range("A6:G" & DerLig).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

For i = 7 To DerLig
    MaDate = Cells(i, 1)
    IndDeb = i
    While Cells(i, 2) = Cells(i + 1, 2)
        Cells(i, 1) = DateSerial(Year(MaDate), Month(MaDate) + i - IndDeb, 1)
        i = i + 1
        Cells(i, 1) = DateSerial(Year(MaDate), Month(MaDate) + i - IndDeb, 1)
    Wend
Next
End Sub

A+