Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier uniquement l'année sans soublon

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Maddad
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Maddad

Guest
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
 

Pièces jointes

Trier par date Trier par votes
Re : Copier uniquement l'année sans soublon

Bonjour Maddad,

Essayer ce code pour remplacer la date par l'année (en valeur):
VB: 
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:
VB: 
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
 
Vote positif 0 Vote négatif
Re : Copier uniquement l'année sans soublon

Bonjour @ tous,
Salut mapomme,
une variante par formule matricielle, en A2,
Code: 
=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
 
Vote positif 0 Vote négatif
Re : Copier uniquement l'année sans soublon

(Re)Bonjour Maddad, R@chid,

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

Testez (excel 2010):

VB: 
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 !
 
Dernière édition:
Vote positif 0 Vote négatif
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é
 
Vote positif 0 Vote négatif
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?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Problème format date
Réponses
7
Affichages
256
dd_76
D
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
767
youguybass
Y
B
  • Résolu(e)
Microsoft 365 Calcule durée moyenne : Formule et TCD
Réponses
6
Affichages
308
BSF
B
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
393
job75
C
  • Résolu(e)
XL 2021 Partager mes efforts...
2
Réponses
23
Affichages
705
Constantin
C
B
  • Question Question
XL 2016 Macro "Double-clic + Entrée"
2
Réponses
16
Affichages
388
job75
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
408
ChTi160
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
360
job75
T
  • Question Question
XL 2021 programmation calendrier
Réponses
14
Affichages
766
Taratessy
T
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
426
GALOUGALOU
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
194
sylvanu
U
  • Résolu(e)
Autres Comment modifier les macros pour qu’elles arrivent à faire ce que je veux
Réponses
6
Affichages
275
un internaute
U
D
  • Question Question
Microsoft 365 TCD et onglets spécifiques selon les filtres à définir
Réponses
2
Affichages
181
Daniel200666
D
A
  • Résolu(e)
Microsoft 365 Fusion de 2 tables
Réponses
6
Affichages
329
Amilo
A
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
388
mapomme
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
369
olivier Clech
O
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
934
Dranreb
C
  • Résolu(e)
Power Query Ajout colonne cumulé Power Quey
Réponses
2
Affichages
205
chermiti
C
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
421
mamarus1
M
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
655
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…