OVH Cloud OVH Cloud

tri dynamique sur excel

4 réponses
Avatar
zimou_2005
bonjour,
je demande l'aide du groupe pour le probleme suivant.
je veux trier en temps r=E9el le contenu d'une colonne que j'alimente au
fur et =E0 mesure, comment le faire ?
merci

4 réponses

Avatar
JB
Bonjour,

http://cjoint.com/?hqpVcSFlXK

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

JB





bonjour,
je demande l'aide du groupe pour le probleme suivant.
je veux trier en temps réel le contenu d'une colonne que j'alimente au
fur et à mesure, comment le faire ?
merci


Avatar
J
Bonjour à tous

JB,ta macro est super pour une saisie sur une seule colonne, mais
comment faire pour que ce tri automatique ne se fasse que quand on a
fini la saisie de la ligne, quand il y a plusieurs colonnes à renseigner?

Merci
@+
J@@

Bonjour,

http://cjoint.com/?hqpVcSFlXK

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

JB

je veux trier en temps réel le contenu d'une colonne que j'alimente au
fur et à mesure, comment le faire ?




Avatar
JB
On suppose qu'il y a 3 colonnes et la colonne 3 est saisie en dernier:

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

JB



Bonjour à tous

JB,ta macro est super pour une saisie sur une seule colonne, mais
comment faire pour que ce tri automatique ne se fasse que quand on a
fini la saisie de la ligne, quand il y a plusieurs colonnes à renseigne r?

Merci
@+
J@@

Bonjour,

http://cjoint.com/?hqpVcSFlXK

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

JB

je veux trier en temps réel le contenu d'une colonne que j'alimente au
fur et à mesure, comment le faire ?






Avatar
JB
http://cjoint.com/?hriegLHCMY

Tri dynamique

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 3 And Target.Count = 1 Th en
If Application.CountA(Target.Offset(0, -Target.Column + 1).Resize(,
3)) = 3 Then
[A2:C1000].Sort key1:=[A2]
End If
End If
End Sub


JB


Bonjour à tous

JB,ta macro est super pour une saisie sur une seule colonne, mais
comment faire pour que ce tri automatique ne se fasse que quand on a
fini la saisie de la ligne, quand il y a plusieurs colonnes à renseigne r?

Merci
@+
J@@

Bonjour,

http://cjoint.com/?hqpVcSFlXK

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

JB

je veux trier en temps réel le contenu d'une colonne que j'alimente au
fur et à mesure, comment le faire ?