La macro est très longue
C'est le moins que l'on puisse dire.
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
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
La macro est très longue
C'est le moins que l'on puisse dire.
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
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
La macro est très longue
C'est le moins que l'on puisse dire.
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
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
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].Copyje 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
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" <Frasax@discussions.microsoft.com> a écrit dans le message de news:
5EC5A03B-D817-444E-9477-CA6093B5755A@microsoft.com...
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
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].Copyje 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
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].Copyje 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
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" <Frasax@discussions.microsoft.com> a écrit dans le message de news:
5EC5A03B-D817-444E-9477-CA6093B5755A@microsoft.com...
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
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].Copyje 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
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].Copyje 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
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" <Frasax@discussions.microsoft.com> a écrit dans le message de
news:
5EC5A03B-D817-444E-9477-CA6093B5755A@microsoft.com...
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
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].Copyje 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
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
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
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
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].Copyje 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
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" <Frasax@discussions.microsoft.com> a écrit dans le message de news:
F08BF163-70B9-4706-803C-C55BE5A4E055@microsoft.com...
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" <Frasax@discussions.microsoft.com> a écrit dans le message de
news:
5EC5A03B-D817-444E-9477-CA6093B5755A@microsoft.com...
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
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].Copyje 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
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
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
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
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
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
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
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
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
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