Cocher CheckBox

Fred0o

XLDnaute Barbatruc

• 12 Décembre 2010

• #2

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+

 

Pièces jointes

• apdf1_V1.xlsm

  17.5 KB · Affichages: 78
• apdf1_V1.xlsm

  17.5 KB · Affichages: 68

Dernière édition: 12 Décembre 2010

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 12 Décembre 2010

• #3

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 12 Décembre 2010

• #4

Re : Cocher CheckBox

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

Code:

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 12 Décembre 2010

• #5

Re : Cocher CheckBox

Re-bonjour apdf1,

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

A+

Edit : Bonjour Laetitia.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 12 Décembre 2010

• #6

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

Cliquez pour agrandir...

 

Dernière édition: 12 Décembre 2010

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 12 Décembre 2010

• #7

Re : Cocher CheckBox

Re,

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

a+

M@x

 

Vote positif 0 Vote négatif