Problème de sélection checkbox

Bonjour,

J'ai un petit problème, lorsque j'ai codé ma boite de dialogue excel j'ai ajouter les boutons tout sélectionner et tout désélectionner et je n'arrive pas a trouver la solution pour que quand l'on sélectionné tout mais que l'on décoche juste une case cela imprime tout sauf cette case .

Aidez moi je vous en prie !!!

Private Sub CheckAll_Click()
Dim Ctl As Control
For Each Ctl In ImPdf.Frame1.Controls
If Ctl <> CheckAll Then
CheckPdg = True
CheckTpsp = True
CheckIdf = True
CheckEquip = True
CheckPort = True
CheckAlt = True
CheckAng = True
CheckOo = True
CheckCbl = True
CheckFond = True
CheckSynt = True
End If
Next
End Sub

codification bouton tout selectionner

Private Sub CheckPdg_Click()

    If CheckPdg.Value = True Then
    tabl_feuille_imprime(0) = "pdg"

    Else 'Si non cochŽ
    tabl_feuille_imprime(0) = ""
    End If
    End Sub

codification d'une checkbox (tout code de la même manière

Rechercher des sujets similaires à "probleme selection checkbox"