Comparer des fichiers qui ont la même chaîne de caractères
Fermé
rabilik
Messages postés
1
Date d'inscription
lundi 30 octobre 2017
Statut
Membre
Dernière intervention
30 octobre 2017
-
30 oct. 2017 à 09:57
yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 30 oct. 2017 à 20:33
yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 30 oct. 2017 à 20:33
A voir également:
- Comparer des fichiers qui ont la même chaîne de caractères
- Caractères ascii - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Caractères spéciaux symboles clavier - Guide
- Renommer plusieurs fichiers en même temps - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
30 oct. 2017 à 17:37
30 oct. 2017 à 17:37
Bonjour,
Je me suis essayé à l'exercice . Voila un code VBA qui semble fonctionner :
Il suffit de le lancer en étant positionné sur la bonne feuille.
Attention j'ai supposé qu'il y avait une ligne de titre.
C'est bien le fichier le plus ancien que l'on garde sinon il faut changer le sens du test ">" en "<"
A tester
Je me suis essayé à l'exercice . Voila un code VBA qui semble fonctionner :
Sub NET_FICH()
DerLig = Range("A" & Rows.Count).End(xlUp).Row
For Lig = DerLig To 2 Step -1
Lcour = Lig
For LigSuiv = Lig - 1 To 2 Step -1
If Left(Cells(LigSuiv, 1), 5) = Left(Cells(Lcour, 1), 5) Then
If Cells(LigSuiv, 2) > Cells(Lcour, 2) Then
Rows(LigSuiv).Delete Shift:=xlUp
Else
Rows(Lcour).Delete Shift:=xlUp
Lcour = LigSuiv
End If
End If
Next LigSuiv
Next Lig
End Sub
Il suffit de le lancer en étant positionné sur la bonne feuille.
Attention j'ai supposé qu'il y avait une ligne de titre.
C'est bien le fichier le plus ancien que l'on garde sinon il faut changer le sens du test ">" en "<"
A tester
Modifié le 30 oct. 2017 à 20:35