suppression de A à G

WILFRIED

XLDnaute Impliqué

• 24 Février 2005

• #2

Salut Petchy

voici du code que j'utilise pour surprimer mes lignes:

range('a2:G2').select
selection.delete shift:=xlup

cela remonte ton tableau qur les colonne A à G.

A+

 

Vote positif 0 Vote négatif

P

petchy

XLDnaute Occasionnel

• 24 Février 2005

• #3

bonjour WILFRIED

merci pour ta réponse ,mais mon probleme sait que je choisi un article dans la listbox et c'est à partir de la que je peut le supprimer,donc l'article peut se trouver sur la ligne 4 5,6,7,8,9 10 ou 20,etc.....
merci

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 25 Février 2005

• #4

Salut Petchy, dans se cas :

sub suppression()
dim m_cellule as range

range('A65536').select
range('A2',activecell.end(xlup)).select

for each m_cellule in selection
if m_cellule.value=usf1.listbox1.value then
m_cellule.rows.entirerow.delete
end if
next
end sub

voila.

Attention, il risque d'avoir un pb avec ta listbox en fonction de la méthode que tu as emploier pour la remplir.

A+

 

Vote positif 0 Vote négatif

P

petchy

XLDnaute Occasionnel

• 25 Février 2005

• #5

salut WILFRIED

merci pour ta réponse ,j'ai essayé on code,mais il ne supprime rien,pourtant j'ai modifié l'usf,la listbox mais rien.
merci

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Février 2005

• #6

Bonjour à vous deux

Petchy, j'ai supposé que NomLBindex était le numéro de la ligne, alors :

range(cells(nomlbindex,1),cells(nomlbindex,7)).clearcontents

Par contre vérifie comment tu remplis la listbox, préfère additem à rowsource.

Salut
Hervé

 

Vote positif 0 Vote négatif