Sujet Précédent Sujet Suivant

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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 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:

6 réponses

Réponse 1 / 6
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
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
0

Discussions similaires

Collage en respectant la mise en forme de destination
Iama -
eriiic -

11 réponses
Paramètre de collage par défaut
Nak -
Nak -

5 réponses
Message d'erreur
Philou73CH -
Philou73CH -

2 réponses
Couche de destination masquée
Sofire. -
Plumedelle -

4 réponses
Erreur des dossiers compressés
Lutty-Chan -
gbinforme -

1 réponse
Colis en cours d'acheminement ???
awweb -
Mina -

7 réponses