Bonjour,
j'ai cette macro qui fonctionne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =3D 9 And Target.Count =3D 1 Then
m =3D Target
[A2:Q1000].Sort Key1:=3D[H2], Key2:=3D[C2], Key3:=3D[D2]
[I:I].Find(What:=3Dm, LookIn:=3DxlValues).Select
End If
End Sub
par contre d=E8s que je rajoute un crit=E8re en respectant pourtant le
format , Key4:=3D[G2] =E7a bug !!!!
je comprends pas, merci de votre aide
MarcT
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
michdenis
Lors d'un trie, excel ne permet pas d'utiliser plus de 3 critères lorsque tu le fais directement dans la feuille de calcul... c'est le même principe qui s'applique en VBA.
Un coup de 3 + un coup de 1
Le code te sera donné si tu fais les manoeuvres dans la feuille en utilisant l'enregistreur de macro
"Marc T" a écrit dans le message de news:
Bonjour, j'ai cette macro qui fonctionne: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 9 And Target.Count = 1 Then m = Target [A2:Q1000].Sort Key1:=[H2], Key2:=[C2], Key3:=[D2] [I:I].Find(What:=m, LookIn:=xlValues).Select End If End Sub
par contre dès que je rajoute un critère en respectant pourtant le format , Key4:=[G2] ça bug !!!! je comprends pas, merci de votre aide MarcT
Lors d'un trie, excel ne permet pas d'utiliser plus de 3 critères
lorsque tu le fais directement dans la feuille de calcul...
c'est le même principe qui s'applique en VBA.
Un coup de 3 + un coup de 1
Le code te sera donné si tu fais les manoeuvres dans la feuille
en utilisant l'enregistreur de macro
"Marc T" <m.terrasson@gmail.com> a écrit dans le message de news:
c1e5f78e-f21a-405f-bb97-1b5fdc7190e8@s50g2000hsb.googlegroups.com...
Bonjour,
j'ai cette macro qui fonctionne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Count = 1 Then
m = Target
[A2:Q1000].Sort Key1:=[H2], Key2:=[C2], Key3:=[D2]
[I:I].Find(What:=m, LookIn:=xlValues).Select
End If
End Sub
par contre dès que je rajoute un critère en respectant pourtant le
format , Key4:=[G2] ça bug !!!!
je comprends pas, merci de votre aide
MarcT
Lors d'un trie, excel ne permet pas d'utiliser plus de 3 critères lorsque tu le fais directement dans la feuille de calcul... c'est le même principe qui s'applique en VBA.
Un coup de 3 + un coup de 1
Le code te sera donné si tu fais les manoeuvres dans la feuille en utilisant l'enregistreur de macro
"Marc T" a écrit dans le message de news:
Bonjour, j'ai cette macro qui fonctionne: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 9 And Target.Count = 1 Then m = Target [A2:Q1000].Sort Key1:=[H2], Key2:=[C2], Key3:=[D2] [I:I].Find(What:=m, LookIn:=xlValues).Select End If End Sub
par contre dès que je rajoute un critère en respectant pourtant le format , Key4:=[G2] ça bug !!!! je comprends pas, merci de votre aide MarcT
Marc T
On 3 sep, 16:41, "michdenis" wrote:
Lors d'un trie, excel ne permet pas d'utiliser plus de 3 critères lorsque tu le fais directement dans la feuille de calcul... c'est le même principe qui s'applique en VBA.
Un coup de 3 + un coup de 1
Le code te sera donné si tu fais les manoeuvres dans la feuille en utilisant l'enregistreur de macro
"Marc T" a écrit dans le message de news:
Bonjour, j'ai cette macro qui fonctionne: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 9 And Target.Count = 1 Then m = Target [A2:Q1000].Sort Key1:=[H2], Key2:=[C2], Key3:=[D2] [I:I].Find(What:=m, LookIn:=xlValues).Select End If End Sub
par contre dès que je rajoute un critère en respectant pourtant le format , Key4:=[G2] ça bug !!!! je comprends pas, merci de votre aide MarcT
Bonjour, merci de cette réponse qui de plus me permet en plus de devenir autonome ... Amicordialement MarcT
On 3 sep, 16:41, "michdenis" <michde...@hotmail.com> wrote:
Lors d'un trie, excel ne permet pas d'utiliser plus de 3 critères
lorsque tu le fais directement dans la feuille de calcul...
c'est le même principe qui s'applique en VBA.
Un coup de 3 + un coup de 1
Le code te sera donné si tu fais les manoeuvres dans la feuille
en utilisant l'enregistreur de macro
"Marc T" <m.terras...@gmail.com> a écrit dans le message de news:
c1e5f78e-f21a-405f-bb97-1b5fdc719...@s50g2000hsb.googlegroups.com...
Bonjour,
j'ai cette macro qui fonctionne:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Count = 1 Then
m = Target
[A2:Q1000].Sort Key1:=[H2], Key2:=[C2], Key3:=[D2]
[I:I].Find(What:=m, LookIn:=xlValues).Select
End If
End Sub
par contre dès que je rajoute un critère en respectant pourtant le
format , Key4:=[G2] ça bug !!!!
je comprends pas, merci de votre aide
MarcT
Bonjour,
merci de cette réponse qui de plus me permet en plus de devenir
autonome ...
Amicordialement
MarcT
Lors d'un trie, excel ne permet pas d'utiliser plus de 3 critères lorsque tu le fais directement dans la feuille de calcul... c'est le même principe qui s'applique en VBA.
Un coup de 3 + un coup de 1
Le code te sera donné si tu fais les manoeuvres dans la feuille en utilisant l'enregistreur de macro
"Marc T" a écrit dans le message de news:
Bonjour, j'ai cette macro qui fonctionne: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 9 And Target.Count = 1 Then m = Target [A2:Q1000].Sort Key1:=[H2], Key2:=[C2], Key3:=[D2] [I:I].Find(What:=m, LookIn:=xlValues).Select End If End Sub
par contre dès que je rajoute un critère en respectant pourtant le format , Key4:=[G2] ça bug !!!! je comprends pas, merci de votre aide MarcT
Bonjour, merci de cette réponse qui de plus me permet en plus de devenir autonome ... Amicordialement MarcT