Erreur d'execution 1004

Marlene629 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 20 janv. 2016 à 10:02

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

A voir également:

Erreur d'execution 1004
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
J'aime par erreur facebook notification - Forum Facebook
Java code erreur 1603 ✓ - Forum Windows
Code erreur f3500-31 ✓ - Forum Bbox Bouygues

2 réponses

Réponse 1 / 2

kit24be Messages postés 46 Date d'inscription Statut Membre Dernière intervention 1

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

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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 Range

Source = ActiveSheet.Range("A3:R3")
 With Sheets("Base de données")
        Set Cible = .Range("A65536").End(xlUp).Offset(1)
        Cible.Resize(1, 18) = Source
End With
'.........

Discussions similaires

Erreur 3005 sur France TV

Code erreur 3000

Problème streaming France 2

Panne T32 sur telecommande Orange

impossible lire vidéos france 2

Votre réponse

Discussions similaires