Bouton remise à blanc d'une page avec coches
Résolu/Fermé
Aragorn001
Messages postés
96
Date d'inscription
jeudi 5 juin 2008
Statut
Membre
Dernière intervention
26 décembre 2020
-
29 oct. 2008 à 16:47
Aragorn001 Messages postés 96 Date d'inscription jeudi 5 juin 2008 Statut Membre Dernière intervention 26 décembre 2020 - 30 oct. 2008 à 18:41
Aragorn001 Messages postés 96 Date d'inscription jeudi 5 juin 2008 Statut Membre Dernière intervention 26 décembre 2020 - 30 oct. 2008 à 18:41
A voir également:
- Bouton remise à blanc d'une page avec coches
- Remise a zero pc - Guide
- Supprimer une page word - Guide
- Comment traduire une page - Guide
- Créer une page facebook - Guide
- Imprimer tableau excel sur une page - Guide
4 réponses
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
29 oct. 2008 à 17:52
29 oct. 2008 à 17:52
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"
...
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
30 oct. 2008 à 17:38
30 oct. 2008 à 17:38
Désolée, pas eu le temps de réagir entre les posts 6 et 7... Mais tu as trouvé tout seul.
Aragorn001
Messages postés
96
Date d'inscription
jeudi 5 juin 2008
Statut
Membre
Dernière intervention
26 décembre 2020
1
30 oct. 2008 à 18:41
30 oct. 2008 à 18:41
Pas de soucis, suffisait de réfléchir un peu... et d'afficher toutes mes colonnes (celles avec les vrai/faux) pour me rendre compte qu'il mettait "faux" à la place de "1".
Merci du coup de main
Merci du coup de main
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
29 oct. 2008 à 17:03
29 oct. 2008 à 17:03
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOff
End With
With Selection
.Value = xlOff
End With
Aragorn001
Messages postés
96
Date d'inscription
jeudi 5 juin 2008
Statut
Membre
Dernière intervention
26 décembre 2020
1
29 oct. 2008 à 17:08
29 oct. 2008 à 17:08
Salut,
Mais je mets ça où :) ?
Je suis absolument nul dans ce genre de travail, un peu (beaucoup) d'explications ne seraient pas inutiles.
Merci
Mais je mets ça où :) ?
Je suis absolument nul dans ce genre de travail, un peu (beaucoup) d'explications ne seraient pas inutiles.
Merci
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
29 oct. 2008 à 17:12
29 oct. 2008 à 17:12
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.
Aragorn001
Messages postés
96
Date d'inscription
jeudi 5 juin 2008
Statut
Membre
Dernière intervention
26 décembre 2020
1
29 oct. 2008 à 17:27
29 oct. 2008 à 17:27
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 ?
29 oct. 2008 à 18:17
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.
29 oct. 2008 à 21:29
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
@+