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" ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ABED HADDOU
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.
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" ?
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
Salut
Ca marche tip-top,
Merci beaucoup,
@+
Michel.
"ABED HADDOU" a écrit dans le message 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.
Salut
Ca marche tip-top,
Merci beaucoup,
@+
Michel.
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news: 16D6BFE3-F614-4EFF-9AC4-DDF0367E1E9C@microsoft.com...
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" ?
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" ?
