XL 2010 Enlever un mon si la checkbox est decocher

[SSIAP2]

Bonjour à tous je viens vous demander de l'aide au sujet des checkbox

j'ai une combobox alimenter par une liste en colonne N qui me sert de BDD des agents

j'utilise des checkbox ici CDP pour m'aider à voir qui occupe certaine fonction si il sont cocher c'est qu'il font partis de la liste en colonne J et donc occupe la fonction CDP

je souhaiterais si possible en sélectionnant un nom dans ma combo-box pourvoir grâce au combobox les ajouter dans la liste des CDP :
si je coche le nom apparait dans la colonne J
si je décoche le nom disparais dans la colonne J

pouvez vous m'aider svp merci

 

[Paf]

Bonjour

une solution possible:

Private Sub CDP_Click()
Dim Plage As Range, Trouve As Range, DerL As Integer
With Worksheets("Parametre")
DerL = .Range("J" & Rows.Count).End(xlUp).Row
Set Plage = .Range("J2:J" & DerL)
Set Trouve = Plage.Find(Liste_Nom_IDX)
If CDP Then
    If Trouve Is Nothing Then .Range("J" & DerL + 1) = Liste_Nom_IDX
Else
    If Not Trouve Is Nothing Then .Range("J" & Trouve.Row).Delete Shift:=xlUp
End If
End With
End Sub

A +

 

[SSIAP2]

bonjour paf merci à toi pour ta macro sa fonctionne tres bien bonne soirée grand merci