XL 2010 Enlever un mon si la checkbox est decocher

SSIAP2

XLDnaute Occasionnel
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
 

Pièces jointes

  • CHECKBOX.xlsm
    17 KB · Affichages: 30

Paf

XLDnaute Barbatruc
Bonjour

une solution possible:
Code:
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 +
 

Discussions similaires

Réponses
8
Affichages
364

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof