Ajout, trie ordre alpha

[nicolas65400]

bonjour
je cherche à créer une macro qui dès que j'ajoute une valeur (validation par entrée) dans une cellule me triereai la colonne par odre alphabétique à partir de la ligne2 (ligne1= titre)
Merci

 

[Caillou]

Re : Ajout, trie ordre alpha

Bonjour,

Sur le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Target.CurrentRegion.Offset(1, 0).Sort Range("A2")
  End If
End Sub

Mais je trouve ca "limite dangereux"
Caillou

 

[nicolas65400]

Re : Ajout, trie ordre alpha

bonjour,
pourquoi est ce dangereux?

n'y a t-il pas la possibilite de ne trier que la colonne?

merci

 

[Caillou]

Re : Ajout, trie ordre alpha

ben c'est dangereux (pour moi) par que le tri se déclenche automatiquement !

Pour ne trier que la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Range(Cells(2, 1), Cells(Target.Row, 1)).Sort Range("A2")
  End If
End Sub

Caillou

 

[nicolas65400]

Re : Ajout, trie ordre alpha

merci pour la réponse