transfert données tableaux vba

Bonjour,

J'ai un soucis, je suis débutante en VBA::roll:

J'ai un tableau B9:F40 ; chaque colonnes et chaque lignes contiennent des données. Grâce à une macro, j'aimerais transférer ces données vers un autre tableau se situant sur une autre feuille.
Ainsi quand je clique sur la macro, les données sont transférées mais ne les effacent pas.

Ensuite j'aimerais créer une macro, où lorsque je clique dessus, elle m'efface la totalité du contenu du tableau.

Pouvez-vous m'aider?


Cordialement

Bonjour,

L'enregistreur de macro est la meilleure option.

Pour supprimer le contenu des cellule:

Code:

---

1 2	Sheets("ma_feuille").select Range("B9:F40").ClearContents 'De la cellule B9 à F40

---

Pour supprimer les cellules elles-mêmes:

Code:

---

1 2	Sheets("ma_feuille").select Range("B9:F40").Delete 'De la cellule B9 à F40

---

Bonjour.

Pour copier

Code:

---

ThisWorkbook.Worksheets("FeuilColler").Range("B9:F40").value = ThisWorkbook.Worksheets("FeuilCopier").Range("B9:F40").Value

---

Pour effacer

Code:

---

ThisWorkbook.Worksheets("FeuilCopier").Range("B9:F40").ClearContents

---

Cordialement,

PGZ

Merci vous deux!!

PGZ : ton code pour copier d'une feuille à une autre, ne fonctionne pas vraiment, il m'a supprimer tout mon tableau >.<' mais la base est bonne je pense!

Loui : Merci aussi pour ton code!!

Mais je n'arrive toujours pas à copier
Feuil2 de B9:F40 vers
Feuil3 de B10:F41

Bonjour.

Pour copier

Code:

---

ThisWorkbook.Worksheets("Feuil3").Range("B10:F41").value = ThisWorkbook.Worksheets("Feuil2").Range("B9:F40").Value

---

Pour effacer

Code:

---

ThisWorkbook.Worksheets("Feuil2").Range("B9:F40").ClearContents

---

Cordialement,

PGZ

Re,

Desole, je n'avais pas donné l'ensemble du code. N'y vu le dernier post de pgz :lol: ... Ne pas oubliez l'enregistreur de macro...

Code:

---

1 2 3 4 5 6 7

Sheets("Feuil2").select 'Selection de la feuille 2 Range("B9:F40").select 'Selection des donnees selection.copy 'Copie des donnees Sheets("Feuil3").select 'Selection de la feuille 3 Range("B10").select 'Selection de la cellule B10 selection.PasteSpecial 'Colle les donnees Sheets("Feuil2").range("B9:F40").clearcontents 'Suppression des donnees précédemment copiée

---

Cordialement.

Ok je vous remerci beaucoup pour votre aide!! ;)

Peut-être à bientôt!!

Mercii