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.
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
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.
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
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
Re
Excel 2000
Salut, Jacques
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42d6380b$0$22305$8fcfb975@news.wanadoo.fr...
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.
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
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
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" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42d6380b$0$22305$8fcfb975@news.wanadoo.fr...
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.
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
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
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" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42d6380b$0$22305$8fcfb975@news.wanadoo.fr...
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.
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
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
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" <jacouille@discution.microsoft.com> a écrit dans le message de
news:F7EF545A-6AAB-48FF-80EB-101885F12847@microsoft.com...
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" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42d6380b$0$22305$8fcfb975@news.wanadoo.fr...
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.
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
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
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" <jacouille@discution.microsoft.com> a écrit dans le message de
news:F7EF545A-6AAB-48FF-80EB-101885F12847@microsoft.com...
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" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42d6380b$0$22305$8fcfb975@news.wanadoo.fr...
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.
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.
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
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.
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
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
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 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.