Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
507
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…