Erreur d'arguments

Version imprimable

Erreur d'arguments

Bonjour,
J'aimerais trier une colonne après divers traitement effectué sur une feuille, mais l'erreur "Incompatibilité de type" apparaît quoi que je mette comme arguments... J'ai tout essayé, j'ai fait des recherches mais rien trouvé, donc je désespère sur cette macro tout simple a priori

Voici mon code que génère l'erreur :
Code:

1 2 3 4 5 6 7 8 9 Public Function Tri(Optional ByRef wbk As Workbook = "ThisWorkbook") Dim maPlage As Range Set maPlage = wbk.Worksheets("Clients").Range("J2:" & wbk.Worksheets("Clients").Range("J1").End(xlDown).Address) maPlage.Sort Key1:=Range("J2"), Order1:=xlDescending, Header:=xlNo, Orientation:=xlTopToBottom, OrderCustom:=1, MatchCase:=False, DataOption1:=xlSortNormal End Function
Merci d'avance

EDIT : Bon j'ai réglé mon problème de type qui venait du prototype de ma fonction, seul problème maintenant, mon tri ne fait rien, alors que j'ai aucune erreur... Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Function Tri(Optional wbk As Workbook) Dim maPlage As Range If wbk Is Nothing Then Set wbk = ThisWorkbook Else End If Set maPlage = wbk.Worksheets("Clients").Range("J2:" & wbk.Worksheets("Clients").Range("J2").End(xlDown).Address) maPlage.Sort Key1:=maPlage.Range("J2"), Order1:=xlDescending, Header:=xlNo, Orientation:=xlTopToBottom End Function

20/07/2009, 12h09
Krovax

Bonjour
Serait-il possible de voir comment tu appelles ta fonction?
Car ton code de tri me semble bon (en tout cas il fonctionne très bien sur mon exemple)

edit : Par don je pense que le problème viens de "Thiswokbook"
Je vais essaye de voir comment faire

Bonjour,

J'ai modifié ainsi et ça fonctionne pour moi :

Code:

1
2
3
Sub test_egal()
Tri ThisWorkbook
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
Public Function Tri(ByRef wbk As Workbook)
' MsgBox wbk.Name
Dim maPlage As Range
 
Set maPlage = wbk.Worksheets(1).Range("J2:J" & wbk.Worksheets(1).Range("J1").End(xlDown).Row)
' MsgBox maPlage.Address
  maPlage.Sort Key1:=Range("J2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Function

en gardant le caractère optionnel de wbk
Code:

1 2 3 4 5 6 7 8 9 Public Function Tri(Optional ByRef wbk as variant) Dim maPlage As Range If Not IsMissing(wbk) Then Set wbk = ThisWorkbook Set maPlage = wbk.Worksheets("Clients").Range("J2:" & wbk.Worksheets("Clients").Range("J1").End(xlDown).Address) maPlage.Sort Key1:=Range("J2"), Order1:=xlDescending, Header:=xlNo, Orientation:=xlTopToBottom, OrderCustom:=1, MatchCase:=False, DataOption1:=xlSortNormal End Function
Je viens de vois que tu avais édité ton premier message
juste une remarque a part tu n'est pas obligé de mettre un else dans ton if si tu n'en fait rien

edit visiblement ismissing utilise les variant

20/07/2009, 12h20
aalex_38

Bonjour,

Est-ce vraiment ça que tu veux faire :

Code:

Set maPlage = wbk.Worksheets(1).Range("J2:J" & wbk.Worksheets(1).Range("J1").End(xlDown).Row)

et pas :

Code:

Set maPlage = wbk.Worksheets(1).Range("J2:J" & wbk.Worksheets(1).Range("J65536").End(xlUp).Row)

?

NB : J'ai remplaçé "Clients" par l'index 1 pour mes tests.
20/07/2009, 12h25
MasterChief78

Merci pour vos réponses rapides, j'ai édite mon premier post par rapport à mon problème initial,

Oui c'est bien ce que je veux faire, sélectionné de la 2° a la derniere ligne utilise de la Jième colonne

J'ai testé vos codes (en remplaçant le nom de la feuille) et j'ai des erreurs 400 :(

Par contre il y a une différence entre le code que tu utilise pour trouver la dernière ligne et celui que aalex te suggère. Le tient s'arrête a la première ligne vide le siens te donne la dernière ligne même s'il y a des ligne vide dans tes données

Voila une version qui fonctionne effectivement tu avai un petit souci avec l'argument key tu ne précisé ni le classeur ni l'onglet
Code:

1 2 3 4 5 6 7 Public Function Tri(Optional ByRef wbk As Variant) Dim maPlage As Range If IsMissing(wbk) Then Set wbk = ThisWorkbook Set maPlage = wbk.Worksheets("Client").Range("A2:" & wbk.Worksheets("Client").Range("A65536").End(xlUp).Address) maPlage.Sort Key1:=wbk.Worksheets("Client").Range("A2"), Order1:=xlDescending, Header:=xlNo, Orientation:=xlTopToBottom, OrderCustom:=1, MatchCase:=False, DataOption1:=xlSortNormal End Function
Testé avec
Code:

1 2 3 4 Private Sub CommandButton1_Click() Tri Tri Workbooks("Nouveau Feuille de calcul Microsoft Excel (2).xls") End Sub
Les deux classeur sont bien trié thisworkbook et le nouveau

20/07/2009, 12h47
MasterChief78

Merci beaucoup ça fonctionne parfaitement :)