suppression de colonnes et feuilles sur excel avec VBA

Bonjour,

Je suis débutant en VBA et j'essaie de faire une macro un peu compliqué sur excel.

J'ai en fait un fichier Excel avec plusieurs feuilles.

Une partie du fichier en question doit être envoyé à quelqu'un afin de rendre compte du travail fait, donc c'est la même opération qui se refait chaque semaine.

Il faut supprimer toutes les feuilles Excel à part la première, et supprimer plusieurs colonnes de la première feuille. Le problèmes est que en supprimant tous cela, les formules dans les colonnes restantes ne sont plus bonne, car il y'a des formules utilisant des cellules supprimés.

J'ai essayé de cacher les colonnes et cellules, mais la personne qui recevra le fichier peut facilement re afficher ces colonnes.

Voyez vous une solution à ce problème.

Merci à vous.

Bonsoir,,
si tu n'envoies qu'une copie élaguée, avant de supprimer tes colonnes, prévois quelque chose du genre,

Code:

---

Range("A2") = Range("A2").Value'A2 contenait une formule qu'on remplace par la valeur

---

J'ai utilisé cela, mais avec les colonnes plutôt, vu que le tableau est très grand ( je garde 18 colonnes d'une centaine de lignes)

Mais cela prend beaucoup de temps à enregistrer les valeurs de toutes les cellules.

Code:

---

Range("A:A") = Range("A:A").Value

---

Il n'y a qu'une feuille à remplacer par les valeurs, si oui, essayes

Code:

---

1 2 3 4 5

...With Sheets("Feuil1") 'à remplacer par nom de feuille .UsedRange = .UsedRange.Value End With   ...

---

c'est exactement ça, Merci pour ton aide :)