Macro avec sélection multiple de colonnes

| Je rencontre un pb lorsque je veux la tester car une erreur 1004 se produit
| sur la ligne suivante :
| Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").Select
| message : la méthode 'range" de l'objet 'global" a échoué.

Perso et quelle que soit la version XL, je ne vois aucune raison pour que cette
syntaxe échoue..

AV

Bonjour,

J'ai actuellement une macro en préparation.
J'ai une mise en forme identique à appliquer à un certain nb de colonnes.
J'ai enregistré une nouvelle macro qui se traduit de la manière suivante
après avoir fait les différentes manips :

Sub Form_Col()
Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").Select
Range("AD1").Activate
With Selection
.HorizontalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Columns.AutoFit
End Sub

Je rencontre un pb lorsque je veux la tester car une erreur 1004 se
produit

sur la ligne suivante :
Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").Select
message : la méthode 'range" de l'objet 'global" a échoué.

Quelqu'un a-t-il une solution à me proposer car j'ai encore d'autres mises
en forme à appliquer à d'autres colonnes, telles que masquage.

Merci d'avance à toutes et à tous.
Bonne journée.
ANNIE

Je suis tout à fait d'accord avec cette réponse, je ne vois pas non plus
ce
qui empêche la macro de tourner correctement.
Je travaille sous Excel 2003

ANNIE

| Je rencontre un pb lorsque je veux la tester car une erreur 1004 se
produit
| sur la ligne suivante :
| Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").Select
| message : la méthode 'range" de l'objet 'global" a échoué.

Perso et quelle que soit la version XL, je ne vois aucune raison pour que
cette
syntaxe échoue..

AV

Je suis tout à fait d'accord avec cette réponse, je ne vois pas non plus ce
qui empêche la macro de tourner correctement.
Je travaille sous Excel 2003

ANNIE

| Je rencontre un pb lorsque je veux la tester car une erreur 1004 se produit
| sur la ligne suivante :
| Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").Select
| message : la méthode 'range" de l'objet 'global" a échoué.

Perso et quelle que soit la version XL, je ne vois aucune raison pour que cette
syntaxe échoue..

AV

Ta macro fonctionne sans erreur chez moi.
Tu peux l'optimiser en évitant le Select et Activate (qui proviennent
probablement de l'enregistreur de macros)

Sub Form_Col()
With Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").
.HorizontalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Columns.AutoFit
End With
End Sub

Cordialement,
--
AP

"benmat" <benmat@discussions.microsoft.com> a écrit dans le message de
news:0AB4206E-469E-4232-B8DA-790B55CD2829@microsoft.com...

Bonjour,

J'ai actuellement une macro en préparation.
J'ai une mise en forme identique à appliquer à un certain nb de colonnes.
J'ai enregistré une nouvelle macro qui se traduit de la manière suivante
après avoir fait les différentes manips :

Sub Form_Col()
Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").Select
Range("AD1").Activate
With Selection
.HorizontalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Columns.AutoFit
End Sub

Je rencontre un pb lorsque je veux la tester car une erreur 1004 se
produit

sur la ligne suivante :
Range("D:D,I:I,J:J,N:N,S:S,AB:AB,AC:AC,AD:AD").Select
message : la méthode 'range" de l'objet 'global" a échoué.

Quelqu'un a-t-il une solution à me proposer car j'ai encore d'autres mises
en forme à appliquer à d'autres colonnes, telles que masquage.

Merci d'avance à toutes et à tous.
Bonne journée.
ANNIE