erreure dans tri

Le
Christian
Bonjour,

j'ai une erreure 1004 dans la fonction suivante à la dernière instruction
".Apply" :

Sub trimanche1Place()
'
' trimanche1Place Macro
'

'
Dim NbrLignes, IndexLigne


NbrLignes = Participants.Range("K10").Value
IndexLigne = 132 - (130 - NbrLignes)


Range(Cells(3, 2), Cells(IndexLigne, 8)).Select



'Range("B3:H132").Select
ActiveWorkbook.Worksheets("Feuille
inscriptions").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuille inscriptions").Sort.SortFields.Add
Key:= _
Range(Cells(3, 2), Cells(IndexLigne, 8)), SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuille inscriptions").Sort
.SetRange Range(Cells(3, 2), Cells(IndexLigne, 8))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Merci d'avance
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
Daniel.C
Le #16505891
Bonjour.
En admettant que tu veuilles trier su la colonne B, mets :

With ActiveWorkbook.Worksheets("Feuille inscriptions").Sort
.SetRange Range(Cells(3, 2), Cells(IndexLigne, 8))
.SortFields.Add Key:= _
Range(Cells(3, 2), Cells(IndexLigne, 2)), SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption _
:=xlSortNormal
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Cordialement.
Daniel

"Christian"
Bonjour,

j'ai une erreure 1004 dans la fonction suivante à la dernière instruction
".Apply" :

Sub trimanche1Place()
'
' trimanche1Place Macro
'

'
Dim NbrLignes, IndexLigne


NbrLignes = Participants.Range("K10").Value
IndexLigne = 132 - (130 - NbrLignes)


Range(Cells(3, 2), Cells(IndexLigne, 8)).Select



'Range("B3:H132").Select
ActiveWorkbook.Worksheets("Feuille
inscriptions").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuille inscriptions").Sort.SortFields.Add
Key:= _
Range(Cells(3, 2), Cells(IndexLigne, 8)), SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuille inscriptions").Sort
.SetRange Range(Cells(3, 2), Cells(IndexLigne, 8))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Merci d'avance


Christian
Le #16511351
Merci

Christian

"Daniel.C" news:e1KKlMX#:

Bonjour.
En admettant que tu veuilles trier su la colonne B, mets :

With ActiveWorkbook.Worksheets("Feuille inscriptions").Sort
.SetRange Range(Cells(3, 2), Cells(IndexLigne, 8))
.SortFields.Add Key:= _
Range(Cells(3, 2), Cells(IndexLigne, 2)),
SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption _
:=xlSortNormal
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Cordialement.
Daniel

"Christian" news:
Bonjour,

j'ai une erreure 1004 dans la fonction suivante à la dernière
instruction ".Apply" :

Sub trimanche1Place()
'
' trimanche1Place Macro
'

'
Dim NbrLignes, IndexLigne


NbrLignes = Participants.Range("K10").Value
IndexLigne = 132 - (130 - NbrLignes)


Range(Cells(3, 2), Cells(IndexLigne, 8)).Select



'Range("B3:H132").Select
ActiveWorkbook.Worksheets("Feuille
inscriptions").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuille
inscriptions").Sort.SortFields.Add
Key:= _
Range(Cells(3, 2), Cells(IndexLigne, 8)),
SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuille inscriptions").Sort
.SetRange Range(Cells(3, 2), Cells(IndexLigne, 8))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Merci d'avance







Publicité
Poster une réponse
Anonyme