tri automatique d'une sélection

[bpol]

Bonjour,
Je voudrais améliorer l’automatisme de mon fichier

Voici une macro qui en autre copie une cellule ds une autre feuille et que je voudrais la modifiée pour qu’elle trie automatiquement en ordre croissant une sélection

Quelle est la syntaxe qui permet de trier automatiquement une sélection de cellule ?

On Error Resume Next

Sheets("encodage").Select

With Sheets([A3].Value)
If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub
Ligne = .[A65536].End(xlUp).Row + 1

For k = 1 To 32
.Cells(Ligne, k) = Range("B" & k + 4)
Next k
End With
With Sheets("BD")
Ligne = .Range("P65536").End(xlUp).Row + 1
If IsError(Application.Match([B7], .Columns(16), 0)) Then
.Cells(Ligne, 16).Value = Range("B7").Value
‘and
Range("P3😛100") .select
trier la sélection
End If
End With
Sheets("encodage").Select
Range("B6:B9,B12:B36").ClearContents
'and
Range("B5") = Range("B5") + 1
'and
Range("B6").Select

Merci

Bpol

 

[JCGL]

Re : tri automatique d'une sélection

Bonjour à tous,

Peux-tu essayer avec :

Range("P3:P100").Sort Key1:=Range("P3"), Order1:=xlAscending, Header:=xlGuess

A+ à tous

 

[bpol]

Re : tri automatique d'une sélection

Merci JCGL
après une recherche pour l'incorporer
cela fonctionne

bon WE

Bpol