Pb, explication sur code VBA

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FdeCourt
Le #21047001
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.
DAVID
Le #21047221
Bonsoir et merci

Dsl pour le dérangement !!!
LE TROLL
Le #21052781
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" 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



Publicité
Poster une réponse
Anonyme