Copier Coller

fileofish

XLDnaute Occasionnel
Bonjour tout le monde,

J'ai besoin d'un petit coup de pouce :)


Voilà pouvez svp m'aider :
J'ai 2 feuilles :
- Feuille 1 : fourniture
- Feuille 2 : commande

Je voudrais copier les cellules (B3:C8) de la feuille fourniture et que ces données soient coller dans la feuille commande (en copier coller special valeur) en colonne D: et la derniere ligne (en fait que les donnees soient copier à la suite des anciennes)

Merci beaucoup
 

Gorfael

XLDnaute Barbatruc
Re : Copier Coller

Salut fileofish et le forum
On n'est ni télépathe, ni devin, ni utilisateur de ton fichier, et suivant Murphy, la manière dont on interprète toute donnée implicite... est la mauvaise ! Ne nous laisse pas deviner le non-dit !

Suivant comment j’interprète, deux macros sont (déjà) possibles :
On colle la plage à partir de la dernière non vide en D
Code:
Sheets("fourniture").Range("B3:C8").Copy
Sheets("commande").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
Ou on colle toutes les cellules de la plage en D :
Code:
Dim Cel As Range
'........
For Each Cel In Sheets("fourniture").Range("B3:C8")
    Cel.Copy
    Sheets("commande").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
Next Cel
Mais il peut y avoir d'autres façons de traiter le problème.
Attention : ces codes n'ont pas été testés !!!
A+
 

Discussions similaires

Réponses
7
Affichages
470

Statistiques des forums

Discussions
312 504
Messages
2 089 073
Membres
104 019
dernier inscrit
pascal la