Vider cellule suivant sélection dans une listbox

Bonjour,

je reviens une nouvelle fois vers vous pour un nouveau problème.

J'ai un formulaire qui rempli un tableau suivant une sélection dans une 1ère listbox, ce tableau est reporté dans une seconde listbox.

Je voudrais pouvoir faire l'inverse c'est à dire supprimer certaines données avec une sélection dans une 2ème listbox.

Je vous joins un fichier avec d'autre explication pour mieux comprendre

Merci d'avance

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Merci de ta réponse, lorsque j'ai essayé il y a une erreur sur la ligne Cells(lgn, col) = ""

La colonne où l'élément qui doit être supprimer est la bonne mais la ligne est marqué vide

Bonjour le fil, Seb77

Code qui fonctionne

Private Sub CommandButton2_Click()
  Dim CelF As Range, Ind As Long, ValSearch As String
  For Ind = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(Ind) = True Then ValSearch = Me.ListBox2.List(Ind): Exit For
  Next
  ' Recherche la ligne de la valeur sélectionnées
  Set CelF = Range("A:A").Find(What:=ValSearch, LookIn:=xlValues, LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
  If Not CelF Is Nothing Then
    Cells(CelF.Row, Columns.Count).End(xlToLeft).ClearContents
    ListBox2.RemoveItem (Ind)
  End If
End Sub

@+

Bonjour à tous

Nouvelle version

Bye !

Bonjour,

merci pour vos retours ça fonctionne comme il faut