Bouton remise à blanc d'une page avec coches
Résolu
Aragorn001
Messages postés
101
Statut
Membre
-
Aragorn001 Messages postés 101 Statut Membre -
Aragorn001 Messages postés 101 Statut Membre -
Bonjour,
J'ai une feuille excel dans laquelle j'ai inséré des cases à cocher et des listes déroulantes. Il s'agit d'un bon de commande de matériel à envoyer par mail. Pour chaque nouvelle commande - histoire de ne pas recommander les mêmes articles - je voudrais que tout soit effacé.
Je voudrais savoir s'il est possible d'insérer en début de formulaire un bouton sur lequel cliquer pour remettre mes coches à blanc (soit en position faux).
D'avance merci pour vos renseignements.
J'ai une feuille excel dans laquelle j'ai inséré des cases à cocher et des listes déroulantes. Il s'agit d'un bon de commande de matériel à envoyer par mail. Pour chaque nouvelle commande - histoire de ne pas recommander les mêmes articles - je voudrais que tout soit effacé.
Je voudrais savoir s'il est possible d'insérer en début de formulaire un bouton sur lequel cliquer pour remettre mes coches à blanc (soit en position faux).
D'avance merci pour vos renseignements.
A voir également:
- Bouton remise à blanc d'une page avec coches
- Remise a zero pc - Guide
- Supprimer une page word - Guide
- Imprimer tableau excel sur une page - Guide
- Diagnostic bouton photo - Accueil - Outils
- Comment traduire une page internet - Guide
4 réponses
Entre le Sub et le End Sub, avec ces 4 lignes pour chacune des cases, qui portent un nom (Que tu vois dans la zone nom quand tu les sélectionnes avec un clic droit)
Pas besoin de t'occuper du reste. (B11, C11)
Cela dit, tu ne m'avais pas dit qu'elles étaient liées à des cellules. Il suffit du coup de mettre entre le Sub et le End Sub:
Range("B11").Value = "False"
Range("C11").Value = "False"
Range("D11").Value = "False"
...
Pas besoin de t'occuper du reste. (B11, C11)
Cela dit, tu ne m'avais pas dit qu'elles étaient liées à des cellules. Il suffit du coup de mettre entre le Sub et le End Sub:
Range("B11").Value = "False"
Range("C11").Value = "False"
Range("D11").Value = "False"
...
Tu affiches la barre d'outils Formulaire, dedans tu prends l'outil Bouton de commande et tu positionnes ton bouton dans ta feuille. Excel va te demander d'affecter une macro, tu cliques sur le bouton Nouvelle et tu écris ces 4 lignes pour chacune de tes cases à cocher.
Décidément je suis nul...
J'ai créé le bouton.
Mes cases à cocher sont :
A11 : la case à cocher
B11 : vrai/faux
C11 : mon texte qui change si coché ou pas
Idem A12, etc
Quand je crée mon bouton 'effacer" j'affecte une macro puis nouvelle et là je tombe en visual basic où il me met ceci :
Sub Bouton176_Clic()
End Sub
Je mets où ton script ? Dans chaque case à cocher - nouvelle, etc ?
J'ai créé le bouton.
Mes cases à cocher sont :
A11 : la case à cocher
B11 : vrai/faux
C11 : mon texte qui change si coché ou pas
Idem A12, etc
Quand je crée mon bouton 'effacer" j'affecte une macro puis nouvelle et là je tombe en visual basic où il me met ceci :
Sub Bouton176_Clic()
End Sub
Je mets où ton script ? Dans chaque case à cocher - nouvelle, etc ?
Ca à l'air de fonctionner, je n'ai pas encore tout encodé mais jusqu'ici c'est juste. par contre, petit ennui, le lien avec la cellule suivante est que si la condition est remplie mon texte devient gras.
Pour les cases à cocher, pas de problème, le fait d'effacer donne comme valeur à ma cellule B(x) FAUX. Le problème se pose pour les listes déroulantes. Lorsque dans ma liste j'ai 0 (donc rien de commandé) le texte est normal, si je mets 1 il se met en gras.
Lorsque j'applique la fonction effacer, ma cellule B(x) se remet à FAUX et donc rien dans ma liste et donc mon texte reste en gras. Il faudrait que en réinitialisant ma feuille que 0 apparaisse dans la liste pour que mon texte ne soit plus en gras. Je sais pas très clair :(. Encore merci pour le temps passé à mon petit problème.
A la place de "False" j'ai mis 1 et mes listes déroulantes reprennent leur configuration de départ.
Merci pour le coup de main
@+