bouton "effacer" tous les champs d'un table

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : bouton "effacer" tous les champs d'un table

pikamo

salut

dans une feuil excel , j'ai crée deux boutons.
1ére bouton " consulter "pour importer un table à partir d'une base de données acces ( ce code marche bien )

j'aime bien avec l'autre bouton (le 2eme) " effacer" tous les champs de table sur excel ( et non pas sur acces)

merci d'avance

Message édité par pikamo le 05-07-2011 à 11:42:51

Publicité

tarteflambee

Bonjour,

est-ce que tu peux expliquer + ton problème ? :??:
Parce que là je ne comprend pas vraiment, si tu veut juste effacer une cellule dans excel Cells(ligne, colonne).ClearContents :??: [:transparency]

pikamo

salut
merci tarteflambee
tout "les cellues "

pikamo

salut,
voila en gros, j'ai des données dans un table BD acces , avec un bouton , j'ai consulte ce table sur une feuil excel , et ce que je cherche de faire c'est avec un autre bouton j'efface le contenu de table sous excel pour qaunt je ouvre cette feuil après je la trouve vierge.

pikamo

j'ai commencer a faire ca

Code :

Private Sub CommandButton1_Click()
For i = 2 To 4
Feuil2.Range("A" & i).ClearContents
Next i
End Sub

mes données se trouvent seulement dans le cellule A ( A2 , A3,A4,.....jusqu a la fin de tableau sans taille fixe)

pikamo

salut

j'ai programmer ca , ca marche mais il ne supprime pas tout les ligne de colonne A

Code :

Private Sub CommandButton1_Click()
'nombre de colonne de A
Nb = Range("A1048576" ).End(xlUp).Row
For i = 2 To Nb
'delete et décaler vres le haut
Feuil2.Range("A" & i).Delete xlUp
Next i
End Sub

seniorpapou

Bonjour,

feuil2.Cells.Select
Selection.ClearContents

Cordialement

pikamo

salut
merci seniorpapou

mais mon but est pas effacer tout les cell de la feuil.
en réalité , dans cette feuil, j'ai un table de deux colonnes , avec un bouton j'aime bien effacer les données de colonnes mais les noms de colonnes aussi
avec ton code j'ai efface tous !
exemple :
colonne nom : l'user saisie des noms après en cliquant sur ce bouton jsute les noms s'effacent et le nom de colonne reste

seniorpapou

J'ai peut-être compris ce que tu souhaites:

Feuil2.Range("A2:A1048576" ).Select

Selection.ClearContents

ou encore:

Range("a2" ).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

Message édité par seniorpapou le 19-06-2011 à 18:04:16

FORUM HardWare.fr

Programmation

VB/VBA/VBS

bouton "effacer" tous les champs d'un table

Sujets relatifs
VBA : Erreur de syntaxe dans un champs Word	Bouton submit pour envoi de mail
[Excel+VBA] autofilter avec "format as table"	gerer des calques flash avec un seul bouton en as
[JS]Champs ne devant contenir que des chiffres.	Formulaire PHP avec test champs vides
Formulaire vers une même page sans bouton "Submit"	bouton play, pause, java, html
Sélectionnés tous ceux qui ne sont pas dans la table	[MySQL] Copier une table distante
Plus de sujets relatifs à : bouton "effacer" tous les champs d'un table

Page générée en 0.040 secondes