Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro

Macro

4 réponses
Avatar
alain.bazire
Bonsoir à toutes et à tous.
Voila j'ai créee une mini macro'
Selection.Sort Key1:=Range("H5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub
Mais j'aimerais qu'elle trie tute seule jusqu'à la ligne 40000 svp de la
rigolade pour vous bien sur;mais pas pour moi. Merci de votre aide et de
votre compréhension Alain
PS ; La plage va de H5 à O5 .Amitiées
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Jean-Claude
Bonjour,
Sans vérification, cela devrait le faire"Feuilleconcernée" représente la
feuille où se trouve vos données.
Eventuellement nommer la cellule (ex ZoneTri) et remplacer l'adresse
"$H$5;$O$40000" par "ZoneTri"


Sheets("Feuilleconcernée").Range("$H$5;$O$40000").Sort Key1:=Range("H5"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal


A+
Jc
Mais j'aimerais qu'elle trie tute seule jusqu'à la ligne 40000 svp de la
rigolade pour vous bien sur;mais pas pour moi. Merci de votre aide et de
votre compréhension Alain
PS ; La plage va de H5 à O5 .Amitiées


Avatar
alain.bazire
Bonjour désolé mais cela ne fonctionne pas. Peux tu faire que cela fonctionne
STP .Merci


Bonjour,
Sans vérification, cela devrait le faire"Feuilleconcernée" représente la
feuille où se trouve vos données.
Eventuellement nommer la cellule (ex ZoneTri) et remplacer l'adresse
"$H$5;$O$40000" par "ZoneTri"


Sheets("Feuilleconcernée").Range("$H$5;$O$40000").Sort Key1:=Range("H5"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal


A+
Jc
Mais j'aimerais qu'elle trie tute seule jusqu'à la ligne 40000 svp de la
rigolade pour vous bien sur;mais pas pour moi. Merci de votre aide et de
votre compréhension Alain
PS ; La plage va de H5 à O5 .Amitiées







Avatar
AV
Bonjour désolé mais cela ne fonctionne pas.


Remplace
Range("$H$5;$O$40000")
par
Range("$H$5:$O$40000")

AV

Avatar
Jean-Claude
Re salut,
Petite erreur de ma part, j'ai malencontreusement utilisé les";" au lieux
des ":" comme séparateur d'adresse
Par ailleur j'ai repris ta macro tel que et le paramètre Orientation qui
était sur xlLeftToRight devrait être je pense sur xlTopToBottom

Sheets("Feuil1").Range("$H$5:$O$40000").Sort Key1:=Range("H5"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

A+
Jc

"" a
écrit dans le message de
news:
Bonjour désolé mais cela ne fonctionne pas. Peux tu faire que cela
fonctionne

STP .Merci


Bonjour,
Sans vérification, cela devrait le faire"Feuilleconcernée" représente la
feuille où se trouve vos données.
Eventuellement nommer la cellule (ex ZoneTri) et remplacer l'adresse
"$H$5;$O$40000" par "ZoneTri"


Sheets("Feuilleconcernée").Range("$H$5;$O$40000").Sort
Key1:=Range("H5"),


Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal


A+
Jc
Mais j'aimerais qu'elle trie tute seule jusqu'à la ligne 40000 svp de
la



rigolade pour vous bien sur;mais pas pour moi. Merci de votre aide et
de



votre compréhension Alain
PS ; La plage va de H5 à O5 .Amitiées