J'ai créé des checkbox dans une feuille. Je souhaiterais, en fonction de
l'état (coché ou non) de ces objets exécuter des actions.
Afin de les intégrer tous, je n'arrive pas à qualifier leur collection. Qcq
chose du style:
dim case_à_cocher
For each case_à_cocher in ????
if case_à_cocher.value=True then
exécuter action
endif
next
Cette approche est-elle envisageable?
Merci pour votre aide.
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
anonymousA
Bonjour,
si les checkboxes sont ceux de la BO controles
Dim c As OLEObject For Each c In Me.OLEObjects If c.ProgId = "Forms.CheckBox.1" Then c.Object.Value = false Next
si ce sont des checkboxes issus de la BO formulaires il faut passer soit par la collection shapes soit par la collection Drawingobjects
For Each S In ActiveSheet.Shapes If S.Type = msoFormControl then if S.FormControlType=1 then S.ControlFormat.Value = False end if Next
A+
Decaplan wrote:
Bonjour,
J'ai créé des checkbox dans une feuille. Je souhaiterais, en fonction de l'état (coché ou non) de ces objets exécuter des actions. Afin de les intégrer tous, je n'arrive pas à qualifier leur collectio n. Qcq chose du style:
dim case_à_cocher For each case_à_cocher in ???? if case_à_cocher.value=True then exécuter action endif next
Cette approche est-elle envisageable? Merci pour votre aide.
Bonjour,
si les checkboxes sont ceux de la BO controles
Dim c As OLEObject
For Each c In Me.OLEObjects
If c.ProgId = "Forms.CheckBox.1" Then c.Object.Value = false
Next
si ce sont des checkboxes issus de la BO formulaires il faut passer
soit par la collection shapes soit par la collection Drawingobjects
For Each S In ActiveSheet.Shapes
If S.Type = msoFormControl then
if S.FormControlType=1 then S.ControlFormat.Value = False
end if
Next
A+
Decaplan wrote:
Bonjour,
J'ai créé des checkbox dans une feuille. Je souhaiterais, en fonction de
l'état (coché ou non) de ces objets exécuter des actions.
Afin de les intégrer tous, je n'arrive pas à qualifier leur collectio n. Qcq
chose du style:
dim case_à_cocher
For each case_à_cocher in ????
if case_à_cocher.value=True then
exécuter action
endif
next
Cette approche est-elle envisageable?
Merci pour votre aide.
Dim c As OLEObject For Each c In Me.OLEObjects If c.ProgId = "Forms.CheckBox.1" Then c.Object.Value = false Next
si ce sont des checkboxes issus de la BO formulaires il faut passer soit par la collection shapes soit par la collection Drawingobjects
For Each S In ActiveSheet.Shapes If S.Type = msoFormControl then if S.FormControlType=1 then S.ControlFormat.Value = False end if Next
A+
Decaplan wrote:
Bonjour,
J'ai créé des checkbox dans une feuille. Je souhaiterais, en fonction de l'état (coché ou non) de ces objets exécuter des actions. Afin de les intégrer tous, je n'arrive pas à qualifier leur collectio n. Qcq chose du style:
dim case_à_cocher For each case_à_cocher in ???? if case_à_cocher.value=True then exécuter action endif next
Cette approche est-elle envisageable? Merci pour votre aide.
Decaplan
Grand MERCI. Amicalement.
Decaplan "anonymousA" a écrit dans le message de news:
Bonjour,
si les checkboxes sont ceux de la BO controles
Dim c As OLEObject For Each c In Me.OLEObjects If c.ProgId = "Forms.CheckBox.1" Then c.Object.Value = false Next
si ce sont des checkboxes issus de la BO formulaires il faut passer soit par la collection shapes soit par la collection Drawingobjects
For Each S In ActiveSheet.Shapes If S.Type = msoFormControl then if S.FormControlType=1 then S.ControlFormat.Value = False end if Next
A+
Decaplan wrote:
Bonjour,
J'ai créé des checkbox dans une feuille. Je souhaiterais, en fonction de l'état (coché ou non) de ces objets exécuter des actions. Afin de les intégrer tous, je n'arrive pas à qualifier leur collection. Qcq chose du style:
dim case_à_cocher For each case_à_cocher in ???? if case_à_cocher.value=True then exécuter action endif next
Cette approche est-elle envisageable? Merci pour votre aide.
Grand MERCI.
Amicalement.
Decaplan
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1156514721.875002.216190@m73g2000cwd.googlegroups.com...
Bonjour,
si les checkboxes sont ceux de la BO controles
Dim c As OLEObject
For Each c In Me.OLEObjects
If c.ProgId = "Forms.CheckBox.1" Then c.Object.Value = false
Next
si ce sont des checkboxes issus de la BO formulaires il faut passer
soit par la collection shapes soit par la collection Drawingobjects
For Each S In ActiveSheet.Shapes
If S.Type = msoFormControl then
if S.FormControlType=1 then S.ControlFormat.Value = False
end if
Next
A+
Decaplan wrote:
Bonjour,
J'ai créé des checkbox dans une feuille. Je souhaiterais, en fonction de
l'état (coché ou non) de ces objets exécuter des actions.
Afin de les intégrer tous, je n'arrive pas à qualifier leur collection.
Qcq
chose du style:
dim case_à_cocher
For each case_à_cocher in ????
if case_à_cocher.value=True then
exécuter action
endif
next
Cette approche est-elle envisageable?
Merci pour votre aide.
Decaplan "anonymousA" a écrit dans le message de news:
Bonjour,
si les checkboxes sont ceux de la BO controles
Dim c As OLEObject For Each c In Me.OLEObjects If c.ProgId = "Forms.CheckBox.1" Then c.Object.Value = false Next
si ce sont des checkboxes issus de la BO formulaires il faut passer soit par la collection shapes soit par la collection Drawingobjects
For Each S In ActiveSheet.Shapes If S.Type = msoFormControl then if S.FormControlType=1 then S.ControlFormat.Value = False end if Next
A+
Decaplan wrote:
Bonjour,
J'ai créé des checkbox dans une feuille. Je souhaiterais, en fonction de l'état (coché ou non) de ces objets exécuter des actions. Afin de les intégrer tous, je n'arrive pas à qualifier leur collection. Qcq chose du style:
dim case_à_cocher For each case_à_cocher in ???? if case_à_cocher.value=True then exécuter action endif next
Cette approche est-elle envisageable? Merci pour votre aide.
