Erreur d'exécution '1004'

[argaz01]

Bonjour,

J'ai fait une macro qui fonctionnait trés bien et maintenant elle me met erreur d'exécution '1004' impossible d'exécuter cette commande sur des séléctions multiples!:

Sub ExtrqctionColonnes()
'
' ExtrqctionColonnes Macro
' Macro enregistrée le 07/06/2010 par ait aouman
'

'
    Sheets("Feuil1").Select
    Range("A:A,B:B,D:D,L:L,M:M,N:N,O:O,P:P,Q:Q").Select
    Range("Q1").Activate
    [COLOR="yellow"]Selection.Copy[/COLOR]    Sheets("Feuil2").Select
    ActiveSheet.Paste
    Range("I6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Respect Regles Prudentielles"
    With ActiveCell.Characters(Start:=1, Length:=28).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 5
    End With
    Range("I7").Select
    Columns("A:A").ColumnWidth = 24.29
    Columns("B:B").ColumnWidth = 12.86
    ActiveWorkbook.Save
End Sub

merci de m'éclairer sur la solution sachant que c'est une macro enregistrée.

 

[MOON_Coke]

Re : Erreur d'exécution '1004'

Bonjour Argaz01

Cela fait 3 semaines que j'ai commencer le VBA Mais essaye ça. Peut être 😉

Sheets("Feuil2").Select
Sheets("Feuil2").copy

 

[fhoest]

Re : Erreur d'exécution '1004'

Bonjour
le fait de mettre :

Sheets("Feuil1").Select
    Range("A:A,B:B,D:D,L:L,M:M,N:N,O:O,P:P,Q:Q").Select
    [COLOR="Red"]Range("Q1").Activate[/COLOR]
    Selection.Copy    Sheets("Feuil2").Select
    ActiveSheet.Paste

la selection est perdu car tu active la cellule Q1
donc plus de possibilité de selection.copy
met une ' devant cette ligne et essai
A+

 

[Robert]

Re : Erreur d'exécution '1004'

Bonjour Argaz, bonjour le forum,

tu as deux lignes sur une seule c'est cela qui provoque le bug...
Essaie comme ça :

Sub ExtrqctionColonnes()
'
' ExtrqctionColonnes Macro
' Macro enregistrée le 07/06/2010 par ait aouman
'
 
'
    Sheets("Feuil1").Select
    Range("A:A,B:B,D:D,L:L,M:M,N:N,O:O,P:P,Q:Q").Select
    Range("Q1").Activate
[COLOR=red]    Selection.Copy   [/COLOR]
[COLOR=red]    Sheets("Feuil2").Select[/COLOR]
    ActiveSheet.Paste
    Range("I6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Respect Regles Prudentielles"
    With ActiveCell.Characters(Start:=1, Length:=28).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 5
    End With
    Range("I7").Select
    Columns("A:A").ColumnWidth = 24.29
    Columns("B:B").ColumnWidth = 12.86
    ActiveWorkbook.Save
End Sub

Édition :

Bonjour Foest on s'est croisé. Petite rectification : le fait de dire Range("Q1").Activate ne perd pas du tout la sélection mais tout simplement, dans cette sélection, il définit la cellule Q1 comme la cellule active...

 

[argaz01]

Re : Erreur d'exécution '1004'

Merci les gars.

 

[fhoest]

Re : Erreur d'exécution '1004'

bonsoir,
merci pour l'info Robert,je pensé que le fait d'avoir activate sur une cellule annulé la selection
A+