J'ai de contr=F4le checkbox sur une feuille de calcul excel=20
et je voudrait =E0 partir d'une macro les faires mettre =E0=20
false...
Je m'en sert comme case =E0 cocher dans un questionnaire et=20
je cherche le moyen de les remettres =E0 blanc=20
automatiquement pour recommencer le questionnaire...
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
Denis Michon
Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950$ Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils contrôle :
'-----------------------
Private Sub Remise()
With Worksheets("Feuil2")
For Each c In .CheckBoxes
c.Value = 0
Next
End With
End Sub
'-----------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0a1301c3a954$c7db4950$a001280a@phx.gbl...
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel
et je voudrait à partir d'une macro les faires mettre à
false...
Je m'en sert comme case à cocher dans un questionnaire et
je cherche le moyen de les remettres à blanc
automatiquement pour recommencer le questionnaire...
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950$ Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
Denis Michon
Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la barre d'outils Formulaire :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950$ Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils contrôle :
'-----------------------
Private Sub Remise()
On Error Resume Next
For Each s In Worksheets("Feuil2").Shapes
If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then
If Err = 0 Then
s.OLEFormat.Object.Object.Value = False
Else
Err = 0
End If
End If
Next
'----------------------
Si tes checkbox proviennent de la barre d'outils Formulaire :
'-----------------------
Private Sub Remise()
With Worksheets("Feuil2")
For Each c In .CheckBoxes
c.Value = 0
Next
End With
End Sub
'-----------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0a1301c3a954$c7db4950$a001280a@phx.gbl...
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel
et je voudrait à partir d'une macro les faires mettre à
false...
Je m'en sert comme case à cocher dans un questionnaire et
je cherche le moyen de les remettres à blanc
automatiquement pour recommencer le questionnaire...
Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la barre d'outils Formulaire :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950$ Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
Dany
Je te remercie Denis, mais j'ai fait le test de la commande que tu m'as fait donné et cela ne fonctionne pas. Il ne se produit rien ??
-----Message d'origine----- Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
.
Je te remercie Denis, mais j'ai fait le test de la
commande que tu m'as fait donné et cela ne fonctionne pas.
Il ne se produit rien ??
-----Message d'origine-----
Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils
contrôle :
'-----------------------
Private Sub Remise()
With Worksheets("Feuil2")
For Each c In .CheckBoxes
c.Value = 0
Next
End With
End Sub
'-----------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:0a1301c3a954$c7db4950
$a001280a@phx.gbl...
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel
et je voudrait à partir d'une macro les faires mettre à
false...
Je m'en sert comme case à cocher dans un questionnaire et
je cherche le moyen de les remettres à blanc
automatiquement pour recommencer le questionnaire...
Je te remercie Denis, mais j'ai fait le test de la commande que tu m'as fait donné et cela ne fonctionne pas. Il ne se produit rien ??
-----Message d'origine----- Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
.
Denis Michon
Bonjour Dany,
Ne perd pas trop de temps à expliquer ce que tu fais ! Je suis devin !
Laquelle des procédures as-tu testé ?
Es-tu sûr que tes contrôles sont des "Checkbox" ? As-tu adapté le nom de la feuille de la procédure au nom de la feuille de ton projet ?
As-tu choisi la bonne procédure en fonction de la barre d'outils (origine - Formulaire ou Commandes) de tes Contrôles "checkbox" ?
La procédure ne fait que décocher les "Checkbox". S'ils sont déjà décochés au lancement de la procédure, rien ne se passera !
Désolé pour toi, mais je ne connais pas d'autres façons de procéder ... sauf bien sûr à l'aide de la souris !
Si tes checkbox proviennent de la BARRE D'OUTILS CONTRÔLE (COMMANDE EXCEL 97):
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la BARRE D'OUTILS FORMULAIRE '----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950$ Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
Bonjour Dany,
Ne perd pas trop de temps à expliquer ce que tu fais ! Je suis devin !
Laquelle des procédures as-tu testé ?
Es-tu sûr que tes contrôles sont des "Checkbox" ? As-tu adapté le nom de la feuille de la procédure au nom de la feuille
de ton projet ?
As-tu choisi la bonne procédure en fonction de la barre d'outils (origine - Formulaire ou Commandes) de tes Contrôles
"checkbox" ?
La procédure ne fait que décocher les "Checkbox". S'ils sont déjà décochés au lancement de la procédure, rien ne se
passera !
Désolé pour toi, mais je ne connais pas d'autres façons de procéder ... sauf bien sûr à l'aide de la souris !
Si tes checkbox proviennent de la BARRE D'OUTILS CONTRÔLE (COMMANDE EXCEL 97):
'-----------------------
Private Sub Remise()
On Error Resume Next
For Each s In Worksheets("Feuil2").Shapes
If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then
If Err = 0 Then
s.OLEFormat.Object.Object.Value = False
Else
Err = 0
End If
End If
Next
'----------------------
Si tes checkbox proviennent de la BARRE D'OUTILS FORMULAIRE
'-----------------------
Private Sub Remise()
With Worksheets("Feuil2")
For Each c In .CheckBoxes
c.Value = 0
Next
End With
End Sub
'-----------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0a1301c3a954$c7db4950$a001280a@phx.gbl...
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel
et je voudrait à partir d'une macro les faires mettre à
false...
Je m'en sert comme case à cocher dans un questionnaire et
je cherche le moyen de les remettres à blanc
automatiquement pour recommencer le questionnaire...
Ne perd pas trop de temps à expliquer ce que tu fais ! Je suis devin !
Laquelle des procédures as-tu testé ?
Es-tu sûr que tes contrôles sont des "Checkbox" ? As-tu adapté le nom de la feuille de la procédure au nom de la feuille de ton projet ?
As-tu choisi la bonne procédure en fonction de la barre d'outils (origine - Formulaire ou Commandes) de tes Contrôles "checkbox" ?
La procédure ne fait que décocher les "Checkbox". S'ils sont déjà décochés au lancement de la procédure, rien ne se passera !
Désolé pour toi, mais je ne connais pas d'autres façons de procéder ... sauf bien sûr à l'aide de la souris !
Si tes checkbox proviennent de la BARRE D'OUTILS CONTRÔLE (COMMANDE EXCEL 97):
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la BARRE D'OUTILS FORMULAIRE '----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950$ Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
Dany
Merci pour l'info sa fonctionne ,,
et autre petite question si l'on veut effacer tous les controle sur la page ,,,,bouton Formulaire Checkbox cette fois...
quel est la procedure.
et merci ton aide est apprécier..
-----Message d'origine----- Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then
If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la barre d'outils Formulaire :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
.
Merci pour l'info sa fonctionne ,,
et autre petite question si l'on veut effacer tous les
controle sur la page ,,,,bouton Formulaire Checkbox cette
fois...
quel est la procedure.
et merci ton aide est apprécier..
-----Message d'origine-----
Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils
contrôle :
'-----------------------
Private Sub Remise()
On Error Resume Next
For Each s In Worksheets("Feuil2").Shapes
If TypeName(s.OLEFormat.Object.Object) = "CheckBox"
Then
If Err = 0 Then
s.OLEFormat.Object.Object.Value = False
Else
Err = 0
End If
End If
Next
'----------------------
Si tes checkbox proviennent de la barre d'outils
Formulaire :
'-----------------------
Private Sub Remise()
With Worksheets("Feuil2")
For Each c In .CheckBoxes
c.Value = 0
Next
End With
End Sub
'-----------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:0a1301c3a954$c7db4950
$a001280a@phx.gbl...
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel
et je voudrait à partir d'une macro les faires mettre à
false...
Je m'en sert comme case à cocher dans un questionnaire et
je cherche le moyen de les remettres à blanc
automatiquement pour recommencer le questionnaire...
et autre petite question si l'on veut effacer tous les controle sur la page ,,,,bouton Formulaire Checkbox cette fois...
quel est la procedure.
et merci ton aide est apprécier..
-----Message d'origine----- Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then
If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la barre d'outils Formulaire :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
.
Denis Michon
Bonjour Dany,
Pour effacer TOUS les contrôles issus de la boîte à outils FORMULAIRE de la feuille ayant comme nom : "Feuil1" :
'--------------------------------------- Sub EffacerTousLesControlesFormulaire()
Dim T As MsoShapeType T = msoFormControl
For Each S In Worksheets("Feuil1").Shapes If S.Type = T Then S.Delete End If Next End Sub '---------------------------------------
Pour n'effacer QU'UN TYPE d'un contrôle de la barre d'outils FORMULAIRE de la feuille ayant comme nom : "Feuil1" :
Au besoin, tu pourrais remplacer dans la procédure :
'--------------------------------------- Sub EffacerUnTypeDeControleFormulaire()
Dim T As MsoShapeType T = msoFormControl
For Each S In Worksheets("Feuil1").Shapes If S.Type = T Then If TypeName(S.OLEFormat.Object) = "CheckBox" Then S.Delete End If End If Next End Sub '---------------------------------------
Salutations!
"Dany" a écrit dans le message de news:074f01c3a9ff$3f22b660$ Merci pour l'info sa fonctionne ,,
et autre petite question si l'on veut effacer tous les controle sur la page ,,,,bouton Formulaire Checkbox cette fois...
quel est la procedure.
et merci ton aide est apprécier..
-----Message d'origine----- Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then
If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la barre d'outils Formulaire :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
.
Bonjour Dany,
Pour effacer TOUS les contrôles issus de la boîte à outils FORMULAIRE de la feuille ayant comme nom : "Feuil1" :
'---------------------------------------
Sub EffacerTousLesControlesFormulaire()
Dim T As MsoShapeType
T = msoFormControl
For Each S In Worksheets("Feuil1").Shapes
If S.Type = T Then
S.Delete
End If
Next
End Sub
'---------------------------------------
Pour n'effacer QU'UN TYPE d'un contrôle de la barre d'outils FORMULAIRE de la feuille ayant comme nom : "Feuil1" :
Au besoin, tu pourrais remplacer dans la procédure :
'---------------------------------------
Sub EffacerUnTypeDeControleFormulaire()
Dim T As MsoShapeType
T = msoFormControl
For Each S In Worksheets("Feuil1").Shapes
If S.Type = T Then
If TypeName(S.OLEFormat.Object) = "CheckBox" Then
S.Delete
End If
End If
Next
End Sub
'---------------------------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans le message de news:074f01c3a9ff$3f22b660$a001280a@phx.gbl...
Merci pour l'info sa fonctionne ,,
et autre petite question si l'on veut effacer tous les
controle sur la page ,,,,bouton Formulaire Checkbox cette
fois...
quel est la procedure.
et merci ton aide est apprécier..
-----Message d'origine-----
Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils
contrôle :
'-----------------------
Private Sub Remise()
On Error Resume Next
For Each s In Worksheets("Feuil2").Shapes
If TypeName(s.OLEFormat.Object.Object) = "CheckBox"
Then
If Err = 0 Then
s.OLEFormat.Object.Object.Value = False
Else
Err = 0
End If
End If
Next
'----------------------
Si tes checkbox proviennent de la barre d'outils
Formulaire :
'-----------------------
Private Sub Remise()
With Worksheets("Feuil2")
For Each c In .CheckBoxes
c.Value = 0
Next
End With
End Sub
'-----------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:0a1301c3a954$c7db4950
$a001280a@phx.gbl...
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel
et je voudrait à partir d'une macro les faires mettre à
false...
Je m'en sert comme case à cocher dans un questionnaire et
je cherche le moyen de les remettres à blanc
automatiquement pour recommencer le questionnaire...
'--------------------------------------- Sub EffacerUnTypeDeControleFormulaire()
Dim T As MsoShapeType T = msoFormControl
For Each S In Worksheets("Feuil1").Shapes If S.Type = T Then If TypeName(S.OLEFormat.Object) = "CheckBox" Then S.Delete End If End If Next End Sub '---------------------------------------
Salutations!
"Dany" a écrit dans le message de news:074f01c3a9ff$3f22b660$ Merci pour l'info sa fonctionne ,,
et autre petite question si l'on veut effacer tous les controle sur la page ,,,,bouton Formulaire Checkbox cette fois...
quel est la procedure.
et merci ton aide est apprécier..
-----Message d'origine----- Pour corriger une méprise entre les types de boutons :
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
On Error Resume Next For Each s In Worksheets("Feuil2").Shapes If TypeName(s.OLEFormat.Object.Object) = "CheckBox" Then
If Err = 0 Then s.OLEFormat.Object.Object.Value = False Else Err = 0 End If End If Next '----------------------
Si tes checkbox proviennent de la barre d'outils Formulaire :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
.
Michel Pierron
Salut Dany;
Sub AllCboxReset(Optional Action As Boolean = False) Dim cBox As Object For Each cBox In ActiveSheet.CheckBoxes If Action Then cBox.Delete Else cBox.Value = -4146 Next cBox End Sub
MP
"Dany" a écrit dans le message de news:0e8c01c3a9f1$8f9ed730$ Je te remercie Denis, mais j'ai fait le test de la commande que tu m'as fait donné et cela ne fonctionne pas. Il ne se produit rien ??
-----Message d'origine----- Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
merci.
.
Salut Dany;
Sub AllCboxReset(Optional Action As Boolean = False)
Dim cBox As Object
For Each cBox In ActiveSheet.CheckBoxes
If Action Then cBox.Delete Else cBox.Value = -4146
Next cBox
End Sub
MP
"Dany" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0e8c01c3a9f1$8f9ed730$a301280a@phx.gbl...
Je te remercie Denis, mais j'ai fait le test de la
commande que tu m'as fait donné et cela ne fonctionne pas.
Il ne se produit rien ??
-----Message d'origine-----
Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils
contrôle :
'-----------------------
Private Sub Remise()
With Worksheets("Feuil2")
For Each c In .CheckBoxes
c.Value = 0
Next
End With
End Sub
'-----------------------
Salutations!
"Dany" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:0a1301c3a954$c7db4950
$a001280a@phx.gbl...
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel
et je voudrait à partir d'une macro les faires mettre à
false...
Je m'en sert comme case à cocher dans un questionnaire et
je cherche le moyen de les remettres à blanc
automatiquement pour recommencer le questionnaire...
Sub AllCboxReset(Optional Action As Boolean = False) Dim cBox As Object For Each cBox In ActiveSheet.CheckBoxes If Action Then cBox.Delete Else cBox.Value = -4146 Next cBox End Sub
MP
"Dany" a écrit dans le message de news:0e8c01c3a9f1$8f9ed730$ Je te remercie Denis, mais j'ai fait le test de la commande que tu m'as fait donné et cela ne fonctionne pas. Il ne se produit rien ??
-----Message d'origine----- Bonjour Dany,
Si tes checkbox proviennent de la barre d'outils contrôle :
'----------------------- Private Sub Remise()
With Worksheets("Feuil2") For Each c In .CheckBoxes c.Value = 0 Next End With
End Sub '-----------------------
Salutations!
"Dany" a écrit dans le message de news:0a1301c3a954$c7db4950
$
Est-ce quelqu'un pourrait m'aider?
J'ai de contrôle checkbox sur une feuille de calcul excel et je voudrait à partir d'une macro les faires mettre à false...
Je m'en sert comme case à cocher dans un questionnaire et je cherche le moyen de les remettres à blanc automatiquement pour recommencer le questionnaire...
