Bonjour à tous
J'ai une macro qui ne fonctionne pas et je ne sais pas où est mon erreur.
Je veux copier d'une feuille la ligne 100 (A:Q) dans une autre feuille. Où
est l'erreur c'est que la macro la colle à partir de la colonne "A" au lieu
de la colonne "C".
Voici ma commande
Sheets("Régistre général").Select
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 229).FillDown
On Error Resume Next
Sheets("Déduction").Select
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 130).FillDown
Sheets("Info employé").Select
Range("C100:S100").Select
Selection.Copy
Sheets("Régistre général").Select
Range("A" & Range("A65536").End(xlUp).Row).Resize(0, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Pourquoi ça ne fonctionne pas ??
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
Daniel
Bonsoir. A lire comme ça, je mettrai Offset au lileu de Resize. Cordialement. Daniel "Richard Fortin" a écrit dans le message de news:
Bonjour à tous J'ai une macro qui ne fonctionne pas et je ne sais pas où est mon erreur. Je veux copier d'une feuille la ligne 100 (A:Q) dans une autre feuille. Où est l'erreur c'est que la macro la colle à partir de la colonne "A" au lieu de la colonne "C". Voici ma commande Sheets("Régistre général").Select Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 229).FillDown On Error Resume Next Sheets("Déduction").Select Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 130).FillDown Sheets("Info employé").Select Range("C100:S100").Select Selection.Copy Sheets("Régistre général").Select Range("A" & Range("A65536").End(xlUp).Row).Resize(0, 3).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Pourquoi ça ne fonctionne pas ??
Quelqu'un peut-il m'aider
Merci
rf
Bonsoir.
A lire comme ça, je mettrai Offset au lileu de Resize.
Cordialement.
Daniel
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le
message de news: 16D45C4A-01F5-482E-AC94-06F467285A13@microsoft.com...
Bonjour à tous
J'ai une macro qui ne fonctionne pas et je ne sais pas où est mon erreur.
Je veux copier d'une feuille la ligne 100 (A:Q) dans une autre feuille. Où
est l'erreur c'est que la macro la colle à partir de la colonne "A" au
lieu
de la colonne "C".
Voici ma commande
Sheets("Régistre général").Select
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 229).FillDown
On Error Resume Next
Sheets("Déduction").Select
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 130).FillDown
Sheets("Info employé").Select
Range("C100:S100").Select
Selection.Copy
Sheets("Régistre général").Select
Range("A" & Range("A65536").End(xlUp).Row).Resize(0, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Pourquoi ça ne fonctionne pas ??
Bonsoir. A lire comme ça, je mettrai Offset au lileu de Resize. Cordialement. Daniel "Richard Fortin" a écrit dans le message de news:
Bonjour à tous J'ai une macro qui ne fonctionne pas et je ne sais pas où est mon erreur. Je veux copier d'une feuille la ligne 100 (A:Q) dans une autre feuille. Où est l'erreur c'est que la macro la colle à partir de la colonne "A" au lieu de la colonne "C". Voici ma commande Sheets("Régistre général").Select Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 229).FillDown On Error Resume Next Sheets("Déduction").Select Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 130).FillDown Sheets("Info employé").Select Range("C100:S100").Select Selection.Copy Sheets("Régistre général").Select Range("A" & Range("A65536").End(xlUp).Row).Resize(0, 3).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Pourquoi ça ne fonctionne pas ??
