Discussion :

[Rainn]

Bonjour, merci de te pencher sur le sujet a ton tour.

Je ne trouve pas l'outil "text by column" et en cherchant sur internet je trouve
qu'il sert a séparer les différents contenus d'une cellule sur différentes colonnes..

Peut tu m'indiquer ou se trouve cet outil et en quoi il me sera utilise s'il te plait ?

[halaster08]

Ici:


En plus d'éventuellement séparer le contenu d'une colonne en plusieurs, il permet aussi changer le format, ici passé du texte a une date

[Rainn]

Super <3

Merci beaucoup ca me permet de faire un grand bon en avant grace a toi j'ai des dates
et grâce a Riaolle je peux utiliser ses dates pour filtrer mes doublons

Merci beaucoup a vous 2 !

[Rainn]

Le code est fonctionnel!

je le partage pour ceux qui viendront chercher une réponse plus tard

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
38
39
40
41
42
Sub Archivage2()        
 
'ici on change le format pour qu'Excel reconnaisse les Dates.
        Sheets("List").Select
        Rows("1:1").Select
            Selection.Delete Shift:=xlUp
        Cells.Replace What:="Date : ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Columns("B:B").Select
            Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
            TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(1, 4), TrailingMinusNumbers:=True
 
'ici c'est un simple copier coller a partir de la 1st ligne vide
Sheets("List").Select
Range("A1:I50").Select
Selection.Copy
Sheets("Archive").Select
Range("A65000").End(xlUp).Offset(0).Select 'on cherche la 1st ligne vide
'(le chiffre dans "offset" correspond au décalage par rapport a la ligne trouvée,
'si on met 1 par exemple la liste sera collée en laissant 1 ligne vide)
ActiveSheet.Paste
 
'ici on classe les date pour avoir les plus récentes en haut et supprimer les plus anciennes
' grâce au gestionnaire de doublons
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("Archive").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Archive").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Archive").Sort
        .SetRange Range("A1:F100")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("A:I").Select
    ActiveSheet.Range("$A$1:$I$100").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Encore un grand merci a Riaolle et a Halaster !

[halaster08]

Pour info: l'utilisation des Select c'est mal (ça ralentit inutilement le code et peux provoquer des erreurs).
Obtenir du code via l'enregistreur c'est un bon début mais ensuite il faut le nettoyer.
C'est une bonne habitude que je te conseille de prendre le plus tôt possible.
Exemple:

Code :

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

1
2
3
        Sheets("List").Select
        Rows("1:1").Select
            Selection.Delete Shift:=xlUp

deviens:

Code :

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

Sheets("List").Rows("1:1").Delete Shift:=xlUp

[Rainn]

Le pire c'est que je le sais