Bonjour, Merci Dario pour l'aide, mais dans la configuration de ma feuille, les cellules ne se mettent pas à la bonne place. Voir le fichier que j'ai envoyé. Bonne journée et meilleures salutations. Francis
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
Bonjour,
Merci Dario pour l'aide, mais dans la configuration de ma feuille, les
cellules ne se mettent pas à la bonne place. Voir le fichier que j'ai envoyé.
Bonne journée et meilleures salutations.
Francis
Bonjour, Merci Dario pour l'aide, mais dans la configuration de ma feuille, les cellules ne se mettent pas à la bonne place. Voir le fichier que j'ai envoyé. Bonne journée et meilleures salutations. Francis
