suppression de ligne sous condition

[tactic6]

Bonsoir tout le monde
Je cherche à réaliser une macro qui me supprime des lignes devenues inutiles
voir le fichier joint
Pierre et Paul sont 2 intervenants
Ils interviennent l'un après l'autre chez des gens
je souhaiterai alléger mon tableau en ne gardant que la dernière ligne correspondant au client
Mon petit fichier explique beaucoup mieux que moi le résultat à obtenir
Si quelqu'un a un début de solution.......
Merci

 

[Etienne2323]

Re : suppression de ligne sous condition

Salut tactic6,
voici un essai en pièce jointe. Voyez si cela peut vous convenir.

J'ai commenté les codes pour que vous puissiez vous y retrouver.

Bonne continuité,

Étienne

 

[mth]

Re : suppression de ligne sous condition

Bonsoir tactic6

Un petit essai avec ce code:

Sub Macro1()
Application.ScreenUpdating = False [COLOR=darkgreen]'bloque l'affichage écran[/COLOR]
[COLOR=darkgreen]'qui sera remis à la fin[/COLOR]
Dim derlig As Long
Sheets("Feuil2").Columns("A:E").ClearContents [COLOR=darkgreen]'efface le contenu Feuil2[/COLOR]
With Sheets("Feuil1") [COLOR=darkgreen]'Travaille sur l'onglet Feuil1[/COLOR]
    derlig = .Cells(Rows.Count, 1).End(xlUp).Row [COLOR=darkgreen]'calcuile la dernière ligne Feuil2[/COLOR]
    Set Plage = .Range("A1:E" & derlig) [COLOR=darkgreen]'Définit la plage à copier[/COLOR]
    Plage.Copy Sheets("Feuil2").Range("A1") [COLOR=darkgreen]' et la copie Feuil2[/COLOR]
End With
With Sheets("Feuil2") [COLOR=darkgreen]'Travaille sur l'onglet Feuil2[/COLOR]
    .Sort.SortFields.Clear [COLOR=darkgreen]'trie les données par ordre décroissant colonne C[/COLOR]
    .Sort.SortFields.Add Key:=Range("C2:C" & derlig), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
 
        With .Sort
            .SetRange Range("A1:E" & derlig)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With [COLOR=darkgreen]'fin du tri[/COLOR]
 
        .Range("$A$1:$E$" & derlig).RemoveDuplicates Columns:=4, Header:=xlYes 'Elimine les doublons Noms
End With
 
Application.ScreenUpdating = False
End Sub

(testé sous 2007 en PJ)
Vois si cela peut t'aider

Bonne soirée,

mth

Edit: 🙂 Bonsoir Etienne 🙂
Bon ... suis un peu lente ... 🙂
Bonne soirée à toi,
m
euh ... non, plutôt bon après-midi chez toi 🙂
m

 

[Etienne2323]

Re : suppression de ligne sous condition

Bonsoir m, tactic6, le forum,

@ m : Content de voir que nos 2 pistes de solutions vont dans le même sens. Je dois toutefois avouer que la vôtre est beaucoup plus élégante 😉 Fonctionne très bien sur 2003 également.
Au plaisir de vous recroiser dans un autre entrecroisement de décalage horaire 🙂

Bonne fin de soirée,

Étienne

 

[tactic6]

Re : suppression de ligne sous condition

Merci à tous les deux
Le fichier d' Etienne2323 fonctionne je vais juste y ajouter de quoi couper les anciennes saisies pour coller par dessus le résultat

@mth
je n'ai pas réussi à faire fonctionner ta macro je vais voir de plus près car elle a l'air très intéressante et instructive

Un grand merci à tous les deux

 

[tactic6]

Re : suppression de ligne sous condition

Re
Après avoir étudié le code j'ai remarqué que ça écrivait sur la feuille suivante
OUPS
désolé
en tous les cas le résultat est parfaitement parfait