bouton "effacer" tous les champs d'un table

bouton "effacer" tous les champs d'un table - VB/VBA/VBS - Programmation

Marsh Posté le 16-06-2011 à 20:46:36    

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
Reply

Marsh Posté le 16-06-2011 à 20:46:36   

Reply

Marsh Posté le 16-06-2011 à 22:23:00    

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]

Reply

Marsh Posté le 17-06-2011 à 19:04:51    

salut
merci tarteflambee  
 tout "les cellues "

Reply

Marsh Posté le 18-06-2011 à 08:06:56    

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.

Reply

Marsh Posté le 18-06-2011 à 08:23:13    

j'ai commencer a faire ca

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


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

Reply

Marsh Posté le 18-06-2011 à 13:05:40    

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

Code :
  1. Private Sub CommandButton1_Click()
  2. 'nombre de colonne de A
  3. Nb = Range("A1048576" ).End(xlUp).Row
  4. For i = 2 To Nb
  5. 'delete et décaler vres le haut
  6. Feuil2.Range("A" & i).Delete xlUp
  7. Next i
  8. End Sub

Reply

Marsh Posté le 19-06-2011 à 08:56:11    

Bonjour,
 
 
feuil2.Cells.Select
    Selection.ClearContents
 
Cordialement
 

Reply

Marsh Posté le 19-06-2011 à 09:31:55    

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

Reply

Marsh Posté le 19-06-2011 à 13:00:39    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed