Discussion :

[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)

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 trouve le table (sous excel) vierge.

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

Code :

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

1
2
3
4
5
6
7
8
9
 
    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

[rjamin]

Bonjour,

Essayez

Code :

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

Range("A2:A" & Nb).Delete

[pikamo]

merci rjamin , elle marche bien

question : dans cette cas ,mon table contient un seul colonne
dans le cas où il a deux colonnes comment devient le code?

[rjamin]

Bonjour,
Si colonne A et B

Code :

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

Range("A2:B" & Nb).Delete

Si A et D

Code :

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

Range("A2:A" & Nb").Delete : Range("D2:D" & Nb).Delete

[pikamo]

merci rjamin

question :

Code :

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

Range("A2:B" & Nb).Delete

si le cas est de effacer 11 colonnes de A2 jusqu’à K2
comment devient le code?

[helas]

Bonjour,
pour se servir de nombre

Code :

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

1
2
 
range(cells(3,4),cells(6,7)).delete

syntaxe : Cells(ligne, colonne)