Copier/coller plusieurs lignes sur une autre feuille
Bonjour
J'ai une macro qui permet de coller des données d'une feuille à une autre à l'aide d'un bouton de commande.
Cependant elle colle également la mise en forme se que je ne veux pas.
Ci dessous le code
Merci de votre aide
Sub copierligne()
Sheets("Listing Consommables Polissage").Activate
Range("A2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value Like "OUI" Then
ligne = ActiveCell.Row
Range(Cells(ligne, 2), Cells(ligne, 1000)).Copy
Sheets("Commandes Polissage").Activate
Range("C1").Select
If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Listing Consommables Polissage").Select
ActiveCell.Offset(1, 0).Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Listing Consommables Polissage").Select
ActiveCell.Offset(1, 0).Select
End If
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Bonjour,
Voila le code pour coller du texte sans mise en forme :
Selection.PasteAndFormat(wdPasteDefault)
Cordialement
Bonjour
Merci pour votre réponse mais ou je dois le placer ?
Merci pour votre retour
Vous remplacez les :
ActiveSheet.Paste
par :
Selection.PasteAndFormat(wdPasteDefault)
Cordialement,
Si je mets ce code à la place du premier ActiveSheet.Paste ça passe mais si je remplace aussi celui qu'il y a en dessous de Else j'ai un message d'erreur.
Sub copierligne()
Sheets("Listing Consommables Polissage").Activate
Range("A2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value Like "OUI" Then
ligne = ActiveCell.Row
Range(Cells(ligne, 2), Cells(ligne, 1000)).Copy
Sheets("Commandes Polissage").Activate
Range("C1").Select
If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Select
Selection.PasteAndFormat (wdPasteDefault)
Sheets("Listing Consommables Polissage").Select
ActiveCell.Offset(1, 0).Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste => Message d'erreur si je remplace par Selection.PasteAndFormat (wdPasteDefault)
Sheets("Listing Consommables Polissage").Select
ActiveCell.Offset(1, 0).Select
End If
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Salutations