OVH Cloud OVH Cloud

Erreur 1004 sur une commande de suppression de colonne en excel 20

2 réponses
Avatar
Katou
Bonjour,

Avec l'enregistreur de macro, je créé une macro qui supprime les colonnes
C,D,E, L à O, R à AA. Lors de l'enregistreur de la macro dans le classeur
perso tout va bien, mais lorsque que je veux l'appliquer, j'ai le message "
Erreur d'exécution 1004 : Impossible d'utiliser cette commande sur des
sélections supperposées, le message est sur la dernière ligne de code,
pourquoi?

Sub test()
'
' test Macro
' Macro enregistrée le 2006-05-10 par MSSS
'

'
Range("C:C,D:D,E:E").Select
Range("E1").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.SmallScroll ToRight:=4
Range("C:C,D:D,E:E,L:L,M:M,N:N,O:O").Select
Range("O1").Activate
ActiveWindow.SmallScroll ToRight:=11

Range("C:C,D:D,E:E,L:L,M:M,N:N,O:O,R:R,S:S,T:T,U:U,V:V,W:W,X:X,Y:Y,Z:Z,AA:AA"). _
Select
Range("AA1").Activate
Selection.Delete Shift:=xlToLeft
End Sub

2 réponses

Avatar
papou
Bonjour
Remplace les lignes par ceci :
Range("C:E, L:O, R:AA").Delete xlToLeft
Cordialement
Pascal

"Katou" a écrit dans le message de news:

Bonjour,

Avec l'enregistreur de macro, je créé une macro qui supprime les colonnes
C,D,E, L à O, R à AA. Lors de l'enregistreur de la macro dans le classeur
perso tout va bien, mais lorsque que je veux l'appliquer, j'ai le message
"
Erreur d'exécution 1004 : Impossible d'utiliser cette commande sur des
sélections supperposées, le message est sur la dernière ligne de code,
pourquoi?

Sub test()
'
' test Macro
' Macro enregistrée le 2006-05-10 par MSSS
'

'
Range("C:C,D:D,E:E").Select
Range("E1").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.SmallScroll ToRight:=4
Range("C:C,D:D,E:E,L:L,M:M,N:N,O:O").Select
Range("O1").Activate
ActiveWindow.SmallScroll ToRight:

Range("C:C,D:D,E:E,L:L,M:M,N:N,O:O,R:R,S:S,T:T,U:U,V:V,W:W,X:X,Y:Y,Z:Z,AA:AA").
_
Select
Range("AA1").Activate
Selection.Delete Shift:=xlToLeft
End Sub


Avatar
Katou
Merci papou, mon problème est résolu grâce à toi.

Katou!

"papou" wrote:

Bonjour
Remplace les lignes par ceci :
Range("C:E, L:O, R:AA").Delete xlToLeft
Cordialement
Pascal

"Katou" a écrit dans le message de news:

Bonjour,

Avec l'enregistreur de macro, je créé une macro qui supprime les colonnes
C,D,E, L à O, R à AA. Lors de l'enregistreur de la macro dans le classeur
perso tout va bien, mais lorsque que je veux l'appliquer, j'ai le message
"
Erreur d'exécution 1004 : Impossible d'utiliser cette commande sur des
sélections supperposées, le message est sur la dernière ligne de code,
pourquoi?

Sub test()
'
' test Macro
' Macro enregistrée le 2006-05-10 par MSSS
'

'
Range("C:C,D:D,E:E").Select
Range("E1").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.SmallScroll ToRight:=4
Range("C:C,D:D,E:E,L:L,M:M,N:N,O:O").Select
Range("O1").Activate
ActiveWindow.SmallScroll ToRight:

Range("C:C,D:D,E:E,L:L,M:M,N:N,O:O,R:R,S:S,T:T,U:U,V:V,W:W,X:X,Y:Y,Z:Z,AA:AA").
_
Select
Range("AA1").Activate
Selection.Delete Shift:=xlToLeft
End Sub