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)
Plus sérieusement fileofish, depuis le temps, tu dois avoir lu qu'un petit fichier exemple, sans données confidentielles avec une représentation des résultats attendus est -presque chaque fois- demandée.
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
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+