Plusieurs dates identiques

Bonsoir,

Je viens vers vous , car j'ai un petit soucis que je n'arrive pas à résoudre, j'ai une feuille avec en colonne A plusieurs dates identiques, ces dates renvoient différentes valeurs , je voudrais n'avoir qu'une seule date et avoir les valeurs sur la meme ligne .

Je vous joint un fichier de ce que j'ai et ce que j'aimerais avoir, mais je n'y arrive pas !

Merci d'avance si quelqu'un peut m'aider.

Bonsoir lynelolaluc,

Deux lignes ayant la même date peuvent-elles avoir des données dans la même colonne?

Exemple concret:

la ligne 5 et la ligne 6 ont la même date

Es-ce que en B5 ET en B6 je peux avoir une valeur, ou uniquement l'un?

En fonction de ta réponse je pourrais ou non te proposer une solution.

Une proposition VBA, à copier dans le code de la feuille à trier, et à exécuter, ou télécharger le fichier, et exécuter le code

Private Sub nettoyage()
Dim ligne As Long, doublon As Boolean, dateTestee As String
On Error GoTo probleme

premiereLigne = 5
dateTestee = ActiveSheet.Cells(premiereLigne, "A")

doublon = False
Do
    For ligne = premiereLigne + 1 To ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
        If dateTestee = ActiveSheet.Cells(ligne, "A") Then
            doublon = True
            'On a un doublon
            For Each cell In ActiveSheet.Range("B" & ligne & ":CC" & ligne)
                If Not IsEmpty(cell) Then ActiveSheet.Cells(ligne - 1, cell.Column).Value = cell.Value
            Next cell
            ActiveSheet.Rows(ligne).EntireRow.Delete
        Else
            dateTestee = ActiveSheet.Cells(ligne, "A")
            doublon = False
        End If
    Next ligne
Loop While doublon = True
MsgBox "terminé"
Exit Sub
probleme:
MsgBox "Erreur lors du nettoyage, le tableau est-il possible?"
End Sub

Bonjour d3d9x,

Merci de ta réponse, deux lignes ayant la meme date ne peuvent pas avoir des données dans la meme colonne.

Merci de ton aide , je regarde tout ça et te recontact si tu veux!