Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel lire plusieurs boutons

lire plusieurs boutons

8 réponses
Avatar
pompon rouge
bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le souci
suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans etre obligé
de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci
Signaler un problème avec ce contenu

8 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
j
je ne sais pas de quel genre de bouton dont la propriété value passe de true
à false tu parles, mais si ça existe tu dois pouvoir écrire un truc du genre
:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de news:
3f27fab9$0$1921$
bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le souci
suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans etre
obligé

de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci




Avatar
pompon rouge
Il s'agit en fait de "togglebutton"
et il me semble que l'opération que je souhaite faire est l'inverse de votre
indication, c'est à dire "si le bouton est true, alors action 1 sinon action
2

merci pour l'idée


"" a écrit dans le message de news:


je ne sais pas de quel genre de bouton dont la propriété value passe de
true

à false tu parles, mais si ça existe tu dois pouvoir écrire un truc du
genre

:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de news:
3f27fab9$0$1921$
bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le souci
suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans etre
obligé

de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci








Avatar
sabatier
tiens, tiens, à une heure avancée de la nuit...
c'est bien la preuve que la france ne tourne pas très rond, non?
content de te revoir quand même....vacances finies, je suppose...
jps

a écrit:
je ne sais pas de quel genre de bouton dont la propriété value passe de true
à false tu parles, mais si ça existe tu dois pouvoir écrire un truc du genre
:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de news:
3f27fab9$0$1921$

bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le souci
suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans etre


obligé

de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci









Avatar
j
euh...
heure avancée de la nuit à 20:40 ?
le décalage horaire aurait-il dramatiquement augmenté avec le beaujolais ?


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

tiens, tiens, à une heure avancée de la nuit...
c'est bien la preuve que la france ne tourne pas très rond, non?
content de te revoir quand même....vacances finies, je suppose...
jps

a écrit:
je ne sais pas de quel genre de bouton dont la propriété value passe de
true


à false tu parles, mais si ça existe tu dois pouvoir écrire un truc du
genre


:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de
news:


3f27fab9$0$1921$

bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le souci
suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans etre


obligé

de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci












Avatar
sabatier
merdum, c'était un joke et les vacances ont dû ramollir tes neurones,
jacques....
tant pis pour moi
jps

"" wrote:

euh...
heure avancée de la nuit à 20:40 ?
le décalage horaire aurait-il dramatiquement augmenté avec le beaujolais ?

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

tiens, tiens, à une heure avancée de la nuit...
c'est bien la preuve que la france ne tourne pas très rond, non?
content de te revoir quand même....vacances finies, je suppose...
jps

a écrit:
je ne sais pas de quel genre de bouton dont la propriété value passe de
true


à false tu parles, mais si ça existe tu dois pouvoir écrire un truc du
genre


:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de
news:


3f27fab9$0$1921$

bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le souci
suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans etre


obligé

de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci














Avatar
sabatier
le monsieur il t'a dit qu'ils s'appelaient "toggelbutton1, togglebutton2"
t'es c.. ou quoi, jacques? les vacances, c'est bien ce que je disais...
jps
PS AMHA, aucun bouton ne s'appelle "button" tout court

"" wrote:

si les boutons s'appellent bien button1, button2...

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then
if zaza.value=true then
action1
else
action2
end if
end if
Next

"pompon rouge" a écrit dans le message de news:
3f2818a3$0$24791$
Il s'agit en fait de "togglebutton"
et il me semble que l'opération que je souhaite faire est l'inverse de
votre

indication, c'est à dire "si le bouton est true, alors action 1 sinon
action

2

merci pour l'idée


"" a écrit dans le message de news:


je ne sais pas de quel genre de bouton dont la propriété value passe de
true

à false tu parles, mais si ça existe tu dois pouvoir écrire un truc du
genre

:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de
news:


3f27fab9$0$1921$
bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le souci
suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans etre
obligé

de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci














Avatar
j
mais de quoi je me mêle !
tu peux bien donner le nom que tu veux à tes boutons (d'acné juvénile) non ?
et le mooonsieur c'est lui qui a écrit "bouton1.value = true then" ,
faut suivre !


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

le monsieur il t'a dit qu'ils s'appelaient "toggelbutton1, togglebutton2"
t'es c.. ou quoi, jacques? les vacances, c'est bien ce que je disais...
jps
PS AMHA, aucun bouton ne s'appelle "button" tout court

"" wrote:

si les boutons s'appellent bien button1, button2...

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then
if zaza.value=true then
action1
else
action2
end if
end if
Next

"pompon rouge" a écrit dans le message de
news:


3f2818a3$0$24791$
Il s'agit en fait de "togglebutton"
et il me semble que l'opération que je souhaite faire est l'inverse de
votre

indication, c'est à dire "si le bouton est true, alors action 1 sinon
action

2

merci pour l'idée


"" a écrit dans le message de news:


je ne sais pas de quel genre de bouton dont la propriété value passe
de




true
à false tu parles, mais si ça existe tu dois pouvoir écrire un truc
du




genre
:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de
news:


3f27fab9$0$1921$
bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le
souci





suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans
etre





obligé
de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci

















Avatar
sabatier
ach!!!!!!!!!!! tu as raison, jacques
je ne pense jamais qu'on peut nommer ses boutons...je me contente de m'y
attacher...
viens à lyon et je te permets de te présenter mes excuses devant une
andouillette de chez chabert...
jps

a écrit:
mais de quoi je me mêle !
tu peux bien donner le nom que tu veux à tes boutons (d'acné juvénile) non ?
et le mooonsieur c'est lui qui a écrit "bouton1.value = true then" ,
faut suivre !


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


le monsieur il t'a dit qu'ils s'appelaient "toggelbutton1, togglebutton2"
t'es c.. ou quoi, jacques? les vacances, c'est bien ce que je disais...
jps
PS AMHA, aucun bouton ne s'appelle "button" tout court

"" wrote:


si les boutons s'appellent bien button1, button2...

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then
if zaza.value=true then
action1
else
action2
end if
end if
Next

"pompon rouge" a écrit dans le message de


news:


3f2818a3$0$24791$

Il s'agit en fait de "togglebutton"
et il me semble que l'opération que je souhaite faire est l'inverse de


votre

indication, c'est à dire "si le bouton est true, alors action 1 sinon


action

2

merci pour l'idée


"" a écrit dans le message de news:


je ne sais pas de quel genre de bouton dont la propriété value passe


de




true

à false tu parles, mais si ça existe tu dois pouvoir écrire un truc


du




genre

:

For Each zaza In ActiveSheet.Shapes
If LCase(Left(zaza.Name, 6)) = "button" Then MsgBox zaza.Value
Next


http://jacxl.free.fr/


"pompon rouge" a écrit dans le message de


news:


3f27fab9$0$1921$

bonjour,
je commence a me "frotter" a vba et je cherche une piste pour le


souci





suivant :
comment récupérer l'état de plusieurs boutons (true/false) sans


etre





obligé

de taper
if bouton1.value = true then
..
if bouton2.value = false then
...
et ce une trentaine de fois

j'ai essayé avec une boucle genre

for i = 1 to 30
bouton(i).value = false
next i

mais bien sur ça ne marche pas
Si vous avez des idées.
Merci