Renommer plusieurs cases à cocher en VBA
Fermé
lucius
-
19 août 2020 à 10:50
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 19 août 2020 à 12:04
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 19 août 2020 à 12:04
A voir également:
- Renommer plusieurs cases à cocher en VBA
- Renommer plusieurs fichiers en même temps - Guide
- Renommer iphone - Guide
- Raccourci clavier case à cocher ✓ - Forum Excel
- Agrandir case à cocher excel ✓ - Forum Programmation
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
19 août 2020 à 12:04
19 août 2020 à 12:04
Bonjour,
en vba nous allons faire une boucle sur toutes les feuilles
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
ensuite sur chaque feuille une boucle sur les cases à cocher pour renommer celles qui ont besoin:
https://excel.developpez.com/faq/?page=ObjFormulaire#BoucleCasesCocher
pour commencer:
faire Alt F11 pour accéder à l'éditeur
Inserer Module et mettre ce code:
ensuite mettre le curseur sur BoucleCheckBoxes_Formulaire
et appuyer surtouche F5 du clavier
Voilà
en vba nous allons faire une boucle sur toutes les feuilles
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
ensuite sur chaque feuille une boucle sur les cases à cocher pour renommer celles qui ont besoin:
https://excel.developpez.com/faq/?page=ObjFormulaire#BoucleCasesCocher
pour commencer:
faire Alt F11 pour accéder à l'éditeur
Inserer Module et mettre ce code:
Option Explicit 'https://excel.developpez.com/faq/?page=ObjFormulaire#BoucleCasesCocher 'https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI Sub BoucleCheckBoxes_Formulaire() Dim Cb As CheckBox 'Déclare la variable objet Worksheet Dim Ws As Worksheet Application.ScreenUpdating = False 'ThisWorkbook correspond à l'objet classeur contenant la macro For Each Ws In ThisWorkbook.Worksheets 'Boucle sur les checkboxes formulaires de la Feuil For Each Cb In Ws.CheckBoxes If Cb.Caption = "moi" Then 'adapter ancien nom ' MsgBox Cb.Name Cb.Caption = "toi" ' adapter nouveau nom End If Next Cb Next Ws Application.ScreenUpdating = True End Sub
ensuite mettre le curseur sur BoucleCheckBoxes_Formulaire
et appuyer surtouche F5 du clavier
Voilà