Bonjour,
J'ai sur une feuille Excel plusieurs cases =E0 cocher que=20
j'ai nomm=E9 Case1, Case2, Case3 etc..
J'aimerai les mettre toutes =E0 jour gr=E2ce =E0 une boucle=20
for...next, mais je ne sais comment les nommer.
J'ai essay=E9 "Case" & CStr(i), mais =E7a ne marche pas.=20
Comment Faire ?
Merci
Ca marche.... Merci beaucoup Michdenis, tu es un crack.. Myriam
-----Message d'origine----- Bonjour Myriam,
Essaie ceci :
Tu dois déterminer le nom de la feuille selon ton application et le nombre de cases à cocher contenu dans la
feuille.
'-------------------------- Sub CocherLesCases()
Dim NombreDeCases As Integer
NombreDeCases = "A déterminer"
With Worksheets("Feuil4") 'A déterminer For A = 1 To NombreDeCases .Shapes("CheckBox" & A).OLEFormat.Object.Object.Value = True
Next End With
End Sub '--------------------------
Salutations!
"Myriam" a écrit dans le message de news:
505e01c4c737$da70a2c0$ La boîte à outils contrôle... Merci Myriam
-----Message d'origine----- Oui je sais mais quelle barre d'outils utilises-tu ? barre d'outils formulaire ou contrôle pour insérer tes
contrôles ?
Salutations!
a écrit dans le message de news: 17de01c4c735$8cc373b0$
Ce sont simplement des cases à cocher que je place sur ma feuille...
-----Message d'origine----- Bonjour Myriam,
Tu dois alors m'indiquer l'origine de tes checkbox : Barre d'outils formulaire ou barre d'outils "contrôle".
Salutations!
"Myriam" a écrit dans le message de news:
173b01c4c728$0a0956e0$ Merci Michdenis. Les à cocher sont sur ma feuille et je clique sur un bouton pour faire la mise à jour. Lorsque je suis ton exemple j'obtiens un message: 'Membre
de méthode ou de données introuvables' Peut-être me manque
t'il des références? Je ne suis pas très experte en VBA sur Execel comme tu l'auras compris. Merci
-----Message d'origine----- Bonjour Myriam,
En supposant que tes case à cocher soit dans un formulaire :
Checkbox étant le nom de tes contrôles...
For a = 1 to NombreDeCaseàCocher Me.Controls("Checkbox" & cstr(a)).value= true next
Salutations!
"Myriam" a écrit dans le message de news:
16e601c4c721$bbf60fd0$ Bonjour, J'ai sur une feuille Excel plusieurs cases à cocher que j'ai nommé Case1, Case2, Case3 etc.. J'aimerai les mettre toutes à jour grâce à une boucle for...next, mais je ne sais comment les nommer. J'ai essayé "Case" & CStr(i), mais ça ne marche pas. Comment Faire ? Merci
.
.
.
.
Ca marche....
Merci beaucoup Michdenis, tu es un crack..
Myriam
-----Message d'origine-----
Bonjour Myriam,
Essaie ceci :
Tu dois déterminer le nom de la feuille selon ton
application et le nombre de cases à cocher contenu dans la
feuille.
'--------------------------
Sub CocherLesCases()
Dim NombreDeCases As Integer
NombreDeCases = "A déterminer"
With Worksheets("Feuil4") 'A déterminer
For A = 1 To NombreDeCases
.Shapes("CheckBox" & A).OLEFormat.Object.Object.Value
= True
Next
End With
End Sub
'--------------------------
Salutations!
"Myriam" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:
505e01c4c737$da70a2c0$a601280a@phx.gbl...
La boîte à outils contrôle...
Merci
Myriam
-----Message d'origine-----
Oui je sais mais quelle barre d'outils utilises-tu ?
barre d'outils formulaire ou contrôle pour insérer tes
contrôles ?
Salutations!
<anonymous@discussions.microsoft.com> a écrit dans le
message de news: 17de01c4c735$8cc373b0$a501280a@phx.gbl...
Ce sont simplement des cases à cocher que je place sur ma
feuille...
-----Message d'origine-----
Bonjour Myriam,
Tu dois alors m'indiquer l'origine de tes checkbox :
Barre d'outils formulaire ou barre d'outils "contrôle".
Salutations!
"Myriam" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:
173b01c4c728$0a0956e0$a501280a@phx.gbl...
Merci Michdenis.
Les à cocher sont sur ma feuille et je clique sur un
bouton pour faire la mise à jour.
Lorsque je suis ton exemple j'obtiens un
message: 'Membre
de méthode ou de données introuvables' Peut-être me
manque
t'il des références? Je ne suis pas très experte en VBA
sur Execel comme tu l'auras compris.
Merci
-----Message d'origine-----
Bonjour Myriam,
En supposant que tes case à cocher soit dans un
formulaire :
Checkbox étant le nom de tes contrôles...
For a = 1 to NombreDeCaseàCocher
Me.Controls("Checkbox" & cstr(a)).value= true
next
Salutations!
"Myriam" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:
16e601c4c721$bbf60fd0$a501280a@phx.gbl...
Bonjour,
J'ai sur une feuille Excel plusieurs cases à cocher que
j'ai nommé Case1, Case2, Case3 etc..
J'aimerai les mettre toutes à jour grâce à une boucle
for...next, mais je ne sais comment les nommer.
J'ai essayé "Case" & CStr(i), mais ça ne marche pas.
Comment Faire ?
Merci
Ca marche.... Merci beaucoup Michdenis, tu es un crack.. Myriam
-----Message d'origine----- Bonjour Myriam,
Essaie ceci :
Tu dois déterminer le nom de la feuille selon ton application et le nombre de cases à cocher contenu dans la
feuille.
'-------------------------- Sub CocherLesCases()
Dim NombreDeCases As Integer
NombreDeCases = "A déterminer"
With Worksheets("Feuil4") 'A déterminer For A = 1 To NombreDeCases .Shapes("CheckBox" & A).OLEFormat.Object.Object.Value = True
Next End With
End Sub '--------------------------
Salutations!
"Myriam" a écrit dans le message de news:
505e01c4c737$da70a2c0$ La boîte à outils contrôle... Merci Myriam
-----Message d'origine----- Oui je sais mais quelle barre d'outils utilises-tu ? barre d'outils formulaire ou contrôle pour insérer tes
contrôles ?
Salutations!
a écrit dans le message de news: 17de01c4c735$8cc373b0$
Ce sont simplement des cases à cocher que je place sur ma feuille...
-----Message d'origine----- Bonjour Myriam,
Tu dois alors m'indiquer l'origine de tes checkbox : Barre d'outils formulaire ou barre d'outils "contrôle".
Salutations!
"Myriam" a écrit dans le message de news:
173b01c4c728$0a0956e0$ Merci Michdenis. Les à cocher sont sur ma feuille et je clique sur un bouton pour faire la mise à jour. Lorsque je suis ton exemple j'obtiens un message: 'Membre
de méthode ou de données introuvables' Peut-être me manque
t'il des références? Je ne suis pas très experte en VBA sur Execel comme tu l'auras compris. Merci
-----Message d'origine----- Bonjour Myriam,
En supposant que tes case à cocher soit dans un formulaire :
Checkbox étant le nom de tes contrôles...
For a = 1 to NombreDeCaseàCocher Me.Controls("Checkbox" & cstr(a)).value= true next
Salutations!
"Myriam" a écrit dans le message de news:
16e601c4c721$bbf60fd0$ Bonjour, J'ai sur une feuille Excel plusieurs cases à cocher que j'ai nommé Case1, Case2, Case3 etc.. J'aimerai les mettre toutes à jour grâce à une boucle for...next, mais je ne sais comment les nommer. J'ai essayé "Case" & CStr(i), mais ça ne marche pas. Comment Faire ? Merci
