Bonjour à tous,
Excel 2000
Je cherche une prodécure pour remettre à "FAUX"
(c'est à dire "non cochée") tous les checkbox d'une feuille
donnée.
J'aurais aussi besoin du code pour savoir le nombre de
checkbox, étant que leur nombre peut varier.
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
isabelle
bonjour Flac,
Sub Macro1() For Each s In Worksheets(1).Shapes If s.Type = msoFormControl Then If s.FormControlType = xlCheckBox Then s.ControlFormat.Value = False End If Next End Sub
isabelle
Flac a écrit :
Bonjour à tous, Excel 2000 Je cherche une prodécure pour remettre à "FAUX" (c'est à dire "non cochée") tous les checkbox d'une feuille donnée. J'aurais aussi besoin du code pour savoir le nombre de checkbox, étant que leur nombre peut varier.
Merci
Flac
bonjour Flac,
Sub Macro1()
For Each s In Worksheets(1).Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then s.ControlFormat.Value = False
End If
Next
End Sub
isabelle
Flac a écrit :
Bonjour à tous,
Excel 2000
Je cherche une prodécure pour remettre à "FAUX"
(c'est à dire "non cochée") tous les checkbox d'une feuille
donnée.
J'aurais aussi besoin du code pour savoir le nombre de
checkbox, étant que leur nombre peut varier.
Sub Macro1() For Each s In Worksheets(1).Shapes If s.Type = msoFormControl Then If s.FormControlType = xlCheckBox Then s.ControlFormat.Value = False End If Next End Sub
isabelle
Flac a écrit :
Bonjour à tous, Excel 2000 Je cherche une prodécure pour remettre à "FAUX" (c'est à dire "non cochée") tous les checkbox d'une feuille donnée. J'aurais aussi besoin du code pour savoir le nombre de checkbox, étant que leur nombre peut varier.
Merci
Flac
isabelle
ps/
pour un objet control :
Sub Macro2() For Each s In Worksheets(1).OLEObjects If Left(s.Name, 8) = "CheckBox" Then s.Object.Value = 0 Next End Sub
isabelle
Flac a écrit :
Bonjour à tous, Excel 2000 Je cherche une prodécure pour remettre à "FAUX" (c'est à dire "non cochée") tous les checkbox d'une feuille donnée. J'aurais aussi besoin du code pour savoir le nombre de checkbox, étant que leur nombre peut varier.
Merci
Flac
ps/
pour un objet control :
Sub Macro2()
For Each s In Worksheets(1).OLEObjects
If Left(s.Name, 8) = "CheckBox" Then s.Object.Value = 0
Next
End Sub
isabelle
Flac a écrit :
Bonjour à tous,
Excel 2000
Je cherche une prodécure pour remettre à "FAUX"
(c'est à dire "non cochée") tous les checkbox d'une feuille
donnée.
J'aurais aussi besoin du code pour savoir le nombre de
checkbox, étant que leur nombre peut varier.
Sub Macro2() For Each s In Worksheets(1).OLEObjects If Left(s.Name, 8) = "CheckBox" Then s.Object.Value = 0 Next End Sub
isabelle
Flac a écrit :
Bonjour à tous, Excel 2000 Je cherche une prodécure pour remettre à "FAUX" (c'est à dire "non cochée") tous les checkbox d'une feuille donnée. J'aurais aussi besoin du code pour savoir le nombre de checkbox, étant que leur nombre peut varier.
Merci
Flac
Flac
Merci
Flac
"isabelle" a écrit dans le message de news:
bonjour Flac,
Sub Macro1() For Each s In Worksheets(1).Shapes If s.Type = msoFormControl Then If s.FormControlType = xlCheckBox Then s.ControlFormat.Value = False End If Next End Sub
isabelle
Flac a écrit :
Bonjour à tous, Excel 2000 Je cherche une prodécure pour remettre à "FAUX" (c'est à dire "non cochée") tous les checkbox d'une feuille donnée. J'aurais aussi besoin du code pour savoir le nombre de checkbox, étant que leur nombre peut varier.
Merci
Flac
Merci
Flac
"isabelle" <i@v> a écrit dans le message de news:
e7AwN5LIJHA.2256@TK2MSFTNGP06.phx.gbl...
bonjour Flac,
Sub Macro1()
For Each s In Worksheets(1).Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then s.ControlFormat.Value =
False
End If
Next
End Sub
isabelle
Flac a écrit :
Bonjour à tous,
Excel 2000
Je cherche une prodécure pour remettre à "FAUX"
(c'est à dire "non cochée") tous les checkbox d'une feuille
donnée.
J'aurais aussi besoin du code pour savoir le nombre de
checkbox, étant que leur nombre peut varier.
Sub Macro1() For Each s In Worksheets(1).Shapes If s.Type = msoFormControl Then If s.FormControlType = xlCheckBox Then s.ControlFormat.Value = False End If Next End Sub
isabelle
Flac a écrit :
Bonjour à tous, Excel 2000 Je cherche une prodécure pour remettre à "FAUX" (c'est à dire "non cochée") tous les checkbox d'une feuille donnée. J'aurais aussi besoin du code pour savoir le nombre de checkbox, étant que leur nombre peut varier.