Bonjour à tous,
je vous explique mon problème:
j'ai crée une macro de triage de cellules qui fonctionne bien lorsque celles ci ne sont pas fusionnées.
Lorsque que je veux les trier via ma macro (que vous trouverez ci dessous) alors que certaines d'entre elles sont fusionnées j'ai un message: le tri n'est pas possible avec des cellules de taille différentes.
Si quelqu'un peut m'orienter...
Merci
Sub Tri()
'
' Tri Macro
' Macro enregistrée le 18/01/2006 par ADM
'
'
ActiveSheet.Unprotect ''
Sheets('Archive').Visible = True 'pour afficher la feuille
Sheets('Archive').Select
Rows('2:1053').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.LargeScroll Down:=-15
ActiveWindow.ScrollRow = 561
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 524
ActiveWindow.ScrollRow = 443
ActiveWindow.ScrollRow = 414
ActiveWindow.ScrollRow = 384
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 2
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('A2').Select
Sheets('Formulaire').Select
Range('B2').Select
Sheets('Archive').Visible = False 'pour masquer la feuille
ActiveSheet.Protect '', True, True, True
End Sub
je vous explique mon problème:
j'ai crée une macro de triage de cellules qui fonctionne bien lorsque celles ci ne sont pas fusionnées.
Lorsque que je veux les trier via ma macro (que vous trouverez ci dessous) alors que certaines d'entre elles sont fusionnées j'ai un message: le tri n'est pas possible avec des cellules de taille différentes.
Si quelqu'un peut m'orienter...
Merci
Sub Tri()
'
' Tri Macro
' Macro enregistrée le 18/01/2006 par ADM
'
'
ActiveSheet.Unprotect ''
Sheets('Archive').Visible = True 'pour afficher la feuille
Sheets('Archive').Select
Rows('2:1053').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.LargeScroll Down:=-15
ActiveWindow.ScrollRow = 561
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 524
ActiveWindow.ScrollRow = 443
ActiveWindow.ScrollRow = 414
ActiveWindow.ScrollRow = 384
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 2
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('A2').Select
Sheets('Formulaire').Select
Range('B2').Select
Sheets('Archive').Visible = False 'pour masquer la feuille
ActiveSheet.Protect '', True, True, True
End Sub