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
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
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
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
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
On 28 mai, 00:14, "Jean Berti" <jean.be...@free.fr> 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
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
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
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
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
Bonjour JB
OK merci, c'est ce que je cherchais.
Jean Berti
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1180331720.389167.313250@p47g2000hsd.googlegroups.com...
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
On 28 mai, 00:14, "Jean Berti" <jean.be...@free.fr> 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
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
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