Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb, explication sur code VBA

Pb, explication sur code VBA

3 réponses
Avatar
DAVID
Bonjour

J'utilise ce code pour trier une liste

Private Sub Trier()
Dim Tri As Integer
Dim Plage As Range
Tri = Sheets("ESSAIS").Range("A65536").End(xlUp).Row
Set Plage = Sheets("ESSAIS").Range("A1:J" & Tri)
Plage.Sort Worksheets("ESSAIS").Columns("A"), Order1:=xlDescending,
Header:=xlGuess
End Sub

Afin de ne pas avoir d'erreur si l'on change le nom de la feuille, et sur
conseil de MichDenis ! je voulais modifier en mettant le codeName de la
feuille mais cela fonctionne plus.

Private Sub Trier()
Dim Tri As Integer
Dim Plage As Range
Tri = Feuil2.Range("A65536").End(xlUp).Row
Set Plage = Feuil2.Range("A1:J" & Tri)
Plage.Sort Feui2.Columns("A"), Order1:=xlDescending, Header:=xlGuess
End Sub

Merci de votre aide et explications

David
Signaler un problème avec ce contenu

3 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
FdeCourt
Salut,

C'est normal, il y a une erreur de frappe :
Plage.Sort Feuil2.Columns("A"), Order1:=xlDescending, Header:=xlGuess

Il manque le "L" de Feuil2.columns.....

Cordialement,

F.
Avatar
DAVID
Bonsoir et merci

Dsl pour le dérangement !!!
Avatar
LE TROLL
Bonjour,

Petite précision : pour trier une liste par ordre alphanumérique
croissant, c'est la propriété sorted = true de la liste qu'il faut activer.

Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"DAVID" a écrit dans le message de
news:%
Bonjour

J'utilise ce code pour trier une liste

Private Sub Trier()
Dim Tri As Integer
Dim Plage As Range
Tri = Sheets("ESSAIS").Range("A65536").End(xlUp).Row
Set Plage = Sheets("ESSAIS").Range("A1:J" & Tri)
Plage.Sort Worksheets("ESSAIS").Columns("A"), Order1:=xlDescending,
Header:=xlGuess
End Sub

Afin de ne pas avoir d'erreur si l'on change le nom de la feuille, et sur
conseil de MichDenis ! je voulais modifier en mettant le codeName de la
feuille mais cela fonctionne plus.

Private Sub Trier()
Dim Tri As Integer
Dim Plage As Range
Tri = Feuil2.Range("A65536").End(xlUp).Row
Set Plage = Feuil2.Range("A1:J" & Tri)
Plage.Sort Feui2.Columns("A"), Order1:=xlDescending, Header:=xlGuess
End Sub

Merci de votre aide et explications

David