Discussion :

[yosra_jemai]

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

[abeilles26]

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 :

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

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.

[Guiiand]

Bonjour,

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

Code :

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

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

[yosra_jemai]

merciiiiii ça marche