Multiple CheckBox

Le
Michel
Bonjour a tout le monde,

dans un dernier fil il y avait une reponse


Private Sub CheckBox_Holliday_All_Click()
For Each sh In ActiveSheet.Shapes
sh.Select
On Error Resume Next
If CheckBox_Holliday_All.Value = True Then
If Left(sh.Name, 8) = "CheckBox" Then
sh.Value = True 'ca ne marche pas
End If
Else
If sh.Caption = "CheckBox" Then
sh.Value = False
End If
End If

If Err <> 0 Then
Err.Clear
Else
End If
Next

Mon probleme est que je voudrais avoir un checkbox qui lorsque l'on click
dessus cela selectionne tous les autres checkbox. Mais je n'arrive pas a
trouver l'element VALUE pour la mettre a true (cocher).

Question subsidiare, comment fait on pour avoir l'element "Caption" ?

Merci d'avance,

@+

Michel.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ABED HADDOU
Le #3804671
Bonjour Michel

Mon probleme est que je voudrais avoir un checkbox qui lorsque l'on click
dessus cela selectionne tous les autres checkbox. Mais je n'arrive pas a
trouver l'element VALUE pour la mettre a true (cocher).


voir ça : http://cjoint.com/?hurgSwFfDG

Cordialement Abed_H




Bonjour a tout le monde,

dans un dernier fil il y avait une reponse


Private Sub CheckBox_Holliday_All_Click()
For Each sh In ActiveSheet.Shapes
sh.Select
On Error Resume Next
If CheckBox_Holliday_All.Value = True Then
If Left(sh.Name, 8) = "CheckBox" Then
sh.Value = True 'ca ne marche pas
End If
Else
If sh.Caption = "CheckBox" Then
sh.Value = False
End If
End If

If Err <> 0 Then
Err.Clear
Else
End If
Next

Mon probleme est que je voudrais avoir un checkbox qui lorsque l'on click
dessus cela selectionne tous les autres checkbox. Mais je n'arrive pas a
trouver l'element VALUE pour la mettre a true (cocher).

Question subsidiare, comment fait on pour avoir l'element "Caption" ?

Merci d'avance,

@+

Michel.






Michel
Le #3804131
Salut

Ca marche tip-top,

Merci beaucoup,

@+

Michel.


"ABED HADDOU" de news:
Bonjour Michel

Mon probleme est que je voudrais avoir un checkbox qui lorsque l'on click
dessus cela selectionne tous les autres checkbox. Mais je n'arrive pas a
trouver l'element VALUE pour la mettre a true (cocher).


voir ça : http://cjoint.com/?hurgSwFfDG

Cordialement Abed_H




Bonjour a tout le monde,

dans un dernier fil il y avait une reponse


Private Sub CheckBox_Holliday_All_Click()
For Each sh In ActiveSheet.Shapes
sh.Select
On Error Resume Next
If CheckBox_Holliday_All.Value = True Then
If Left(sh.Name, 8) = "CheckBox" Then
sh.Value = True 'ca ne marche pas
End If
Else
If sh.Caption = "CheckBox" Then
sh.Value = False
End If
End If

If Err <> 0 Then
Err.Clear
Else
End If
Next

Mon probleme est que je voudrais avoir un checkbox qui lorsque l'on click
dessus cela selectionne tous les autres checkbox. Mais je n'arrive pas a
trouver l'element VALUE pour la mettre a true (cocher).

Question subsidiare, comment fait on pour avoir l'element "Caption" ?

Merci d'avance,

@+

Michel.








Publicité
Poster une réponse
Anonyme