suppression de A à G

[petchy]

bonjour le forum

avec se code ci-dessous je supprime une ligne,mais le probleme c'est qui supprime la ligne complete.
Est ce possible qui me supprime la ligne mais de A à G car sur la meme ligne de P à V j'ai des autres données et j'ai besoin de les gardées

Private Sub CommandButton8_Click() 'supp
Dim Msg As String
Msg = MsgBox('Etes-vous sur de vouloir supprimer ' _
& vbCrLf & vbCrLf & vbTab & TextBox6 & ' ?', vbYesNo, 'Mode Supression Articles ???')
If Msg = vbYes Then
ListBox1.Value = ''
With WsBase
.Rows(NomLBindex).Delete
End With
End If
Unload Me
aaa.Show
End Sub

merci

 

[WILFRIED]

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+

 

[petchy]

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

 

[WILFRIED]

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+

 

[petchy]

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

 

[Hervé]

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é