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.
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" <StDonat@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 5BE2C7AE-0738-4E1A-B5AE-D5B2FAF17E5B@microsoft.com...
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.
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.
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.
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" <StDonat@discussions.microsoft.com> a écrit dans le message de
groupe de
discussion : 5BE2C7AE-0738-4E1A-B5AE-D5B2FAF17E5B@microsoft.com...
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.
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.
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.
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" <StDonat@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 5BE2C7AE-0738-4E1A-B5AE-D5B2FAF17E5B@microsoft.com...
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.
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.
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.
>>
.
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" <StDonat@discussions.microsoft.com> a écrit dans le message de
news:989BAB36-553F-4052-B2EE-E88934F3DF94@microsoft.com...
> 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" <StDonat@discussions.microsoft.com> a écrit dans le message de
>> groupe de
>> discussion : 5BE2C7AE-0738-4E1A-B5AE-D5B2FAF17E5B@microsoft.com...
>> 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.
>>
.
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.
>>
.
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.
>>
.
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" <StDonat@discussions.microsoft.com> a écrit dans le message de
news:989BAB36-553F-4052-B2EE-E88934F3DF94@microsoft.com...
> 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" <StDonat@discussions.microsoft.com> a écrit dans le message de
>> groupe de
>> discussion : 5BE2C7AE-0738-4E1A-B5AE-D5B2FAF17E5B@microsoft.com...
>> 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.
>>
.
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.
>>
.
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.
>>
.
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" <StDonat@discussions.microsoft.com> a écrit dans le message de
news:989BAB36-553F-4052-B2EE-E88934F3DF94@microsoft.com...
> 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" <StDonat@discussions.microsoft.com> a écrit dans le message
>> de
>> groupe de
>> discussion : 5BE2C7AE-0738-4E1A-B5AE-D5B2FAF17E5B@microsoft.com...
>> 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.
>>
.
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.
>>
.
| 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
'---------------------------------------------
| 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
'---------------------------------------------
| 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
'---------------------------------------------
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.
>> >>
>>
>> .
>>
.
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
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" <StDonat@discussions.microsoft.com> a écrit dans le message de
news:1C7E9A70-7F2A-4B0A-92A7-1B6660D14621@microsoft.com...
> 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" <StDonat@discussions.microsoft.com> a écrit dans le message de
>> news:989BAB36-553F-4052-B2EE-E88934F3DF94@microsoft.com...
>> > 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" <StDonat@discussions.microsoft.com> a écrit dans le message
>> >> de
>> >> groupe de
>> >> discussion : 5BE2C7AE-0738-4E1A-B5AE-D5B2FAF17E5B@microsoft.com...
>> >> 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.
>> >>
>>
>> .
>>
.
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.
>> >>
>>
>> .
>>
.