VBA copier / insérer une colonne Excel 2010
Résolu
Tobar4
Messages postés
261
Date d'inscription
Statut
Membre
Dernière intervention
-
Tobar4 Messages postés 261 Date d'inscription Statut Membre Dernière intervention -
Tobar4 Messages postés 261 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille actuellement sur une macro sous Excel 2010, et je souhaiterai copier la colonne A de mon onglet "SI du jour", et l'insérer en colonne A de mon onglet "SI de la veille"
Voici mon code :
Sheets("SI du jour").Select
Columns("A:A").Select
Selection.Copy
Sheets("SI de la veille").Select
Columns("A:A").Select ===> cette ligne me renvoie systématiquement l'erreur 1004 "La méthode select de la classe Range a échoué"
Selection.Insert Shift:=xlToRight
End Sub
Avez-vous une piste ? J'ai essayé de faire une insertion classique puis un copier coller mais j'ai le même problème. J'ai également le même problème en ne sélectionnant qu'une cellule Range("A3") et en faisant .Activate et .select aucun ne marche...
Merci par avance,
T.
Je travaille actuellement sur une macro sous Excel 2010, et je souhaiterai copier la colonne A de mon onglet "SI du jour", et l'insérer en colonne A de mon onglet "SI de la veille"
Voici mon code :
Sheets("SI du jour").Select
Columns("A:A").Select
Selection.Copy
Sheets("SI de la veille").Select
Columns("A:A").Select ===> cette ligne me renvoie systématiquement l'erreur 1004 "La méthode select de la classe Range a échoué"
Selection.Insert Shift:=xlToRight
End Sub
Avez-vous une piste ? J'ai essayé de faire une insertion classique puis un copier coller mais j'ai le même problème. J'ai également le même problème en ne sélectionnant qu'une cellule Range("A3") et en faisant .Activate et .select aucun ne marche...
Merci par avance,
T.
A voir également:
- Insérer une colonne vba
- Déplacer une colonne excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Trier une colonne excel - Guide
- Insérer signature word - Guide
- Colonne word - Guide
J'ai opté pour Worksheets("SI de la veille").Range("A:A").Insert Shift:=xlToRight