Erreur d'execution 1004 Fermé

Question

Bonjour, 

Je me permets d'écrire afin d'obtenir un peu d'aide.
J'ai créé une macro mais rien à faire elle bloque:

Sub ALIMBASECLIENT()
'
' ALIMBASECLIENT Macro
'

'
    Range("A3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A3:R3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Base de données").Select
    Range("A65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll ToRight:=15
    ActiveWindow.ScrollColumn = 1
    Range("A360").Select
    Sheets("Saisie").Select
    Range("A3:C30,E3:F30,H3:I30,L3:L30,P3:X30").Select
    Range("P3").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll ToRight:=-12
    Sheets("Suivi de facturation").Select
    Range("C8").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub
 
Lorsque l'instruction arrive au niveau de:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
le message erreur d'execution 1004 pointe son nez.

Je ne sais plus quoi faire pour réparer cela.

Je vous remercie infiniment pour votre aide.

Bonne journée!

Marlene

kit24be · Answer

Bonjour,
 je ne suis pas un pro mais essayer le code ci dessous chez moi il fonctionne.


Sub ALIMBASECLIENT() 
' 
' ALIMBASECLIENT Macro 
' 
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:R3").Select
Range(Selection, Selection.End(xlDown)).Copy
Sheets("Base de données").Select
Range("A65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A360").Select
Sheets("Saisie").Select
Range("A3:C30,E3:F30,H3:I30,L3:L30,P3:X30").Select
Range("P3").Activate
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Suivi de facturation").Select
Range("C8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub

michel_m · Answer

Bonjour,

Pour ton blocage 1004 où j'arr^te le code, mais il me semble que tu vas avoir d'autres blocages: tu dis si ca arrive

Option Explicit'-----------------------------Sub ALIMBASECLIENT()Dim Source, Cible As RangeSource = ActiveSheet.Range("A3:R3") With Sheets("Base de données")        Set Cible = .Range("A65536").End(xlUp).Offset(1)        Cible.Resize(1, 18) = SourceEnd With'.........

Erreur d'execution 1004

2 réponses

Discussions similaires