Trie par ordre Alpha

Bonjour,

J'ai se code pour copier les cellules dans la colonne "J" et "K" qui marche très bien, j'aimerais si possible qui se copie par ordre alpha. et sansdoublon

Private Sub Worksheet_Change(ByVal target As Range)
    If target.Column = 3 And target.Row > 2 Then 'désignation change
        If isNewDesignation(target.Value) Then
            With Range("J2").End(xlDown).Offset(1)
                .Value = target.Value
                .Offset(0, 1).FormulaLocal = "=SOMMEPROD(($C$3:$C$236=""" & target.Value & """)*($D$3:$D$236))"
            End With
        End If
    End If
End Sub

Private Function isNewDesignation(target As String) As Boolean

    isNewDesignation = True
    Dim li As Long
    For li = 3 To Range("J2").End(xlDown).Row
        If Cells(li, 10).Value = target Then
            isNewDesignation = False
            Exit For
        End If
    Next li
End Function

Un grand merci d'avance

Cordialement

Max

Salut,

D'après moi il suffit de trier - puisqu'il ne peut pas y avoir de doublon, selon ce que j'ai compris de ton code - les colonnes J et K en fin de macro Private Sub Worksheet_Change(ByVal target As Range).

Tes colonnes J et K ont-elles des en-têtes ?

A te relire.

Bonjour Yvouille

Voici une copie

@+

Max

Salut Max,

En ouvrant ton fichier j'ai remarqué que je le connaissais déjà ; j'avais effectivement travaillé sur ta première demande, mais Nad avait été plus rapide

En essayant d'utiliser le code de Nad afin de te présenter une solution de tri, je m'empêtre un peu.

Je te propose alors une solution avec mon code et en plus le tri.

Si cette solution ne te convient pas, je te propose de clôturer ce fil et de retourner sur celui avec Nad afin de lui demander de t'aider encore pour le tri.

A te relire.

Re,

Je te remercie beaucoup nickel ton code exactement ma recherche.

Je te souhaite une bonne soirée

Max