Combiner 2 macros (pour exécution automatique)

[libellule85]

Bonjour le forum,
Voila actuellement j'ai une macro qui tri automatiquement quand j'entre un nom, et je voudrais ajouter à ce tri (mais je ne sais pas comment faire) la macro éliminer doublons dont vous trouverez ci-dessous les deux codes :

Code pour le tri :

Sub tri()
    Range("A3:L100").Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range( _
        "B3"), Order2:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    End Sub

Code pour Eliminer les doublons :

Sub EliminerDoublons()
Dim i As Integer
Dim dlg As Long
dlg = Range("A" & Rows.Count).End(xlUp).Row
With ActiveSheet
    .Range("A3:A" & dlg).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess 'trie la plage
        For i = dlg + 1 To 2 Step -1
        If .Range("a" & i) = Range("A" & i + 1) Then
        .Range("A" & i).EntireRow.Delete
        End If
        Next
End With
End Sub

Ci joint un fichier

D'avance merci pour votre aide

 

[libellule85]

Re : Combiner 2 macros (pour exécution automatique)

Oops j'ai oublié le fichier.
Le voici

 

[Gorfael]

Re : Combiner 2 macros (pour exécution automatique)

Salut libellule85 et le forum
Pas la peine de mettre activesheet en préfixe, il l'est par défaut.

Private Sub CommandButton1_Click()
Dim X As Long, Dlg As Long

Dlg = Range("A" & Rows.Count).End(xlUp).Row
Range("A3:L" & Dlg).Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3"), _
      Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
      xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

For X = Dlg To 3 Step -1
    If Range("A" & X) = Range("A" & X - 1) Then Rows(X).Delete
Next
End Sub

J'ai la flemme de tester.
A+

 

[libellule85]

Re : Combiner 2 macros (pour exécution automatique)

Bonjour Gorfael,
Je te remercie beaucoup pour ta réponse, je viens d'essayer et celà marche impeccable...
Encore merci
@+

 

[néné06]

Re : Combiner 2 macros (pour exécution automatique)

Bonjour libellule85, Salut Gorfael


Une autre solution automatique sans CommandButton


@+

 

[libellule85]

Re : Combiner 2 macros (pour exécution automatique)

Bonjour néné06,
Merci pour ta réponse c'est vraiment sympa
@+