Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Tri dynamique

Tri dynamique

2 réponses
Avatar
Jean Berti
Bonsoir à tous

Sur le site de JB , j'ai télécharger Tri Dynamique.
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

Cela marche nikel comme d'hab.
J'ai voulu rajouter la colonne B
If Target.Column = 2 And Target.Count = 1 Then
m = Target
[B2:C1000].Sort Key1:=[B2]
[B:B].Find(What:=m, LookIn:=xlValues).Select

End If
Cela tri la colonne evidemment, mais comment faire donc en VBA correspondre
la colonne A et B
A1 = Nom
B1 = Prénom
Merci d'avance

Jean Berti
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Je ne suis pas sûr d'avoir compris la question:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Target: n = Target.Offset(0, 1)
[A2:D1000].Sort Key1:=[a2], Key2:=[b2]
[A1].Offset(Evaluate("Match(""" & m & n & """, A2:A1000 &
B2:B1000, 0)")).Select
End If

If Target.Column = 2 And Target.Count = 1 Then
n = Target: m = Target.Offset(0, -1)
[A2:D1000].Sort Key1:=[a2], Key2:=[b2]
[A1].Offset(Evaluate("Match(""" & m & n & """, A2:A1000 &
B2:B1000, 0)"), 1).Select
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Tri/TriDynamique.xls
(onglet TriNomPrénom)

JB

On 28 mai, 00:14, "Jean Berti" wrote:
Bonsoir à tous

Sur le site de JB , j'ai télécharger Tri Dynamique.
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

Cela marche nikel comme d'hab.
J'ai voulu rajouter la colonne B
If Target.Column = 2 And Target.Count = 1 Then
m = Target
[B2:C1000].Sort Key1:=[B2]
[B:B].Find(What:=m, LookIn:=xlValues).Select

End If
Cela tri la colonne evidemment, mais comment faire donc en VBA correspond re
la colonne A et B
A1 = Nom
B1 = Prénom
Merci d'avance

Jean Berti


Avatar
Jean Berti
Bonjour JB

OK merci, c'est ce que je cherchais.
Jean Berti
"JB" a écrit dans le message de news:

Bonjour,

Je ne suis pas sûr d'avoir compris la question:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Target: n = Target.Offset(0, 1)
[A2:D1000].Sort Key1:=[a2], Key2:=[b2]
[A1].Offset(Evaluate("Match(""" & m & n & """, A2:A1000 &
B2:B1000, 0)")).Select
End If

If Target.Column = 2 And Target.Count = 1 Then
n = Target: m = Target.Offset(0, -1)
[A2:D1000].Sort Key1:=[a2], Key2:=[b2]
[A1].Offset(Evaluate("Match(""" & m & n & """, A2:A1000 &
B2:B1000, 0)"), 1).Select
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Tri/TriDynamique.xls
(onglet TriNomPrénom)

JB

On 28 mai, 00:14, "Jean Berti" wrote:
Bonsoir à tous

Sur le site de JB , j'ai télécharger Tri Dynamique.
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

Cela marche nikel comme d'hab.
J'ai voulu rajouter la colonne B
If Target.Column = 2 And Target.Count = 1 Then
m = Target
[B2:C1000].Sort Key1:=[B2]
[B:B].Find(What:=m, LookIn:=xlValues).Select

End If
Cela tri la colonne evidemment, mais comment faire donc en VBA
correspondre
la colonne A et B
A1 = Nom
B1 = Prénom
Merci d'avance

Jean Berti