Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Activer par VBA Case a cocher d'une feuille

Activer par VBA Case a cocher d'une feuille

10 réponses
Avatar
StDonat
Bonjour
Mon probléme et presque tout résumé dans le titre!
Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle est
situé sur une feuille Excel.
J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela ne
marche pas..
Merci de votre aide toujours aussi précieuse.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
michdenis
Bonjour,

En supposant que ton contrôle CheckBox provient effectivement
de la boîte à "outils contrôle"

Voici 2 syntaxes :

'enlève le crochet dans la case
With Worksheets("Feuil1")
.OLEObjects("Checkbox1").Object.Value = 0
End With

'met un crochet dans la case
Worksheets("feuil1").CheckBox1.Value = -1




"StDonat" a écrit dans le message de groupe de
discussion :
Bonjour
Mon probléme et presque tout résumé dans le titre!
Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle est
situé sur une feuille Excel.
J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela ne
marche pas..
Merci de votre aide toujours aussi précieuse.
Avatar
StDonat
Merci pour tes solutions.
Mais il est vrai que je préferair pouvoir utiliser un CheckBox issu de la
barre "Formulaires"...
Et là ta solution ne marche pas!

"michdenis" wrote:

Bonjour,

En supposant que ton contrôle CheckBox provient effectivement
de la boîte à "outils contrôle"

Voici 2 syntaxes :

'enlève le crochet dans la case
With Worksheets("Feuil1")
.OLEObjects("Checkbox1").Object.Value = 0
End With

'met un crochet dans la case
Worksheets("feuil1").CheckBox1.Value = -1




"StDonat" a écrit dans le message de groupe de
discussion :
Bonjour
Mon probléme et presque tout résumé dans le titre!
Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle est
situé sur une feuille Excel.
J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela ne
marche pas..
Merci de votre aide toujours aussi précieuse.



Avatar
Philippe.R
Bonjour,
L'enregistreur de macros me souffle :

Sub coche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOn
End With
End Sub

Sub decoche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOff
End With
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"StDonat" a écrit dans le message de
news:
Merci pour tes solutions.
Mais il est vrai que je préferair pouvoir utiliser un CheckBox issu de la
barre "Formulaires"...
Et là ta solution ne marche pas!

"michdenis" wrote:

Bonjour,

En supposant que ton contrôle CheckBox provient effectivement
de la boîte à "outils contrôle"

Voici 2 syntaxes :

'enlève le crochet dans la case
With Worksheets("Feuil1")
.OLEObjects("Checkbox1").Object.Value = 0
End With

'met un crochet dans la case
Worksheets("feuil1").CheckBox1.Value = -1




"StDonat" a écrit dans le message de
groupe de
discussion :
Bonjour
Mon probléme et presque tout résumé dans le titre!
Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle est
situé sur une feuille Excel.
J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela ne
marche pas..
Merci de votre aide toujours aussi précieuse.





Avatar
Jacky
Bonjour,

En poussant un peu... on pourrait
Les deux pour le prix d'un..
;o))
'------------
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = .Value = xlOff
.LinkedCell = "$B$6"
Range(.LinkedCell).Select
End With
'---------------
--
Salutations
JJ


"StDonat" a écrit dans le message de news:

Merci pour tes solutions.
Mais il est vrai que je préferair pouvoir utiliser un CheckBox issu de la
barre "Formulaires"...
Et là ta solution ne marche pas!

"michdenis" wrote:

Bonjour,

En supposant que ton contrôle CheckBox provient effectivement
de la boîte à "outils contrôle"

Voici 2 syntaxes :

'enlève le crochet dans la case
With Worksheets("Feuil1")
.OLEObjects("Checkbox1").Object.Value = 0
End With

'met un crochet dans la case
Worksheets("feuil1").CheckBox1.Value = -1




"StDonat" a écrit dans le message de groupe de
discussion :
Bonjour
Mon probléme et presque tout résumé dans le titre!
Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle est
situé sur une feuille Excel.
J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela ne
marche pas..
Merci de votre aide toujours aussi précieuse.





Avatar
StDonat
Merci nickel, mais moi mon enregistreur de macro ne me souffle seulement
range("G9").select!!
Comment fait tu pour qu'il t'en dise plus?:


"Philippe.R" wrote:

Bonjour,
L'enregistreur de macros me souffle :

Sub coche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOn
End With
End Sub

