Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA erreur 1004 mais pourquoi ?

VBA erreur 1004 mais pourquoi ?

11 réponses
Avatar
Frasax
Bonjour à tous

J’ai créé un document salaire et je voudrais recopier des cellules dans la
feuille Récapitulatif. Mais voilà, je rencontre le problème suivant :
ActiveCell.Offset(1, 0).Range("A1").Select.
Je ne comprends pas cette erreur et, comment la modifier ?
La macro est très longue, je joints le document, si quelqu’un veut bien me
donner un coup de pouce.
Sub Transfert()
Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1
With Sheets("Récapitulatif")
Range("B17").Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Décompte mensuel").Select
Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Décompte mensuel").Select
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Décompte mensuel").Select
Range("D38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("G1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Décompte mensuel").Select
Range("D39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("H1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Décompte mensuel").Select
Range("D40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=6
Range("H43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=-6
Range("B17").Select
End With
End Sub
-----------
Merci d’avance.
Francis
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
Bonsoir,
La macro est très longue
C'est le moins que l'on puisse dire.

Mais tu as beaucoup de code inutile...
par exemple pour ne citer que celui là
Range("B17").Select
Selection.Copy
[b17].Copy


je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Il n'y a aucun document joint

????

--
Salutations
JJ

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

Bonjour à tous

J'ai créé un document salaire et je voudrais recopier des cellules dans la
feuille Récapitulatif. Mais voilà, je rencontre le problème suivant :
ActiveCell.Offset(1, 0).Range("A1").Select.
Je ne comprends pas cette erreur et, comment la modifier ?
La macro est très longue, je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Sub Transfert()
Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1
With Sheets("Récapitulatif")
Range("B17").Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("G1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("H1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=6
Range("H43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=-6
Range("B17").Select
End With
End Sub
-----------
Merci d'avance.
Francis



Avatar
Frasax
Bonsoir,
Je ne sais plus comment on doit procéder pour envoyer un document ?
Merci de renseigner.
Salutations
Francis

"Jacky" wrote:

Bonsoir,
La macro est très longue
C'est le moins que l'on puisse dire.

Mais tu as beaucoup de code inutile...
par exemple pour ne citer que celui là
Range("B17").Select
Selection.Copy
[b17].Copy


je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Il n'y a aucun document joint

????

--
Salutations
JJ

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

Bonjour à tous

J'ai créé un document salaire et je voudrais recopier des cellules dans la
feuille Récapitulatif. Mais voilà, je rencontre le problème suivant :
ActiveCell.Offset(1, 0).Range("A1").Select.
Je ne comprends pas cette erreur et, comment la modifier ?
La macro est très longue, je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Sub Transfert()
Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1
With Sheets("Récapitulatif")
Range("B17").Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("G1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("H1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=6
Range("H43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=-6
Range("B17").Select
End With
End Sub
-----------
Merci d'avance.
Francis








Avatar
Frasax
"Frasax" wrote:

Bonsoir,
Je ne sais plus comment on doit procéder pour envoyer un document ?
Merci de renseigner.
Salutations
Francis

"Jacky" wrote:

Bonsoir,
La macro est très longue
C'est le moins que l'on puisse dire.

Mais tu as beaucoup de code inutile...
par exemple pour ne citer que celui là
Range("B17").Select
Selection.Copy
[b17].Copy


je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Il n'y a aucun document joint

????

--
Salutations
JJ

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

Bonjour à tous

J'ai créé un document salaire et je voudrais recopier des cellules dans la
feuille Récapitulatif. Mais voilà, je rencontre le problème suivant :
ActiveCell.Offset(1, 0).Range("A1").Select.
Je ne comprends pas cette erreur et, comment la modifier ?
La macro est très longue, je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Sub Transfert()
Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1
With Sheets("Récapitulatif")
Range("B17").Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("G1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("H1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=6
Range("H43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=-6
Range("B17").Select
End With
End Sub
-----------
Merci d'avance.
Francis










Avatar
Garette
Bonsoir,

Peux tu essayer comme ça ?

Sub Transfert()
'Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1

With Sheets("Récapitulatif")

.Range("B17").Copy
.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("E24").Copy
.Range("C1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H33").Copy
.Range("F1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D38").Copy
.Range("G1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D39").Copy
.Range("H1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D40").Copy
.Range("I1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H43").Copy
.Range("J1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

End With

Application.CutCopyMode = False
End Sub
Avatar
Jacky
Ok!
http://cjoint.com

Utilisation de Cjoint

Un clique sur "Parcourir..."
Chercher le fichier (éventuellement Zipper 500ko max.)
Un clique sur "Créer le lien Cjoint"
Le lien est copié automatiquement
Et "coller" ce lien dans un message ici.

--
Salutations
JJ

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

Bonsoir,
Je ne sais plus comment on doit procéder pour envoyer un document ?
Merci de renseigner.
Salutations
Francis

"Jacky" wrote:

Bonsoir,
La macro est très longue
C'est le moins que l'on puisse dire.

Mais tu as beaucoup de code inutile...
par exemple pour ne citer que celui là
Range("B17").Select
Selection.Copy
[b17].Copy


je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Il n'y a aucun document joint

????

--
Salutations
JJ

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

Bonjour à tous

J'ai créé un document salaire et je voudrais recopier des cellules dans
la
feuille Récapitulatif. Mais voilà, je rencontre le problème suivant :
ActiveCell.Offset(1, 0).Range("A1").Select.
Je ne comprends pas cette erreur et, comment la modifier ?
La macro est très longue, je joints le document, si quelqu'un veut bien
me
donner un coup de pouce.
Sub Transfert()
Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1
With Sheets("Récapitulatif")
Range("B17").Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("G1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("H1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=6
Range("H43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=-6
Range("B17").Select
End With
End Sub
-----------
Merci d'avance.
Francis










Avatar
Frasax
Bonsoir,
Merci pour votre aide, mais le bogue est maintenant celui-ci :
.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues
Sinon je vous envoie le document, mais je ne sais plus comment procéder pour
se faire
Merci

"Garette" wrote:

Bonsoir,

Peux tu essayer comme ça ?

Sub Transfert()
'Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1

With Sheets("Récapitulatif")

.Range("B17").Copy
.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("E24").Copy
.Range("C1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H33").Copy
.Range("F1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D38").Copy
.Range("G1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D39").Copy
.Range("H1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D40").Copy
.Range("I1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H43").Copy
.Range("J1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

End With

Application.CutCopyMode = False
End Sub



Avatar
Frasax
Voilà, j'espère que c'est juste, sinon je recommence.
http://cjoint.com/?kst2RT8M0e

"Jacky" wrote:

Ok!
http://cjoint.com

Utilisation de Cjoint

Un clique sur "Parcourir..."
Chercher le fichier (éventuellement Zipper 500ko max.)
Un clique sur "Créer le lien Cjoint"
Le lien est copié automatiquement
Et "coller" ce lien dans un message ici.

--
Salutations
JJ

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

Bonsoir,
Je ne sais plus comment on doit procéder pour envoyer un document ?
Merci de renseigner.
Salutations
Francis

"Jacky" wrote:

Bonsoir,
La macro est très longue
C'est le moins que l'on puisse dire.

Mais tu as beaucoup de code inutile...
par exemple pour ne citer que celui là
Range("B17").Select
Selection.Copy
[b17].Copy


je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Il n'y a aucun document joint

????

--
Salutations
JJ

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

Bonjour à tous

J'ai créé un document salaire et je voudrais recopier des cellules dans
la
feuille Récapitulatif. Mais voilà, je rencontre le problème suivant :
ActiveCell.Offset(1, 0).Range("A1").Select.
Je ne comprends pas cette erreur et, comment la modifier ?
La macro est très longue, je joints le document, si quelqu'un veut bien
me
donner un coup de pouce.
Sub Transfert()
Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1
With Sheets("Récapitulatif")
Range("B17").Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("G1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("H1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=6
Range("H43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=-6
Range("B17").Select
End With
End Sub
-----------
Merci d'avance.
Francis















Avatar
Garette
Bonsoir,

C'est parce qu'il n'y a qu'une seule ligne pleine, la ligne d'en-tete.
essaye ça :

Mais c'est pas "top top", il faudrait donner des noms dans la feuille
decompte mensuel ça serait plus joli et plus facile à suivre ....


Sub Transfert2()

With Sheets("Récapitulatif")

Sheets("Décompte mensuel").Range("B17").Copy
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("E24").Copy
.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H33").Copy
.Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D38").Copy
.Range("G65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D39").Copy
.Range("H65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D40").Copy
.Range("I65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H43").Copy
.Range("J65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

End With

Application.CutCopyMode = False
End Sub
Avatar
Frasax
Bonsoir Garette,
ça fonctionne, je vais en rester là pour l'instant.
Merci beaucoup de votre aide.
Bonne nuit
Francis


"Garette" wrote:

Bonsoir,

C'est parce qu'il n'y a qu'une seule ligne pleine, la ligne d'en-tete.
essaye ça :

Mais c'est pas "top top", il faudrait donner des noms dans la feuille
decompte mensuel ça serait plus joli et plus facile à suivre ....


Sub Transfert2()

With Sheets("Récapitulatif")

Sheets("Décompte mensuel").Range("B17").Copy
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("E24").Copy
.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H33").Copy
.Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D38").Copy
.Range("G65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D39").Copy
.Range("H65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("D40").Copy
.Range("I65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets("Décompte mensuel").Range("H43").Copy
.Range("J65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

End With

Application.CutCopyMode = False
End Sub




Avatar
dario
bonjour
essayer de modifier la ligne

Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select


Remplir les 2 premieres lignes du document avec des x et les masquer enuite.


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

Bonjour à tous

J'ai créé un document salaire et je voudrais recopier des cellules dans la
feuille Récapitulatif. Mais voilà, je rencontre le problème suivant :
ActiveCell.Offset(1, 0).Range("A1").Select.
Je ne comprends pas cette erreur et, comment la modifier ?
La macro est très longue, je joints le document, si quelqu'un veut bien me
donner un coup de pouce.
Sub Transfert()
Application.ScreenUpdating = False
derlg = Sheets("Récapitulatif").Range("a65536").End(3).Row + 1
With Sheets("Récapitulatif")
Range("B17").Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D38").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("G1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("H1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
Range("D40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=6
Range("H43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif").Select
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:úlse
Sheets("Décompte mensuel").Select
ActiveWindow.SmallScroll Down:=-6
Range("B17").Select
End With
End Sub
-----------
Merci d'avance.
Francis



1 2