A voir également:
- VBA - ecel tri et delete
- Hiberfil.sys delete - Guide
- Juste delete me - Guide
- Comment faire un tri personnalisé sur excel - Guide
- Logiciel tri photo - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour stephane,
1)
Cette macro trie la plage de cellules A14:G54 par ordre ascendant et dans l'ordre des colonnes B et D. Tu peux bien sûr modifier la plage de cellules et les colonnes.
PS : tu peux obtenir cette macro en lançant l'enregistreur de macros et en effectuant ton tri (c'est d'ailleurs ce que j'ai fait dans ce cas particulier !)
2)
Code à entrer dans un macro ou une procédure événementielle. N'oublies pas de te positionner sur la ligne à supprimer avant l'éxécution de la macro.
Espérant avoir pu t'aider.
Cordialement.
1)
Sub Macro1()
Range("A14:G54").Select
Selection.Sort Key1:=Range("B14"), Order1:=xlAscending, Key2:=Range("D14" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End Sub
Cette macro trie la plage de cellules A14:G54 par ordre ascendant et dans l'ordre des colonnes B et D. Tu peux bien sûr modifier la plage de cellules et les colonnes.
PS : tu peux obtenir cette macro en lançant l'enregistreur de macros et en effectuant ton tri (c'est d'ailleurs ce que j'ai fait dans ce cas particulier !)
2)
Dim Lg As Long
Lg = ActiveCell.Row
If Cells(Lg, 2) = Cells(Lg - 1, 2) And Cells(Lg, 4) = Cells(Lg - 1, 4) Then
Rows(Lg).Delete
End If
Code à entrer dans un macro ou une procédure événementielle. N'oublies pas de te positionner sur la ligne à supprimer avant l'éxécution de la macro.
Espérant avoir pu t'aider.
Cordialement.