Sub decoche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOff
End With
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"StDonat" a écrit dans le message de
news:
> Merci pour tes solutions.
> Mais il est vrai que je préferair pouvoir utiliser un CheckBox issu de la
> barre "Formulaires"...
> Et là ta solution ne marche pas!
>
> "michdenis" wrote:
>
>> Bonjour,
>>
>> En supposant que ton contrôle CheckBox provient effectivement
>> de la boîte à "outils contrôle"
>>
>> Voici 2 syntaxes :
>>
>> 'enlève le crochet dans la case
>> With Worksheets("Feuil1")
>> .OLEObjects("Checkbox1").Object.Value = 0
>> End With
>>
>> 'met un crochet dans la case
>> Worksheets("feuil1").CheckBox1.Value = -1
>>
>>
>>
>>
>> "StDonat" a écrit dans le message de
>> groupe de
>> discussion :
>> Bonjour
>> Mon probléme et presque tout résumé dans le titre!
>> Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle est
>> situé sur une feuille Excel.
>> J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela ne
>> marche pas..
>> Merci de votre aide toujours aussi précieuse.
>>

.



Avatar
StDonat
Comment faire maintenat pour tester si la check box (issu de la barre
formulaire) est active ou pas ?

"Philippe.R" wrote:

Bonjour,
L'enregistreur de macros me souffle :

Sub coche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOn
End With
End Sub

Sub decoche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOff
End With
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"StDonat" a écrit dans le message de
news:
> Merci pour tes solutions.
> Mais il est vrai que je préferair pouvoir utiliser un CheckBox issu de la
> barre "Formulaires"...
> Et là ta solution ne marche pas!
>
> "michdenis" wrote:
>
>> Bonjour,
>>
>> En supposant que ton contrôle CheckBox provient effectivement
>> de la boîte à "outils contrôle"
>>
>> Voici 2 syntaxes :
>>
>> 'enlève le crochet dans la case
>> With Worksheets("Feuil1")
>> .OLEObjects("Checkbox1").Object.Value = 0
>> End With
>>
>> 'met un crochet dans la case
>> Worksheets("feuil1").CheckBox1.Value = -1
>>
>>
>>
>>
>> "StDonat" a écrit dans le message de
>> groupe de
>> discussion :
>> Bonjour
>> Mon probléme et presque tout résumé dans le titre!
>> Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle est
>> situé sur une feuille Excel.
>> J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela ne
>> marche pas..
>> Merci de votre aide toujours aussi précieuse.
>>

.



Avatar
michdenis
| Mais il est vrai que je préferair pouvoir utiliser
| un CheckBox issu de la barre "Formulaires"...
| Et là ta solution ne marche pas!

Si tu avais pris le temps de définir tes besoins dans ta
question, tu aurais eu une solution viable ! Faut pas
demander aux répondeurs de deviner !!!!

'---------------------------------------------
'Coche la case
With Worksheets("Feuil1")
With .Shapes("Case à cocher 1")
.OLEFormat.Object.Value = 1
End With
End With
'---------------------------------------------
'Décoche la case
With Worksheets("Feuil1")
With .Shapes("Case à cocher 1")
.OLEFormat.Object.Value = 0
End With
End With
'---------------------------------------------
Avatar
Philippe.R
Re,
Un exemple de test :

Sub cochoupa()
Dim maVal As String
ActiveSheet.Shapes("Check Box 1").Select
If Selection.Value = xlOn Then
maVal = "Coche active"
Else
maVal = "Coche inactive"
End If
MsgBox maVal, vbInformation, "M.P.F.E."
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"StDonat" a écrit dans le message de
news:
Comment faire maintenat pour tester si la check box (issu de la barre
formulaire) est active ou pas ?

"Philippe.R" wrote:

Bonjour,
L'enregistreur de macros me souffle :

Sub coche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOn
End With
End Sub

Sub decoche()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOff
End With
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"StDonat" a écrit dans le message de
news:
> Merci pour tes solutions.
> Mais il est vrai que je préferair pouvoir utiliser un CheckBox issu de
> la
> barre "Formulaires"...
> Et là ta solution ne marche pas!
>
> "michdenis" wrote:
>
>> Bonjour,
>>
>> En supposant que ton contrôle CheckBox provient effectivement
>> de la boîte à "outils contrôle"
>>
>> Voici 2 syntaxes :
>>
>> 'enlève le crochet dans la case
>> With Worksheets("Feuil1")
>> .OLEObjects("Checkbox1").Object.Value = 0
>> End With
>>
>> 'met un crochet dans la case
>> Worksheets("feuil1").CheckBox1.Value = -1
>>
>>
>>
>>
>> "StDonat" a écrit dans le message
>> de
>> groupe de
>> discussion :
>> Bonjour
>> Mon probléme et presque tout résumé dans le titre!
>> Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle
>> est
>> situé sur une feuille Excel.
>> J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela
>> ne
>> marche pas..
>> Merci de votre aide toujours aussi précieuse.
>>

