Tri auto sur une colonne

Bonsoir,

Tri dynamique

http://cjoint.com/?juvm4vJhFs

Le tri est effectué à chaque saisie d'un nom

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
[A2:C1000].Sort key1:=[A2]
End If
End Sub

Cordialement JB

Bonsoir,

Comment réaliser un tri automatique par un champ donné après chaque
saisie dans une colonne ?

Merci.

Bonsoir,

Tri dynamique

http://cjoint.com/?juvm4vJhFs

Le tri est effectué à chaque saisie d'un nom

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
[A2:C1000].Sort key1:=[A2]
End If
End Sub

Cordialement JB

Merci Grang JB;

mais comment rendre active la ligne de notre saise apres le tri ?

Merci.

bonjour Apitos,

Application.GoTo Reference:=[Target], Scroll:=True

isabelle

Bonsoir,

Tri dynamique

http://cjoint.com/?juvm4vJhFs

Le tri est effectué à chaque saisie d'un nom

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
[A2:C1000].Sort key1:=[A2]
End If
End Sub

Cordialement JB

Merci Grang JB;

mais comment rendre active la ligne de notre saise apres le tri ?

Merci.

bonjour Apitos,

Application.GoTo Reference:=[Target], Scroll:=True

isabelle

J'ai fait ce test :

j'ai entré 0, puis 2, puis 1

mais la cellule active n'etait pas le 1 mais bien le 2 !

pourquoi ?

essaie plutot comme ça,

Private Sub Worksheet_Change(ByVal Target As Range)
tv = Target.Value
If Target.Column = 1 Then
[A2:C1000].Sort key1:=[A2]
End If
lgn = Application.Match(tv, [A1:A1000], 0)
Application.GoTo Reference:=Range("A" & lgn), Scroll:=True
End Sub

isabelle

bonjour Apitos,

Application.GoTo Reference:=[Target], Scroll:=True

isabelle

J'ai fait ce test :

j'ai entré 0, puis 2, puis 1

mais la cellule active n'etait pas le 1 mais bien le 2 !

pourquoi ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Target
[A2:C1000].Sort Key1:=[A2]
[A:A].Find(What:=m, LookIn:=xlValues).Select
End If
End Sub

JB

Bonsoir,

Tri dynamique

http://cjoint.com/?juvm4vJhFs

Le tri est effectué à chaque saisie d'un nom

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
[A2:C1000].Sort key1:=[A2]
End If
End Sub

Cordialement JB

Merci Grang JB;

mais comment rendre active la ligne de notre saise apres le tri ?

Merci.

tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait
isabelle que tu ne lui dis ni bonjour, ni merci?
ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien
jps

"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1158850370.541005.255220@h48g2000cwc.googlegroups.com...

bonjour Apitos,

Application.GoTo Reference:=[Target], Scroll:=True

isabelle

J'ai fait ce test :

j'ai entré 0, puis 2, puis 1

mais la cellule active n'etait pas le 1 mais bien le 2 !

pourquoi ?

Merci pour vous deux Isabelle et JB

J'ai utilisé l'exemple de JB :

Le tri par nom est effectué à chaque saisie d'une ligne :

Dim ligne, témoin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Th en
If témoin Then
If Target.Row <> ligne And Cells(ligne, 1) <> "" Then
[A2:F1000].Sort key1:=[A2]
End If
End If
ligne = Target.Row
témoin = True
End If
End Sub

Ca me convient.

ah! j'aime mieux ça, apitos
jps

"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1158858049.412854.7610@d34g2000cwd.googlegroups.com...
Merci pour vous deux Isabelle et JB

J'ai utilisé l'exemple de JB :

Le tri par nom est effectué à chaque saisie d'une ligne :

Dim ligne, témoin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
If témoin Then
If Target.Row <> ligne And Cells(ligne, 1) <> "" Then
[A2:F1000].Sort key1:=[A2]
End If
End If
ligne = Target.Row
témoin = True
End If
End Sub

Ca me convient.

tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait
isabelle que tu ne lui dis ni bonjour, ni merci?
ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien
jps

Nous avons postés nos réponses en même temps. c'est pour ça que tu

"Merci pour vous deux Isabelle et JB"

et puis j'ai rien contre notre Isabelle, au contraire je l'admire,
parce qu'elle prends toujours soucis de répondre à nos questions

et je lui dis : Mille merci Isabelle.

au fait isabelle, pour ton code j'ai l'erreur suivante :

Erreur d'exécution '13':
Incompatibilité de type

--> Application.GoTo Reference:=Range("A" & lgn), Scroll:=True

l'exemple de notre professeur JB, quant à lui il marche tres bien.

encore merci a tou vous deux de bien repondre à nous questions.