Bonjour à tous,
Je tente de faire un tri par une macro et ça ne fonctionne pas.
Voici ma formule : Range("CG12").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Cells(1)).Select
Selection.Sort Key1:=Range("CE12"), Order1:=xlAscending, Key2:=Range( _
"A12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("D11").Select
Quelqu'un peut-il me dire où st mon erreur
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
CB
Voici ma formule : Range("CG12").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Cells(1)).Select Je ne comprends pas ce que tu veux faire ici. Cela va te sélectionner de
A1 jusqu'à la dernière cel de la colonne CG, alors que plus bas tu tries à partir de la ligne 12...
Selection.Sort Key1:=Range("CE12"), Order1:=xlAscending, Key2:=Range( _ "A12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal Range("D11").Select Quelqu'un peut-il me dire où st mon erreur Chez moi ça marche, mais comme je ne sais pas ce que tu veux obtenir...
Précise ce que tu cherches, notamment au sujet des sélections indiquées plus haut. Si besoin, fournis un exemple sur cjoint.
Au plaisir. CB
Merci pour toute intervention
Rich
Voici ma formule : Range("CG12").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Cells(1)).Select
Je ne comprends pas ce que tu veux faire ici. Cela va te sélectionner de
A1 jusqu'à la dernière cel de la colonne CG, alors que plus bas tu tries
à partir de la ligne 12...
Selection.Sort Key1:=Range("CE12"), Order1:=xlAscending, Key2:=Range( _
"A12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("D11").Select
Quelqu'un peut-il me dire où st mon erreur
Chez moi ça marche, mais comme je ne sais pas ce que tu veux obtenir...
Précise ce que tu cherches, notamment au sujet des sélections indiquées
plus haut.
Si besoin, fournis un exemple sur cjoint.
Voici ma formule : Range("CG12").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Cells(1)).Select Je ne comprends pas ce que tu veux faire ici. Cela va te sélectionner de
A1 jusqu'à la dernière cel de la colonne CG, alors que plus bas tu tries à partir de la ligne 12...
Selection.Sort Key1:=Range("CE12"), Order1:=xlAscending, Key2:=Range( _ "A12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal Range("D11").Select Quelqu'un peut-il me dire où st mon erreur Chez moi ça marche, mais comme je ne sais pas ce que tu veux obtenir...
Précise ce que tu cherches, notamment au sujet des sélections indiquées plus haut. Si besoin, fournis un exemple sur cjoint.
Au plaisir. CB
Merci pour toute intervention
Rich
Richard Fortin
Ce que je veux faire est ce qui suit : Je veux sélectionner la dernière cellule de la colonne "CG". De cette denière cellule je veux saisir la 1er ligne de ma feuille 1er cellule ="A12". Mon 1er tri selon la colonne "CE" et mon 2e tri selon la colonne "A" Valeur en "CE" = X,Y (XÎllule vide) , (YÚte) Valeur en "A" = Nom/prénom
J'espère avoir donné assez de précision.
Merci
Voici ma formule : Range("CG12").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Cells(1)).Select Je ne comprends pas ce que tu veux faire ici. Cela va te sélectionner de
A1 jusqu'à la dernière cel de la colonne CG, alors que plus bas tu tries à partir de la ligne 12...
Selection.Sort Key1:=Range("CE12"), Order1:=xlAscending, Key2:=Range( _ "A12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal Range("D11").Select Quelqu'un peut-il me dire où st mon erreur Chez moi ça marche, mais comme je ne sais pas ce que tu veux obtenir...
Précise ce que tu cherches, notamment au sujet des sélections indiquées plus haut. Si besoin, fournis un exemple sur cjoint.
Au plaisir. CB
Merci pour toute intervention
Rich
Ce que je veux faire est ce qui suit : Je veux sélectionner la dernière
cellule de la colonne "CG". De cette denière cellule je veux saisir la 1er
ligne de ma feuille 1er cellule ="A12".
Mon 1er tri selon la colonne "CE" et mon 2e tri selon la colonne "A"
Valeur en "CE" = X,Y (XÎllule vide) , (YÚte)
Valeur en "A" = Nom/prénom
J'espère avoir donné assez de précision.
Merci
Voici ma formule : Range("CG12").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Cells(1)).Select
Je ne comprends pas ce que tu veux faire ici. Cela va te sélectionner de
A1 jusqu'à la dernière cel de la colonne CG, alors que plus bas tu tries
à partir de la ligne 12...
Selection.Sort Key1:=Range("CE12"), Order1:=xlAscending, Key2:=Range( _
"A12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("D11").Select
Quelqu'un peut-il me dire où st mon erreur
Chez moi ça marche, mais comme je ne sais pas ce que tu veux obtenir...
Précise ce que tu cherches, notamment au sujet des sélections indiquées
plus haut.
Si besoin, fournis un exemple sur cjoint.
Ce que je veux faire est ce qui suit : Je veux sélectionner la dernière cellule de la colonne "CG". De cette denière cellule je veux saisir la 1er ligne de ma feuille 1er cellule ="A12". Mon 1er tri selon la colonne "CE" et mon 2e tri selon la colonne "A" Valeur en "CE" = X,Y (XÎllule vide) , (YÚte) Valeur en "A" = Nom/prénom
J'espère avoir donné assez de précision.
Merci
Voici ma formule : Range("CG12").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Cells(1)).Select Je ne comprends pas ce que tu veux faire ici. Cela va te sélectionner de
A1 jusqu'à la dernière cel de la colonne CG, alors que plus bas tu tries à partir de la ligne 12...
Selection.Sort Key1:=Range("CE12"), Order1:=xlAscending, Key2:=Range( _ "A12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal Range("D11").Select Quelqu'un peut-il me dire où st mon erreur Chez moi ça marche, mais comme je ne sais pas ce que tu veux obtenir...
Précise ce que tu cherches, notamment au sujet des sélections indiquées plus haut. Si besoin, fournis un exemple sur cjoint.
Au plaisir. CB
Merci pour toute intervention
Rich
CB
Richard Fortin wrote:
Ce que je veux faire est ce qui suit : Je veux sélectionner la dernière cellule de la colonne "CG". De cette denière cellule je veux saisir la 1er ligne de ma feuille 1er cellule ="A12". Mon 1er tri selon la colonne "CE" et mon 2e tri selon la colonne "A" Valeur en "CE" = X,Y (XÎllule vide) , (YÚte) Valeur en "A" = Nom/prénom
J'espère avoir donné assez de précision.
Cela convient-il : With Worksheets("Feuil1") .Range("A12:CG" & Range("CG65356").End(xlUp).Row).Select End With
??? Bye, CB
Richard Fortin wrote:
Ce que je veux faire est ce qui suit : Je veux sélectionner la dernière
cellule de la colonne "CG". De cette denière cellule je veux saisir la 1er
ligne de ma feuille 1er cellule ="A12".
Mon 1er tri selon la colonne "CE" et mon 2e tri selon la colonne "A"
Valeur en "CE" = X,Y (XÎllule vide) , (YÚte)
Valeur en "A" = Nom/prénom
J'espère avoir donné assez de précision.
Cela convient-il :
With Worksheets("Feuil1")
.Range("A12:CG" & Range("CG65356").End(xlUp).Row).Select
End With
Ce que je veux faire est ce qui suit : Je veux sélectionner la dernière cellule de la colonne "CG". De cette denière cellule je veux saisir la 1er ligne de ma feuille 1er cellule ="A12". Mon 1er tri selon la colonne "CE" et mon 2e tri selon la colonne "A" Valeur en "CE" = X,Y (XÎllule vide) , (YÚte) Valeur en "A" = Nom/prénom
J'espère avoir donné assez de précision.
Cela convient-il : With Worksheets("Feuil1") .Range("A12:CG" & Range("CG65356").End(xlUp).Row).Select End With