.





Avatar
Philippe.R
Bonjoir,
On peut même jouer à coche/décoche, en regroupant comme ceci :

With Worksheets("Feuil1")
With .Shapes("Case à cocher 1")
If .OLEFormat.Object.Value = 1 Then
.OLEFormat.Object.Value = 0
Else
.OLEFormat.Object.Value = 1
End If
End With
End With
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"michdenis" a écrit dans le message de
news:
| Mais il est vrai que je préferair pouvoir utiliser
| un CheckBox issu de la barre "Formulaires"...
| Et là ta solution ne marche pas!

Si tu avais pris le temps de définir tes besoins dans ta
question, tu aurais eu une solution viable ! Faut pas
demander aux répondeurs de deviner !!!!

'---------------------------------------------
'Coche la case
With Worksheets("Feuil1")
With .Shapes("Case à cocher 1")
.OLEFormat.Object.Value = 1
End With
End With
'---------------------------------------------
'Décoche la case
With Worksheets("Feuil1")
With .Shapes("Case à cocher 1")
.OLEFormat.Object.Value = 0
End With
End With
'---------------------------------------------



Avatar
StDonat
Merci à tous, et désolé pour MichDenis, qui as tout a fait raison, il faut
toujours clairement identifier son probléme avant de poser une question. Pour
ma défense je ne savais pas qu'il y avait un traitement différent en focntion
de la provenance du controle (en l'occurence Formulaire ou boite à outils).
Encore merci Tchao

"Philippe.R" wrote:

Re,
Un exemple de test :

Sub cochoupa()
Dim maVal As String
ActiveSheet.Shapes("Check Box 1").Select
If Selection.Value = xlOn Then
maVal = "Coche active"
Else
maVal = "Coche inactive"
End If
MsgBox maVal, vbInformation, "M.P.F.E."
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"StDonat" a écrit dans le message de
news:
> Comment faire maintenat pour tester si la check box (issu de la barre
> formulaire) est active ou pas ?
>
> "Philippe.R" wrote:
>
>> Bonjour,
>> L'enregistreur de macros me souffle :
>>
>> Sub coche()
>> ActiveSheet.Shapes("Check Box 1").Select
>> With Selection
>> .Value = xlOn
>> End With
>> End Sub
>>
>> Sub decoche()
>> ActiveSheet.Shapes("Check Box 1").Select
>> With Selection
>> .Value = xlOff
>> End With
>> End Sub
>>
>> --
>> Avec plaisir
>> http://dj.joss.free.fr/trombine.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/trombine.htm
>> http://jacxl.free.fr/mpfe/trombino.html" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/mpfe/trombino.html
>> Philippe.R
>> Pour se connecter au forum :
>> http://www.excelabo.net/web/mpfe" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/web/mpfe
>> News://news.microsoft.com/microsoft.public.fr.excel
>> "StDonat" a écrit dans le message de
>> news:
>> > Merci pour tes solutions.
>> > Mais il est vrai que je préferair pouvoir utiliser un CheckBox issu de
>> > la
>> > barre "Formulaires"...
>> > Et là ta solution ne marche pas!
>> >
>> > "michdenis" wrote:
>> >
>> >> Bonjour,
>> >>
>> >> En supposant que ton contrôle CheckBox provient effectivement
>> >> de la boîte à "outils contrôle"
>> >>
>> >> Voici 2 syntaxes :
>> >>
>> >> 'enlève le crochet dans la case
>> >> With Worksheets("Feuil1")
>> >> .OLEObjects("Checkbox1").Object.Value = 0
>> >> End With
>> >>
>> >> 'met un crochet dans la case
>> >> Worksheets("feuil1").CheckBox1.Value = -1
>> >>
>> >>
>> >>
>> >>
>> >> "StDonat" a écrit dans le message
>> >> de
>> >> groupe de
>> >> discussion :
>> >> Bonjour
>> >> Mon probléme et presque tout résumé dans le titre!
>> >> Par VBA je souhaite activer (ou déactiver) une case a cocher qui elle
>> >> est
>> >> situé sur une feuille Excel.
>> >> J'ai essayer ActiveSheet.OLEObjet("MaCase").value=1ou=True mais cela
>> >> ne
>> >> marche pas..
>> >> Merci de votre aide toujours aussi précieuse.
>> >>
>>
>> .
>>

.