Suppression lignes d'un tableau Vba

[Calvus]

Bonjour le Forum,

Je ne parviens pas à supprimer les lignes d'un tableau.

L'enregistreur de macro fait ça ligne par ligne. (Module 2)

N'y a t'il pas un moyen plus simple ?

Mon code en module 1 supprime toute la colonne, ce qui ne va évidemment pas.

Merci d'avance.

 

[pierrejean]

Re : Suppression lignes d'un tableau Vba

bonjour calvus

A tester:

Range("Tableau1").ClearContents

ou

Range("Tableau1").Clear

 

[Roland_M]

Re : Suppression lignes d'un tableau Vba

bonjour,

au vu de ton code voir,

Selection.Rows.Delete


EDIT: salut pierrejean !

 

[gosselien]

Re : Suppression lignes d'un tableau Vba

Bonjour à tous,

et si tu disais sur base de quel critère tu veux effacer/supprimer (c'est <>) les lignes ?

P.

 

[Calvus]

Re : Suppression lignes d'un tableau Vba

Re,

Merci de vos réponses et content de vous voir .

@Pierrejean : c'est bon mais ça ne supprime pas le tableau. Il ne faudrait garder que la 1ère ligne du tableau (donc 2 au total avec le titre), comme avec l'enregistreur.

@Roland : cela supprime la colonne, comme avec mon code....

@Gosselien : même réponse que celle faite à Pierrejean. Donc les lignes sur 3 colonnes.

Merci

 

[pierrejean]

Re : Suppression lignes d'un tableau Vba

Re

Dans ce cas:

Range("Tableau1").Clear
ActiveSheet.ListObjects("Tableau1").Resize Range("$B$5:$D$6")

 

[DoubleZero]

Re : Suppression lignes d'un tableau Vba

Bonjour à toutes et à tous,

Petit pisson, peux-tu tenter :

Option Explicit
Sub Supprimer()
    Range("b6", Range("b6").End(xlDown)).Resize(, 3).Delete Shift:=xlUp
End Sub

Bises à pierrejean

A bientôt

 

[Calvus]

Re : Suppression lignes d'un tableau Vba

Re,

Merci Pierrejean. Impec !

Merci 00 ! Impec aussi !
Je ne pensais pas qu'une mangeuse de son pouvait être aussi efficace !

Merci à vous. Je reviens tout à l'heure avec un autre casse tête !

 

[DoubleZero]

Re : Suppression lignes d'un tableau Vba

Re-bonjour,

... Je reviens tout à l'heure avec un autre casse tête !

Joindras-tu le Dlicrâne ?

A bientôt