Macro pour copier coller en gardant la mise en forme

Résolu/Fermé

Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013 - 23 juil. 2013 à 16:37
pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 - 24 juil. 2013 à 11:58

Bonjour je souhaiterai copier une ligne de B1 à BL1 se situant sur une feuille base, puis la coller dans une autre feuille et cela grâce à une macro.

J'ai testé cela:

Const nomFO = "Feuil1" ' nom de la feuille Origine
Const nomFD = "Feuil2" ' nom de la feuille Destination
Const CellD = "C3" ' cellule Destination

Sub copier()
Dim lifin As Long
lifin = Range("B" & Rows.Count).End(xlUp).Row
Sheets(nomFO).Range("B1:BL" & lifin).Copy Sheets(nomFD).Range(CellD)
End Sub

mais cela me copie aussi des lignes situé en dessous alors qu'elles sont vides et me supprime donc le contenu que j'avais en dessous.
Aidez moi !

A voir également:

Coller en respectant la mise en forme de destination excel
Mise en forme conditionnelle excel - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Excel mise en forme conditionnelle autre cellule ✓ - Forum Excel
Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel

6 réponses

Réponse 1 / 6

pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 711
23 juil. 2013 à 16:44

Bonjour,

Tu utilises une variable lifin qui te stocke le numéro de la dernière ligne utilisée de ta feuille Feuil1.
tu n'en as pas besoin car tu souhaites ne copier qu'une ligne.
Donc essaie ceci :

Const nomFO = "Feuil1" ' nom de la feuille Origine
Const nomFD = "Feuil2" ' nom de la feuille Destination
Const CellD = "C3" ' cellule Destination

Sub copier()
Sheets(nomFO).Range("B1:BL1").Copy Sheets(nomFD).Range(CellD)
End Sub

Réponse 2 / 6

Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
23 juil. 2013 à 18:05

Merci pijaku j'ai enlever ma variable lifin cependant maintenant j'ai ceci:

erreur d'exécution '1004'
erreur définie par l'application ou par l'objet

Je ne sais pas à quoi cela est du.

Si quelqu'un pourrait m'éclairer.

pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 711
24 juil. 2013 à 07:38

Ca peut être du à pas mal de choses...
- tu n'as pas de feuille Feuil1
- tu n'as pas de feuille Feuil2
- L'une des feuilles est protégée, masquée...
- etc...

Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
24 juil. 2013 à 10:18

J'ai bien une feuille 1 et une feuille 2 .
Comment voir si une de mes feuilles est protégée ou masquée ? ( mais je ne pense pas que se soit le cas )

pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 711
24 juil. 2013 à 10:30

oui, tu as une feuile1 et une feuille2, mais elle ne s'appellerait pas "base" par exemple?
Là il nous faudrait un accès à ton classeur.

Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
24 juil. 2013 à 10:38

Excuse moi pijaku mais je débute juste sur le forum commentçamarche pourrait tu m'indiquer comment joindre mon fichier dans un message.

Merci.

pijaku Messages postés 12261 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 711
24 juil. 2013 à 11:08

bien sur.
Pour cela, il faut utiliser le site https://www.cjoint.com/index.php
Tu y va, crée un lien vers ton fichier et reviens ici coller le lien dans une réponse.

Discussions similaires

Collage en respectant la mise en forme de destination

Paramètre de collage par défaut

Message d'erreur

Couche de destination masquée

Erreur des dossiers compressés

Colis en cours d'acheminement ???

Discussions similaires

Newsletters