Copier/Coller d'une cellule

Résolu/Fermé
titouf - 30 oct. 2015 à 15:04
 titouf - 30 oct. 2015 à 15:36
Bonjour,

Je souhaite copier une cellule d'un classeur dans un autre classeur. Pour une raison qui m'est inconnue, la valeur dans la cellule à copier est écrite sur 4 colonnes. Je voudrais toutefois faire mon collage dans une seule colonne. Actuellement, avec le code ci-dessous, le collage garde le format de cellule initial. Comment coller sous une seule colonne ?
Voici le code :
wbk.Activate
Range("U338").Select 
Application.CutCopyMode = False
Selection.Copy
Windows(classeur).Activate
Range("D4").Select
ActiveSheet.Paste


J'imagine que c'est dans les options mais je ne m'y connais pas trop...
Merci d'avance,
titouf


2 réponses

diablo13800
Messages postés
2791
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
17 mai 2022
1 775
30 oct. 2015 à 15:10
Bonjour,

Essaie avec ce code, il faut juste Inserer l'option de retour a la ligne automatique normalement:)

wbk.Activate
Range("U338").Select
Application.CutCopyMode = False
Selection.Copy
Windows(classeur).Activate
Range("D4").Select
ActiveSheet.Paste
Selection.WrapText=True
0
Bonjour diablo,

Merci pour ta réponse. Cependant ça ne marche pas, le collage se fait toujours sur les 4 colonnes entre D et G ^^
0
J'ai "trouvé" une méthode pour le faire sans copier de cellule...
Il suffit de prendre la valeur de la cellule et non la copier, puis d'affecter cette valeur à la cellule destinataire :)

wbk.Activate
valeur_copiee = Range("U338").Value
Windows(classeur_pvc).Activate
Range("D4").Value = valeur_copiee
0