Supprimer une entrée avec un combobox

[gregg5l]

Bonjour à tous.
J'ai encore besoin de vous afin de finaliser mon projet.

C'est un petit module qui me sert à ajouter/supprimer des noms dans une liste.
L'ajout fonctionne, mais la suppression ne marche qu'avec la dernière personne de la liste.

Sub Ajout_Employes()

    Dim EntreePlus As Worksheet, ZZ As Range, Erg, i As Integer, XX As Range

    Set EntreePlus = ThisWorkbook.Worksheets("donnees")

    Set ZZ = EntreePlus.cells(16384, 2).End(xlUp).Offset(1, 0)
    Set XX = EntreePlus.cells(16384, 4).End(xlUp).Offset(1, 0)
    
    Application.ScreenUpdating = False
    
    If UserForm1.OptionButton1.Value = True And UserForm1.TextBox1 <> "" Then
    ZZ.Offset(0, i + 2).Value = UserForm1.TextBox1.Text
    Module7.trier_CDD
    Unload UserForm1
    Unload UserForm0
    End If
    
    
    If UserForm1.OptionButton2.Value = True And UserForm1.ComboBox2 <> "" Then
       For Each Value In Range("CDD_new")
          If XX.Value = UserForm1.ComboBox2 Then
          XX.ClearContents
          End If
       Next

       Module7.trier_CDD
    End If
       UserForm1.ComboBox2.Value = ""
       Unload UserForm1
       Unload UserForm0
       Application.ScreenUpdating = True

End Sub

Si vous pouviez m'aider, j'en serai ravi.
Je ne le répéterais jamais assez : Bravo pour ce forum qui est une mine d'information.
A bientôt

 

[gbinforme]

Re : Supprimer une entrée avec un combobox

bonjour

pourquoi avoir mis l'ajout si c'est la suppression qui a un problème ?

 

[Pierrot93]

Re : Supprimer une entrée avec un combobox

Bonjour Greg, Jbinforme

si j'ai bien compris, imodifies peut être les lignes de code ci dessous :

If UserForm1.OptionButton2.Value = True And UserForm1.ComboBox2 <> "" Then
       For Each Value In Range("CDD_new")
          If XX.Value = UserForm1.ComboBox2 Then
          XX.ClearContents
          End If
       Next

par :

If UserForm1.OptionButton2.Value = True And UserForm1.ComboBox2 <> "" Then
       For Each [COLOR="Red"][B]XX[/B][/COLOR] In Range("CDD_new")
          If XX.Value = UserForm1.ComboBox2 Then
          XX.ClearContents
          End If
       Next

à la condition que "CDD_new" soit une plage nommée.

bonne journée
@+

 

[gregg5l]

Re : Supprimer une entrée avec un combobox

Bonjour.
Pierrot, la modification que tu as apporté fonctionne à merveille.
Je t'en remercie.
A bientôt.