XL 2010 Enlever un mon si la checkbox est decocher

SSIAP2 · 4 Octobre 2016

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 · 4 Octobre 2016

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 +

SSIAP2 · 4 Octobre 2016

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

XL 2010 Enlever un mon si la checkbox est decocher

SSIAP2

XLDnaute Occasionnel

Pièces jointes

Paf

XLDnaute Barbatruc

SSIAP2

XLDnaute Occasionnel

Discussions similaires