Macro pour copier coller en gardant la mise en forme
Résolu
Tonioo44140
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
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 !
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:
- Copier-coller en gardant la mise en forme excel
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Historique copier coller - Guide
- Liste déroulante excel - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
6 réponses
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 :
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
