Suppression d'une valeur d'un combo

Le
Davit T.
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-François Aubert
Le #1240214
salut David,

remplace la ligne:
Cell.EntireRow.Delete


par:
Cell.clear

cela effacera la cellule de la col B


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Davit T." news:
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


Davit T.
Le #1239976
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





Philippe.R
Le #1239975
Bonjour David,
Tu peux éventuellement préférer :

Cell.Delete Shift:=xlUp

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Davit T." news:
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







Davit T.
Le #1279152
Bonsoir et Merci Philippe

Cela me convient parfaitement

Cordialement
David

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

Cell.Delete Shift:=xlUp



Publicité
Poster une réponse
Anonyme