Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas
Merci et bonne journée
Didier
With Sheets("Liste")
.Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("D2").Select
End With
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
Joël GARBE
Bonsoir,
en supprimant le selection qui trîne, cela devrait aller mieux ? Un seule colonne sera triée (B), toutes les autres sont figées !!! .Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Didier" a écrit dans le message de news:
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
Bonsoir,
en supprimant le selection qui trîne, cela devrait aller mieux ?
Un seule colonne sera triée (B), toutes les autres sont figées !!!
.Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Didier" <didi@wanadoo.fr> a écrit dans le message de news:
OV9er4t2EHA.924@TK2MSFTNGP14.phx.gbl...
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas
Merci et bonne journée
Didier
With Sheets("Liste")
.Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("D2").Select
End With
en supprimant le selection qui trîne, cela devrait aller mieux ? Un seule colonne sera triée (B), toutes les autres sont figées !!! .Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Didier" a écrit dans le message de news:
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
Olivier Derrez
Il se trouve que Didier a formulé :
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
L'aide de l'éditeur VBA nous dit :
"Cette méthode trie un rapport de tableau croisé dynamique, une plage ou une région active si la plage spécifiée contient seulement une cellule."
Il apparaît que, visiblement, la feuille dans laquelle tu fais ton tri doit, préalablement, être sélectionnée.
-- Olivier Derrez La vie, c'est comme une boîte de chocolats...
Il se trouve que Didier a formulé :
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas
Merci et bonne journée
Didier
With Sheets("Liste")
.Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("D2").Select
End With
L'aide de l'éditeur VBA nous dit :
"Cette méthode trie un rapport de tableau croisé dynamique, une plage
ou une région active si la plage spécifiée contient seulement une
cellule."
Il apparaît que, visiblement, la feuille dans laquelle tu fais ton tri
doit, préalablement, être sélectionnée.
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
L'aide de l'éditeur VBA nous dit :
"Cette méthode trie un rapport de tableau croisé dynamique, une plage ou une région active si la plage spécifiée contient seulement une cellule."
Il apparaît que, visiblement, la feuille dans laquelle tu fais ton tri doit, préalablement, être sélectionnée.
-- Olivier Derrez La vie, c'est comme une boîte de chocolats...
Didier
Bonsoir Joël et merci de me répondre aussi vite, mais la procédure plante il me dit référence de tri non valide, je vais essayé de comprendre Didier
"Joël GARBE" a écrit dans le message de news: 41b32a56$0$16354$
Bonsoir,
en supprimant le selection qui trîne, cela devrait aller mieux ? Un seule colonne sera triée (B), toutes les autres sont figées !!! .Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Didier" a écrit dans le message de news:
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
Bonsoir Joël et merci de me répondre aussi vite, mais la procédure plante
il me dit référence de tri non valide, je vais essayé de comprendre
Didier
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
41b32a56$0$16354$8fcfb975@news.wanadoo.fr...
Bonsoir,
en supprimant le selection qui trîne, cela devrait aller mieux ?
Un seule colonne sera triée (B), toutes les autres sont figées !!!
.Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Didier" <didi@wanadoo.fr> a écrit dans le message de news:
OV9er4t2EHA.924@TK2MSFTNGP14.phx.gbl...
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas
Merci et bonne journée
Didier
With Sheets("Liste")
.Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("D2").Select
End With
Bonsoir Joël et merci de me répondre aussi vite, mais la procédure plante il me dit référence de tri non valide, je vais essayé de comprendre Didier
"Joël GARBE" a écrit dans le message de news: 41b32a56$0$16354$
Bonsoir,
en supprimant le selection qui trîne, cela devrait aller mieux ? Un seule colonne sera triée (B), toutes les autres sont figées !!! .Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Didier" a écrit dans le message de news:
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
Didier
Bonjour Olivier Effectivement, j'ai utilisé ta proc mais afin que la feuille ne se voit pas j'ai mis en amont "application.screenupdating = false", et en aval "application.screenupdating = true", cela fonctionne impeccablement. Merci et bonne journée Didier
"Olivier Derrez" a écrit dans le message de news:
Il se trouve que Didier a formulé :
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
L'aide de l'éditeur VBA nous dit :
"Cette méthode trie un rapport de tableau croisé dynamique, une plage ou une région active si la plage spécifiée contient seulement une cellule."
Il apparaît que, visiblement, la feuille dans laquelle tu fais ton tri doit, préalablement, être sélectionnée.
-- Olivier Derrez La vie, c'est comme une boîte de chocolats...
Bonjour Olivier
Effectivement, j'ai utilisé ta proc mais afin que la feuille ne se voit pas
j'ai mis en amont "application.screenupdating = false", et en aval
"application.screenupdating = true", cela fonctionne impeccablement.
Merci et bonne journée
Didier
"Olivier Derrez" <oderrez@swing.be> a écrit dans le message de news:
mn.2be97d4cdeec96a5.20554@swing.be...
Il se trouve que Didier a formulé :
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas
Merci et bonne journée
Didier
With Sheets("Liste")
.Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("D2").Select
End With
L'aide de l'éditeur VBA nous dit :
"Cette méthode trie un rapport de tableau croisé dynamique, une plage ou
une région active si la plage spécifiée contient seulement une cellule."
Il apparaît que, visiblement, la feuille dans laquelle tu fais ton tri
doit, préalablement, être sélectionnée.
Bonjour Olivier Effectivement, j'ai utilisé ta proc mais afin que la feuille ne se voit pas j'ai mis en amont "application.screenupdating = false", et en aval "application.screenupdating = true", cela fonctionne impeccablement. Merci et bonne journée Didier
"Olivier Derrez" a écrit dans le message de news:
Il se trouve que Didier a formulé :
Bonjour, désolé, mais j'ai dû mal à voir pourquoi cela ne fonctionne pas Merci et bonne journée Didier
With Sheets("Liste") .Range("B2:B50").Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Range("D2").Select End With
L'aide de l'éditeur VBA nous dit :
"Cette méthode trie un rapport de tableau croisé dynamique, une plage ou une région active si la plage spécifiée contient seulement une cellule."
Il apparaît que, visiblement, la feuille dans laquelle tu fais ton tri doit, préalablement, être sélectionnée.
