[XL-2007] Bouton pour copier des cellules d'une feuille à une autre

[Samizarrad]

Bonjour à tous,

Je voudrais savoir si il est possible avec un bouton, de copier les valeurs calculées d'un ensemble de cellules sur la dernière ligne occupé dans une autre feuille du même classeur.

Je m'explique,

Je voudrais (avec un bouton) selectionner l'ensemble des cellules d'un tableau A5 à D15 les copier et les coller dans un autre tableau d'une autre feuille, ensuite je voudrais copier encore les cellules A5 à D15 (qui sont les cellules de référence) et les copier en dessous des dernières cellules utilisées.

Merci d'avance

[babaothe]

Bonjour,

Je pense que tu ne rencontres pas de difficultés à déterminer la dernière cellule utilisée (dans le cas contraire, ce ne sobnt pas les exemples qui manquent sur ce forum : au moins un par jour).
Pour le reste, c'est selon :
- si seules les valeurs t'intéressent, tu peux passer par un tableau (rapide), genre :

Code :

1
2
tablo = Sheets(1).Range("B3:D8").Value
Sheets(2).Range("D4:F9").Value = tablo

- tu peux également utiliser la méthode Copy (assortie d'un exemple dans l'aide VBA).

[Samizarrad]

Merci pour votre réponse,
j'ai bien essayé votre code ça marche mais j'aimerai copier les cellules autant de fois que je veux dans le même tableau de la feuille2.
En effet la feuille1 est une feuille de calcul de prix d'un article et je veux stocker dans la feuille2 le resultat de plusieurs articles pour faire à la fin un devis comportant plusieur articles déja calculés.
Merci.

[laetitia]

bonjour Samizarrad babaothe le forum comme je comprends copy a la suite un exemple simple

Code :

1
2
3
4
5
Sub es()
      Dim t As Variant
       t = Sheets(1).[a5:d15]
      Sheets(2).Range("a" & Rows.Count).End(xlUp)(2).Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub