Trie automatique

[maval]

Bonjour

J'ai sur une feuille un liste de films avec ces données.
J'aimerai que lorsque je rempli ma feuille la ligne active se range dans l'ordre de A à Z ves le ba

Je vous remercie de votre aide

 

[Iznogood1]

Re : Trie automatique

Bonjour,

un exemple joint : si tu ajoutes, supprimes ou modifies un titre en colonne B, il se classe dans l'ordre de cette colonne.

 

[DoubleZero]

Re : Trie automatique

Bonjour à toutes et à tous,

Une autre possibilité avec le présent code permettant de trier dès lors que la colonne m est renseignée.

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, [m:m]) Is Nothing Then Range("a1").CurrentRegion.Sort Range("b1"), xlAscending, Header:=xlYes
End Sub

A bientôt 🙂

 

[job75]

Re : Trie automatique

Bonjour maval, Iznogood1,

Cette macro fait le tri et maintient la sélection sur la cellule modifiée :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v$
v = Cells(Target.Row, 2)
[A1].CurrentRegion.Sort [B1], xlAscending, Header:=xlYes 'tri
Cells([B:B].Find(v, , xlValues, xlWhole).Row, Target.Column).Select
End Sub

Modifiez ou effacez une cellule quelconque.

A+

 

[DoubleZero]

Re : Trie automatique

Re-bonjour, bonjour, job75 😀,

Bonjour maval, Iznogood1...

Moi avoir gr🙁s chagrin !

A bientôt 😀😀

 

[job75]

Re : Trie automatique

Re,

Oh là chère ânesse ma vue baisse, mille excuses et tous mes hommages.

A+

 

[job75]

Re : Trie automatique

Bonjour maval, Iznogood1, DoubleZero,

Ceci est mieux : si elle existe, la 1ère cellule vide de la ligne est sélectionnée :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v$, i&, j%
v = Cells(Target.Row, 2)
With [A1].CurrentRegion
  .Sort [B1], xlAscending, Header:=xlYes 'tri
  i = [B:B].Find(v, , xlValues, xlWhole).Row
  j = Rows(i).Find("").Column 'colonne de la 1ère cellule vide de la ligne
  Cells(i, IIf(j > .Columns.Count, Target.Column, j)).Select
End With
End Sub

Bonne journée.

 

[maval]

Re : Trie automatique

Bonjour a tous Iznogood, doublezero, Job

Job Pourriez-vous adapter un code que la ligne ce trie dès lors que la colonne "M" est renseignée SVP

Beaucoup plus simple pour moi

Et veuillez m'excuser de ne pas avoir répondu avant et Merci beaucoup

 

[job75]

Re : Trie automatique

Re,

Job Pourriez-vous adapter un code que la ligne ce trie dès lors que la colonne "M" est renseignée SVP

Beaucoup plus simple pour moi

Ce n'est pas plus simple, c'est une autre solution qui vaut ce qu'elle vaut :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Then Exit Sub
Dim v$
v = Cells(Target.Row, 2)
[A1].CurrentRegion.Sort [B1], xlAscending, Header:=xlYes 'tri
Cells([B:B].Find(v, , xlValues, xlWhole).Row, 13).Select
End Sub

A+