Cocher CheckBox

[apdf1]

Bonjour àtous,

Je travaille sur un userform qui a 4 check Box et deux boutons pour cocher ou décocher les check Box.
J'aimerais avoir un seul bouton qui fasse les deux fonctions et quand il décoche, le Captions change devienne cocher les check Box et vis versa.

Voilà, si quelqu'un a une idée je l'en remercie d'avance et vous souhaite un bon dimanche à tous

Ci joint mon fichier

Cordialement

Max

 

[Fred0o]

Re : Cocher CheckBox

Bonjour apdf1,

Que doit faire le bouton si tu n'as qu'une partie des check-box cochées ?

Doit-il tout cocher ou tout décocher ?

Ou alors ne doit_on activer le bouton que si toutes les check box sont cochées ou toutes les check box décochées ?

Sinon, Voir cet essai en pièce jointe. Regarde la pièce jointe apdf1_V1.xlsm

A+

 

[apdf1]

Re : Cocher CheckBox

Bonjour FredOo

Et merci d'avoir répondu, jai oublier de le signaler, si il y a une partie des check-box cochées il faut que le bouton decoche les check-box cochées.

@+

Max

 

[laetitia90]

Re : Cocher CheckBox

bonjour apdf1,Fred0o
"brute" je dirais comme cela sans simplifier

Private Sub CommandButton2_Click()
Dim i As Byte
If CommandButton2.Caption = "Cocher Toutes les CheckBox" Then
For i = 1 To 4
If Controls("CheckBox" & i) = False Then
Controls("CheckBox" & i) = True
Else
Controls("CheckBox" & i) = False
End If
Next i
CommandButton2.Caption = "DeCocher Toutes les CheckBox"
Exit Sub
End If
If CommandButton2.Caption = "DeCocher Toutes les CheckBox" Then
For i = 1 To 4
If Controls("CheckBox" & i) = True Then
Controls("CheckBox" & i) = False
Else
Controls("CheckBox" & i) = True
End If
Next i
CommandButton2.Caption = "Cocher Toutes les CheckBox"
End If
End Sub

 

[Fred0o]

Re : Cocher CheckBox

Re-bonjour apdf1,

Voici le fichier modifié : Regarde la pièce jointe apdf1_V2.xlsm

A+

Edit : Bonjour Laetitia.

 

[laetitia90]

Re : Cocher CheckBox

re, en fin de compte!! en relisant la demande est plus simple
pas inverser les coches pas coches & inversement

Private Sub CommandButton2_Click()
Dim i As Byte
If CommandButton2.Caption = "Cocher Toutes les CheckBox" Then
For i = 1 To 4: Controls("CheckBox" & i) = True: Next i
CommandButton2.Caption = "DeCocher Toutes les CheckBox"
Else
For i = 1 To 4: Controls("CheckBox" & i) = False: Next i
CommandButton2.Caption = "Cocher Toutes les CheckBox"
End If
End Sub

 

[apdf1]

Re : Cocher CheckBox

Re,

Avec un peut de retard je vous remercie tous, continuer ne changer pas c'est super !

a+

M@x