Suppression d'une valeur d'un combo

Cell.EntireRow.Delete

Bonjour à tous

Cette procédure ajoute la valeur du combo dans la colonne B de la feuille "Base"

Private Sub CommandButton3_Click()
Dim L As Integer
Dim Nom As String
Dim msg As Byte
Nom = CmbAppelant.Value
msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION")
If msg = 6 Then
L = Sheets("Base").Range("B65536").End(xlUp).Row + 1
Sheets("Base").Range("B" & L).Value = Nom
End If
End Sub

J'ai créé un bouton Supprimer

Comment faire la meme chose pour supprimer la valeur du combo. J'ai trouvé quelque chose mais cela
supprime la ligne entière ? J'aimerais que cela supprime seulement la valeur du combo référencée à
la colone B.

Private Sub CommandButton4_Click()
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
Dim msg As Integer
Dim Nom As String
L = Sheets("Base").Range("B65536").End(xlUp).Row
Set Plage = Sheets("Base").Range("B2:B" & L)
Nom = CmbAppelant.Value
For Each Cell In Plage
If Cell.Value = Nom Then
msg = MsgBox("Voulez-Vous Supprimer : " & Nom, vbYesNo, "ATTENTION")
If msg = 6 Then
Cell.EntireRow.Delete
Else: Exit Sub
End If
End If
Next Cell
End Sub

salut David,

remplace la ligne:

Cell.EntireRow.Delete

par:
Cell.clear

cela effacera la cellule de la col B

Bonjour et merci Jean-François

Cela fonctionne mais laisse un "trou" (emplacement vide) dans le combo.
Comment faire pour remonter les données du dessous ?

Merci de ton aide

Cordialement
David

salut David,

remplace la ligne:

Cell.EntireRow.Delete

par:
Cell.clear

cela effacera la cellule de la col B

Bonjour David,
Tu peux éventuellement préférer :

Cell.Delete Shift:=xlUp