Discussion :

[balistobalise]

Bonjour,

J'ai une plage de données et je désire garder les mêmes dates et les valeurs de ces dernières uniquement, pour chaque titre.

Est-ce que qqun à une piste pour me lancer.

Je vous présente le fichier.

Merci beaucoup de m'accorder de votre temps.

[Igloobel]

Bonjour,

C'est franchement pas clair
Explique en detail si tu veux des réponses parce que :
- J'ai une plage de données : laquelle ?
- je désire garder les mêmes dates et les valeurs de ces dernières uniquement : les dates et valeurs par raport a quoi ? (ça c'est vraiment obscur)
- pour chaque titre : c'est quoi tes titres ?

Même en regardant ton classeur je pige pas

(attention je te conseille de bien lire le premier post celui de Pierre Fauconnier)
De plus certains n'aime pas ou ne peuvent pas ouvrir les classeurs joint surtout au premier post

a+ (de détails)

[balistobalise]

Dans le fichier il y a deux type de données dans les colonnes a,c,e,g il y a des dates.

Dans les colonnes il y b,d,f,h il y la valeur d'un titre.

Comme on peut le constater que les dates ne sont pas les même à chaque ligne.
Exemple: la ligne deux
la date est 25 mars 2013 tandis que les autres c'est le 15.10.2012.

Ce que j'aimerais c'est d'avoir garder les mêmes date dans chaque ligne.
Si je reprend mon exemple.
Je supprimerais les dates de la ligne 2 colonnes a pour qu'elle affiche le 15 octobre 2012 comme les autres lignes. et faire cela pour les autres lignes.

Se que j'avais imaginé c'est c'est que je fasse une boucle qui compare les dates d'une colonne i par rapport j.

Si les dates sont les mêmes alors je passe à la suivante. Si c'est pas la même chose je supprimer la dates la plus récente et faite monter la date suivante.

Voila, je sais pas si c'est plus claire.

Cordialement

[balistobalise]

J'ai réussi à répondre partiellement à mon problème mais il reste un point à traiter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Macro1()
 
For i = 1 To Range("A1").End(xlDown).Row - 1
If Cells(i + 1, 1) > Cells(i + 1, 3) Then
 
Do Until Cells(i + 1, 1) = Cells(i + 1, 3)
 
            Union(Cells(i + 1, 1), Cells(i + 1, 2)).Delete
 
        Loop
 
End If
Next i
 
 
For i = 1 To Range("A1").End(xlDown).Row - 1
If Cells(i + 1, 1) < Cells(i + 1, 3) Then
Do Until Cells(i + 1, 1) = Cells(i + 1, 3)
 
            Union(Cells(i + 1, 3), Cells(i + 1, 4)).Delete
        Loop
End If
Next i
 
    freeRow1 = Worksheets("Feuil1").Range("A1").End(xlDown).Row
    freeRow2 = Worksheets("Feuil1").Range("C1").End(xlDown).Row
    freeRow3 = Worksheets("Feuil1").Range("E1").End(xlDown).Row
    freeRow4 = Worksheets("Feuil1").Range("G1").End(xlDown).Row
 
        NombreMin = Application.WorksheetFunction.Min(freeRow1, freeRow2, freeRow3, freeRow4)
 
 
    Rows(NombreMin).Select
    Range(Selection, Selection.End(xlDown)).Delete
 
 
End Sub

J'arrive à synchroniser les dates pour les colonnes A et C. Mais je voudrais que les colonnes A,C,E et G soit toutes synchronisées.

j'avais établie se code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Macro1()
For Y = 1 To 3
For i = 1 To Range("A1").End(xlDown).Row - 1
If Cells(i + 1, Y) > Cells(i + 1, Y * 2) Then
 
Do Until Cells(i + 1, Y) = Cells(i + 1, Y * 2)
 
            Union(Cells(i + 1, Y), Cells(i + 1, Y + 1)).Delete
 
        Loop
 
End If
Next i
 
 
For i = 1 To Range("A1").End(xlDown).Row - 1
If Cells(i + 1, Y) < Cells(i + 1, Y * 2) Then
Do Until Cells(i + 1, Y) = Cells(i + 1, Y * 2)
 
            Union(Cells(i + 1, Y * 2), Cells(i + 1, Y * 2 + 1)).Delete
        Loop
End If
Next i
 
    freeRow1 = Worksheets("Feuil1").Range("A1").End(xlDown).Row
    freeRow2 = Worksheets("Feuil1").Range("C1").End(xlDown).Row
    freeRow3 = Worksheets("Feuil1").Range("E1").End(xlDown).Row
    freeRow4 = Worksheets("Feuil1").Range("G1").End(xlDown).Row
 
        NombreMin = Application.WorksheetFunction.Min(freeRow1, freeRow2, freeRow3, freeRow4)
 
 
    Rows(NombreMin).Select
    Range(Selection, Selection.End(xlDown)).Delete
 
 
End Sub

Mais cela m'efface toute les données des colonnes A et B et la boucle ne s’arrête pas