Code vba pour la suppression des lignes d'un tableau excel

Bonsoir le forum
Voila j'ai un petit soucie je cherche a supprimé toutes les lignes dans mes tableaux ( tableau1 du feuille « entree_fourniture_bureau » pour les colonnes A ----> G et tableau 2 du « sortie_fourniture_bureau » » pour les colonnes A---->F) en un seul click.
Et merci
http://cjoint.com/?0DprOQ3mQJl

Salut

Je ne sais pas si ça peut répondre à ta question mais tu peux essayer le code suivant et lui assigner un raccourci clavier par exemple (ou l'assigner à un bouton)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub xxx ()   feil1.activate Feuil1.Range("A2:G2").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents   Feuil4.Activate Feuil4.Range("A2:F2").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents   end sub

---

Par contre, si je peux me permettre, je te conseillerais d'éviter un maximum les formules dans les cellules et de les faire directement en vba au moment où les informations sont entrées via tes différents formulaires
J'ai une sorte de programme dans le même genre avec plus de 40 utilisateurs et tu peux me croire que au moins tu mets d'informations que les gens risquent de corrompre, au mieux toi et ton programme vous porterez.

Bonjour,

Voici une macro sans activate ni select, qui sont à proscrire dans les codes car source de lenteur et d'erreur.

Code:

---

1 2 3 4 5 6 7

Sub SupTableau()   Sheets("entree_fourniture_bureau").Range("A1:G" & Range("A" & Rows.Count).End(xlUp)).ClearContents   Sheets("sortie_fourniture_bureau").Range("A1:F" & Range("A" & Rows.Count).End(xlUp)).ClearContents   End Sub

---

merciiiiii ça marche