Suppression ligne sur listbox sur feuille Excel

[Zeltron]

Bonsoir à tout le forum,

Voilà mon pb: j'ai une listbox (ListBox_MEMO)sur une feuille excel.
Quand je clique sur une ligne de cette listbox j'ai un usf qui s'ouvre ( grâce à l'aide d'intervenants du forum, que je remercie encore).Ce que je souhaite c'est supprimer grâce à un bouton sur ce USF, la ligne sur laquelle je viens de cliquer sur la listbox pour ouvrir ce USF, ainsi que la ligne correspondante de la feuille excel correspondante (Base_MEMO)

J'ai essayer ce code ( en cherchant sur le forum):

Private Sub CommandButton3_Click()
Dim Msg As String
Dim NomLBindex As Integer
Dim WsBase As Worksheet
Msg = MsgBox('Etes-vous sur de vouloir supprimer ' _
& vbCrLf & vbCrLf & vbTab & ListBox1 & ' ?', vbYes, 'Mode Supression Articles ???')

NomLBindex = ListBox_MEMO.ListIndex + 1
If Msg = vbYes Then
ListBox_MEMO.RemoveItem (ListBox_MEMO.ListIndex)
Sheets('Base_MEMO').Rows(NomLBindex).Delete
End If
End Sub

Cependant, cela ne fonctionne pas, il bloque en me surlignant la ligne de code suivante en jaune:

NomLBindex = ListBox_MEMO.ListIndex + 1

D'où cela provient il?

Est ce que la notion de listindex n'est pas la bonne pour une listbox sur feuille excel par rapport à une listbox dans un usf? ( exemple pour une listbox sur feuille excel la notion de rowsource ne fonctionne pas il faut utiliser ListFillRange comme me l'a expliqué Hervé que je remercie encore).


Pouvez vous m'aider?

Vous remerciant par avance

Cordialement

Zeltron

 

[MichelXld]

bonjour

si la ListBox est placée dans une feuille , tu peux tester

Sheets('NomFeuille').NomLBindex = ListBox_MEMO.ListIndex + 1

idem pour les autres lignes de ta macro


bonne journée
MichelXld