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

Supprimer ligne en fonction d'une date et d'une référence

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ptikaribou
  • 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
P

ptikaribou

Guest
Bonjour à toute la communauté,

Tout d'abord, merci beaucoup de prendre le temps de me lire.
Je bloque vraiment sur ce problème et j'espère que l'un d'entre-vous aura une solution!!

En fait, je souhaite à partir de la pièce-jointe supprimer les lignes où j'ai plusieurs dates pour la même référence et ne garder que la plus récente tout en affichant le nom du dernier client!

Merci à vous!!!
Hugues
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : HELP!! Je n'y arrive pas!

Bonjour,
Une solution :
Code: 
Sub test()
Dim i%, k%
i = Cells(65535, 1).End(xlUp).Row
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B2:B" & i) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C2:C" & i) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:C" & i)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
For k = i To 2 Step -1
If Cells(k, 2) = Cells(k - 1, 2) Then Rows(k).Delete
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Re : HELP!! Je n'y arrive pas!

Bonsoir ptikaribou et bienvenue sur XLD 🙂

Un essai dans le fichier joint. Les formules sont dans les cellules E2 à G2. Elles sont toutes matricielles et à recopier vers le bas jusqu'à obtenir des cellules vides. Trois noms dynamiques ont été créés.

Les trois noms dynamiques:
[table="width: 500, class: grid"]
[tr]
[td]Clients[/td]
[td]=DECALER(Feuil1!$A$1;1;0;NBVAL(Feuil1!$A:$A)-1;1)[/td]
[/tr]
[tr]
[td]DateVente[/td]
[td]=DECALER(Clients;0;2)[/td]
[/tr]
[tr]
[td]RefProd[/td]
[td]=DECALER(Clients;0;1)[/td]
[/tr]
[/table]

Les trois formules matricielles:[table="width: 650, class: grid"]
[tr]
[td]E2[/td]
[td]=SIERREUR(INDEX(Clients;PETITE.VALEUR(SI(ESTNUM(1/FREQUENCE(EQUIV(Clients;Clients;0);EQUIV(Clients;Clients;0))*(LIGNE(Clients)-1));LIGNE(Clients);""); LIGNE(Clients)-1)-1);"")[/td]
[/tr]
[tr]
[td]F2[/td]
[td]=SI(E2="";"";INDEX(RefProd;MAX(SI((Clients=E2)*(DateVente=MAX(SI(Clients=E2;DateVente;"")))>0;LIGNE(Clients);""))-1))[/td]
[/tr]
[tr]
[td]G2[/td]
[td]=SI(E2="";"";MAX(SI((Clients=E2)*(DateVente=MAX(SI(Clients=E2;DateVente;"")))>0;DateVente;"")))[/td]
[/tr]
[/table]

 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : HELP!! Je n'y arrive pas!

Bonsoir à tous

Tout d'abord, merci beaucoup de prendre le temps de me lire.
Cliquez pour agrandir...
Voilà c'est fait 😉

maintenant à toi de prendre le temps d'éditer le titre de ta discussion et de la changer pour un titre plus explicite que
[h=2]HELP!! Je n'y arrive pas![/h]
Ceci pour le moteur de recherche interne du forum retrouve ses petits 😉
 
Vote positif 0 Vote négatif
Re : HELP!! Je n'y arrive pas!

VOUS ETES GENIAUX!!! J'ai enfin réussi !! Merci à "bof", "mapomme" et "JCGL" pour leurs réponses!
C'est vraiment excellent d'avoir des gens passionnés prêts à répondre à tout moment.

Merci beaucoup!!!
 
Vote positif 0 Vote négatif
Re : Supprimer ligne en fonction d'une date et d'une référence

Re


Merci d'avoir pris le temps de changer ton titre 😉 (et tant pis si tu ne m'as pas salué 😉 )
(voir mon précédent message)
 
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

O
  • Question Question
XL 2019 Mise a jour prix en fonction de la date
Réponses
8
Affichages
511
Ocbpatate
O
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
S
  • Question Question
Autres Recette de pâtisserie
Réponses
4
Affichages
680
Slavko.R
S
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
789
Dubuyz1
D
G
  • Question Question
XL 2016 Répartition mensuelle de la charge par équipe en fonction d'une date de début et d'une date de fin
Réponses
4
Affichages
953
Lolote83
L
L
  • Question Question
Microsoft 365 incrémentation en fonction d'une date
Réponses
3
Affichages
606
LeLudo
L
N
  • Question Question
Microsoft 365 Fonction si avec une valeur différente de 1
Réponses
3
Affichages
546
NILS19
N
C
  • Question Question
XL 2016 Inscrire ce que contient une cellule en fonction d'une date rentrée... Macro ?
Réponses
1
Affichages
570
AC045364
A
M
  • Question Question
XL 2021 Correction de test psychométrique automatisée
Réponses
4
Affichages
755
TooFatBoy
I
  • Résolu(e)
Microsoft 365 Suppression ligne en fonction de la date
Réponses
2
Affichages
511
ivan27
I
N
  • Question Question
Microsoft 365 Liste déroulante (combobox) en fonction d'une séquence de valeurs
Réponses
13
Affichages
867
Neofalken
N
C
  • Question Question
Autres Apprentissage d'une langue : adapter la couleur des cellules en fonction du pourcentage d'évaluation
Réponses
2
Affichages
629
crocrocro
C
A
  • Résolu(e)
Microsoft 365 Trouver un critère en fonction d'une somme donnée
Réponses
5
Affichages
724
al.db
A
S
  • Question Question
XL 2016 fichier Excel pour faire une liste de course en fonction des recettes sélectionnées
Réponses
2
Affichages
820
salih56
S
C
  • Question Question
XL 2013 [VBA]Créer un nombre de ligne en fonction d'un certain nombre de colonne et remplir ces lignes avec certaines valeurs
Réponses
6
Affichages
1 K
CaptainSalt31
C
L
  • Question Question
Microsoft 365 Report de valeur d'une cellule dans une autre cellule en fonction de la dernière cellule non vide d'une ligne
Réponses
1
Affichages
1 K
sylvanu
L
  • Résolu(e)
XL 2016 Focus sur contrôle hors Frame dans UserForm
2
Réponses
22
Affichages
2 K
Lorenzini
L
C
  • Résolu(e)
XL 2010 supprimer une ligne sur d'autre feuilles en prenant référence sur une feuille journal
Réponses
3
Affichages
699
ccia
C
F
  • Résolu(e)
Microsoft 365 Cumul de données en fonction dates et matricules
Réponses
8
Affichages
832
FCMLE44
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…