Discussion :

[fny_bnfnt]

Bonjour,

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

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

[LouiMz]

Bonjour,

L'enregistreur de macro est la meilleure option.

Pour supprimer le contenu des cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour supprimer les cellules elles-mêmes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

Pour copier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour effacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

PGZ

[fny_bnfnt]

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

[LouiMz]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fny_bnfnt]

Ok je vous remerci beaucoup pour votre aide!!

Peut-être à bientôt!!

Mercii

[pgz]

Bonjour.

Pour copier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour effacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

PGZ