Copier coller avec sélection

stephane.quinquis

XLDnaute Junior
Bonjour le forum,

Encore un problème à résoudre. J'ai deux feuilles : inventaire production et mise en carton.

Une personne lambda souhaite transférer des données de l'inventaire production vers la mise en carton.
Pour cela, elle sélectionne une ligne entière puis elle appuie sur le bouton macro.
Il n'y a pas de problème si je souhaite coller en colonne A dans mise en carton. Par contre, si je souhaite coller sur la colonne C comme dans mon exemple, il ya des problèmes de format de cellule.

Y a-t-il moyen de contourner cela??
Merci d'avance

Inventaire production exemple
Cijoint.fr - Service gratuit de dépôt de fichiers

Code macro:
Code:
Sub allerversmiseencarton()
'
' allerversmiseencarton Macro
' Macro enregistrée le 11/06/2010 par quinquis
'
ActiveSheet.Unprotect "293"
Sheets("Mise en carton").Unprotect "293"
With Selection
    .Copy Destination:=Feuil2.Range("C65536").End(xlUp).Offset(1, 0)
    .Delete
End With
Range("G7:G200").Select
Selection.Locked = False
ActiveSheet.Protect "293"
Sheets("Mise en carton").Protect "293"
End Sub
 

Discussions similaires

Réponses
8
Affichages
1 K

Statistiques des forums

Discussions
312 400
Messages
2 088 085
Membres
103 710
dernier inscrit
amin Saadaoui