OVH Cloud OVH Cloud

Problème de tri

12 réponses
Avatar
Jacques
Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques

10 réponses

1 2
Avatar
anonymousA
bonjour,

connais pas ce paramètre Dataoption. Tu es sous quelle version d'Excel?

A+

Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques




Avatar
Jacques
Re

Excel 2000

Salut, Jacques
"anonymousA" a écrit dans le message de news:
42d6380b$0$22305$
bonjour,

connais pas ce paramètre Dataoption. Tu es sous quelle version d'Excel?

A+

Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques




Avatar
anonymousA
ben , je ne vois absolument pas ce paramètre dans la définition de la
propriété Sort. Aussi, il ne me parait pas anormal qu'Excel soit réticent.

A+



Re

Excel 2000

Salut, Jacques
"anonymousA" a écrit dans le message de news:
42d6380b$0$22305$

bonjour,

connais pas ce paramètre Dataoption. Tu es sous quelle version d'Excel?

A+


Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques









Avatar
G'Claire
Re

Pourtant j'ai déja vu plusieur fois utiliser ce type de code et je ne vois
pas ce qu'il ne va pas.

Merci, Jacques


ben , je ne vois absolument pas ce paramètre dans la définition de la
propriété Sort. Aussi, il ne me parait pas anormal qu'Excel soit réticent.

A+



Re

Excel 2000

Salut, Jacques
"anonymousA" a écrit dans le message de news:
42d6380b$0$22305$

bonjour,

connais pas ce paramètre Dataoption. Tu es sous quelle version d'Excel?

A+


Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques












Avatar
ClémentMarcotte
Bonjour,

Essaie en l'enlevant. J'ai déjà un problème du genre parce qu'un paramètre
avait été ajouté à Excel 2002 et que les macros Excel 2002 plantaient sur
Excel 2000. Mais je ne me souviens pas si c'est bien lui.


"G'Claire" a écrit dans le message de
news:
Re

Pourtant j'ai déja vu plusieur fois utiliser ce type de code et je ne vois
pas ce qu'il ne va pas.

Merci, Jacques


ben , je ne vois absolument pas ce paramètre dans la définition de la
propriété Sort. Aussi, il ne me parait pas anormal qu'Excel soit
réticent.



A+



Re

Excel 2000

Salut, Jacques
"anonymousA" a écrit dans le message de news:
42d6380b$0$22305$

bonjour,

connais pas ce paramètre Dataoption. Tu es sous quelle version
d'Excel?





A+


Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo,
_





OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques














Avatar
G'Claire
ClémentMarcotte, le forum

Donc j'envoie cette macro :

Sub Tri_operations()
'
' Tri par mouvements
' Macro enregistrée le 15/07/2002 par ZEZIOLA Jacques
'
With ActiveSheet
If Range("b13").Value = 0 Or Range("b12").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B13:I13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B13").Select
Application.ScreenUpdating = True
End With
End Sub

Par l'intermédiaire de bouton situé dans une feuille de calcul avec affecter
une macro.

Si cela peu aider quelque part, Merci, Jacques.


Bonjour,

Essaie en l'enlevant. J'ai déjà un problème du genre parce qu'un paramètre
avait été ajouté à Excel 2002 et que les macros Excel 2002 plantaient sur
Excel 2000. Mais je ne me souviens pas si c'est bien lui.


"G'Claire" a écrit dans le message de
news:
Re

Pourtant j'ai déja vu plusieur fois utiliser ce type de code et je ne vois
pas ce qu'il ne va pas.

Merci, Jacques


ben , je ne vois absolument pas ce paramètre dans la définition de la
propriété Sort. Aussi, il ne me parait pas anormal qu'Excel soit
réticent.



A+



Re

Excel 2000

Salut, Jacques
"anonymousA" a écrit dans le message de news:
42d6380b$0$22305$

bonjour,

connais pas ce paramètre Dataoption. Tu es sous quelle version
d'Excel?





A+


Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo,
_





OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques



















Avatar
ClémentMarcotte
Bonjour,

Essaie :

Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


au lieu de ta ligne originale:

Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


J'ai pas Excel 2000 pour tester.

Avatar
ClémentMarcotte
OUPSS! C'est cette ligne-là que tu devrais essayer:

Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom



"ClémentMarcotte" a écrit dans le message de
news:
Bonjour,

Essaie :

, _

DataOption1:=xlSortNormal


au lieu de ta ligne originale:

Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


J'ai pas Excel 2000 pour tester.






Avatar
G'Claire
Clément, le forum

J'ai essayé de supprimer cette ligne, mais aprés il ne se passe plus rien
Soit je m'y prends mal pour l'appel de cette fonction ou alors je ne vois pas
Merci, JAqcues


Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques





Avatar
anonymousA
bonjour,

je réitère ce que j'ai dit hier à Jacques et que Clément a aussi indiqué. Le
paramètre Dataoption n'existe pas sous Excel 2000. Il faut donc l'enlever de
la ligne pour que le tri puisse fonctionner et ecrire
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom

A+



Clément, le forum

J'ai essayé de supprimer cette ligne, mais aprés il ne se passe plus rien
Soit je m'y prends mal pour l'appel de cette fonction ou alors je ne vois pas
Merci, JAqcues


Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques







1 2