XL 2019 suppression avec combobox

[Did25]

Bonjour le forum ,je réalise un fichier pour des jeux et je sèche sur le code de suppression avec combobox ,je joins le fichier ,merci de votre aide

 

[sylvanu]

Bonjour Didier,
En PJ un essai avec :

Private Sub Btnsupprimer_click()
' Suppression participants
With Sheets("Liste")
    DerLig = .Range("B65500").End(xlUp).Row
    For L = DerLig To 2 Step -1
        If .Cells(L, "B") = ComboBox1 Then
            .Cells(L, 1).EntireRow.Delete
        End If
    Next L
End With
End Sub

 

[youky(BJ)]

Bonjour Didier,
Bonjour Sylvanu,
Tu as été plus rapide que moi, mais j'ai refait à ma sauce!!
Bruno

 

[Did25]

Bonjour sylvanu ,j'ai fait un essai et sur ma feuille (liste) se trouvent aussi des tableau et des bouton et lorsque que je supprime cela impacte mes tableaux ,je joins le fichier modifié .Merci

 

[Did25]

Bonjour Youki merci de votre intervention ,en faisant un essai je rencontre un message erreur ,je joins une copie d'écran

 

[sylvanu]

Il fallait le savoir.
En PJ rectifiée avec :

.Cells(L, "B").Delete Shift:=xlUp

 

[youky(BJ)]

Je remets le fichier pour gérer les bugs
Bruno

 

[Did25]

Bonsoir Bruno et sylvanu ,merci de vos contributions tout fonctionne merci à vous bonne soirée et bon week end merci à XLD