Tri dynamique

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4544351
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"
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


Jean Berti
Le #4544181
Bonjour JB

OK merci, c'est ce que je cherchais.
Jean Berti
"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"
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


Publicité
Poster une réponse
Anonyme