Erreur 1004 et multiples Conversions
Bonjour à tous
Un nouveau blocage lié à une macro "enregistrée", sous Excel 2016, dans le cadre professionnelle.
Le message d'alerte est le suivant :
"Erreur d'exécution '1004':
Microsoft Excel ne peut convertir qu'une colonne à la fois. La plage peut comprendre plusieurs lignes mais une seule colonne. Réessayer en ne sélectionnent les cellules que d'une seule colonne."
Hors j'ai bien sélectionné chaque colonne séparément, ce qui semble être écrit aussi dans la macro. J'ai une autre macro sur le même principe qui fonctionne très bien.
Quel est le problème selon vous ? Que dois-je modifier ?
Merci à tous pour votre aide.
Voici la macro :
Sub SuiviLivPrepa()
'
' SuiviLivPrepa Macro
'
'
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1:AC1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Columns("K:K").Select
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("N:N").Select
Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("O:O").Select
Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("S:S").Select
Selection.TextToColumns Destination:=Range("S1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("O1").Select
ActiveWorkbook.Worksheets("R0681 - Suivi des entrees d all").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("R0681 - Suivi des entrees d all").Sort.SortFields. _
Add Key:=Range("A2:A3283"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("R0681 - Suivi des entrees d all").Sort.SortFields. _
Add Key:=Range("B2:B3283"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("R0681 - Suivi des entrees d all").Sort.SortFields. _
Add Key:=Range("D2:D3283"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("R0681 - Suivi des entrees d all").Sort.SortFields. _
Add Key:=Range("S2:S3283"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("R0681 - Suivi des entrees d all").Sort.SortFields. _
Add Key:=Range("O2:O3283"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("R0681 - Suivi des entrees d all").Sort
.SetRange Range("A1:AC3283")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub