événement tri automatique lors d'une nouvelle entrée

[abouttheweather]

Bonjour,

J'ai un petit besoin de macro à la racine de la feuille jointe.

Je compte remplir la plage B2:B20 de haut en bas et que la liste B2:B20 se trie automatiquement alphabétiquement en incluant la nouvelle entrée texte

J'ai indiqué le résultat souhaité en E2:E20 mais en fait je souhaite qu'il s'opère réellement en B2:B20

Merci de votre aide

 

[Hervé]

salut

tu peux essayer ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("b2:b20")) Is Nothing Then
Range("b2:b20").Sort Key1:=Range("b2"), Order1:=xlAscending
End If
End Sub

a plus

 

[JCGL]

Bonjour à tous,
Salut Hervé,

About... : Heureusement qu'Hervé connait son alphabet parce que ton ordre alphabétique n'est pas vraiment respecté.

A+ à tous