Copier uniquement l'année sans soublon

[Maddad]

Bonjour,

J'ai copié par VBA une colonne contenant des dates dans une autre sans les doublon éventuels, mais je voudrais que la colonne de destination n'affiche que l'année des dates copiées (bien sur sans doublons)

Merci pour votre aide

Fichier en PJ

 

[mapomme]

Re : Copier uniquement l'année sans soublon

Bonjour Maddad,

Essayer ce code pour remplacer la date par l'année (en valeur):

Sub sansdoublon1()
Dim V(), i
Application.ScreenUpdating = False
Worksheets("Items").Range("A2:A" & Worksheets("Items").Range("A65536").End(xlUp).Row).ClearContents
Worksheets("Evenements de pertes").Activate
Range("A1:A" & Range("H65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
  CopyToRange:=Worksheets("Items").Range("A1"), Unique:=True
Worksheets("Items").Select

V = Range("A2:A" & Range("A65536").End(xlUp).Row).Value
For i = LBound(V) To UBound(V)
  V(i, 1) = Year(V(i, 1))
Next i
Range("A2:A" & Range("A65536").End(xlUp).Row).Value = V
Range("A2:A" & Range("A65536").End(xlUp).Row).NumberFormat = "General"
Application.ScreenUpdating = True
End Sub

Ou ce code pour conserver la date dans son intégralité mais en n'affichant que l'année:

Sub sansdoublon2()
Application.ScreenUpdating = False
Worksheets("Items").Range("A2:A" & Worksheets("Items").Range("A65536").End(xlUp).Row).ClearContents
Worksheets("Evenements de pertes").Activate
Range("A1:A" & Range("H65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
  CopyToRange:=Worksheets("Items").Range("A1"), Unique:=True
Worksheets("Items").Select
Range("A2:A" & Range("A65536").End(xlUp).Row).NumberFormat = "yyyy"
Application.ScreenUpdating = True
End Sub

 

[R@chid]

Re : Copier uniquement l'année sans soublon

Bonjour @ tous,
Salut mapomme,
une variante par formule matricielle, en A2,

=SI(LIGNES($2:2)<=NB(1/FREQUENCE(EQUIV(ANNEE(Date_de_l_article);ANNEE(Date_de_l_article);0);LIGNE(INDIRECT("1:"&LIGNES(Date_de_l_article)))));MIN(SI(NB.SI(A$1:A1;ANNEE(Date_de_l_article))=0;ANNEE(Date_de_l_article)));"")

@ valider par Ctrl+Maj+Entree
@ tirer vers le bas
Mettre les cellules en format Standard
Amicalement

 

[Maddad]

Re : Copier uniquement l'année sans soublon

Merci à vous deux,

Le code VBA fonctionne bien, mais je voudrais éliminer les doublons "années"

 

[R@chid]

Re : Copier uniquement l'année sans Doublons

Bonjour @ tous,
Si j'ai bien compris la formule aussi fonctionne bien
Amicalement

 

[mapomme]

Re : Copier uniquement l'année sans soublon

(Re)Bonjour Maddad, R@chid,

Je n'ai conservé que l'option" valeur".

Testez (excel 2010):

Sub sansdoublon1()
Dim V(), i
Application.ScreenUpdating = False
Worksheets("Items").Range("A2:A" & Worksheets("Items").Range("A65536").End(xlUp).Row).ClearContents
Worksheets("Evenements de pertes").Activate
Range("A1:A" & Range("H65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
  CopyToRange:=Worksheets("Items").Range("A1"), Unique:=True
Worksheets("Items").Select

V = Range("A2:A" & Range("A65536").End(xlUp).Row).Value
For i = LBound(V) To UBound(V)
  V(i, 1) = Year(V(i, 1))
Next i
Range("A2:A" & Range("A65536").End(xlUp).Row).Value = V
Range("A2:A" & Range("A65536").End(xlUp).Row).NumberFormat = "General"
Range("A1:A" & Range("A65536").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
Range("A1:A" & Range("A65536").End(xlUp).Row).Sort key1:=Range("A1"), Header:=xlYes
Application.ScreenUpdating = True
End Sub

Edit: ajouté le tri

Edit: @ R@chid => bien sûr que ta fonction fonctionne !

 

[Maddad]

Re : Copier uniquement l'année sans Doublons

Salut Rachid,

J'ai copié ta formule dans la cellule A2 de la feuille "Items", validation matricielle + tirer vers le bas, mais rien ne s'est passé

 

[Maddad]

Re : Copier uniquement l'année sans soublon

Super mapomme,

Ça fonctionne extra

Merci

 

[R@chid]

Re : Copier uniquement l'année sans soublon

Bonsoir Maddad,
Bonsoir mapomme 😱,

J'ai copié ta formule dans la cellule A2 de la feuille "Items", validation matricielle + tirer vers le bas, mais rien ne s'est passé

As-tu ouvert le fichier en post #5???
Amicalement

 

[Maddad]

Re : Copier uniquement l'année sans soublon

Salut Rachid,

Je suis assez novice, je ne comprends pas le terme "post #5"

 

[R@chid]

Re : Copier uniquement l'année sans soublon

Bonsoir @ tous,
Voir l'image

 

[Maddad]

Re : Copier uniquement l'année sans soublon

J'ai ouvert le fichier joint en post 5, mais la colonne A:A, dans la feuille Item , est de fond jaune mais aucune date n'y apparait, bien que la formule y est?

 

[R@chid]

Re : Copier uniquement l'année sans soublon

Bonjour,
je ne sais pas quoi dire?? puisque tout fonctionne bien chez moi...