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 Mise à jour en boucle

Mise à jour en boucle

11 réponses
Avatar
Myriam
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
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
1 2
Avatar
michdenis
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
Avatar
Myriam
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


.



Avatar
Pounet95
Bonjour,
Peut-être essayer ceci :

Sub Checkbox_Vrai()
For i = 1 To 3
ActiveSheet.OLEObjects("Case" & i).Object.Value = 1
Next i
End Sub

Est-ce que ça marche ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"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
Avatar
gilbert
Bonjour

en supposant que tes cases à cocher soient dans un userform

Private Sub UserForm_Initialize()
nbcase = UserForm1.Controls.Count
For a = 1 To nbcase
Me.Controls("Checkbox" & CStr(a)).Value = True 'ou False suivant que ton
choix
Next
End Sub

salutations

Gilbert

"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
Avatar
gilbert
oups

Private Sub UserForm_Initialize()
nbcase = UserForm1.Controls.Count
For a = 1 To nbcase - 1
Me.Controls("Checkbox" & CStr(a)).Value = False 'ou False suivant ton
choix
Next
End Sub

mes excuses

Gilbert
"gilbert" a écrit dans le message de
news:%
Bonjour

en supposant que tes cases à cocher soient dans un userform

Private Sub UserForm_Initialize()
nbcase = UserForm1.Controls.Count
For a = 1 To nbcase
Me.Controls("Checkbox" & CStr(a)).Value = True 'ou False suivant que
ton

choix
Next
End Sub

salutations

Gilbert

"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




Avatar
michdenis
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


.



Avatar
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


.




.




Avatar
michdenis
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


.




.




Avatar
Myriam
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


.




.




.





Avatar
michdenis
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


.




.




.





1 2