Sujet Précédent Sujet Suivant

Faire fonctionner une case à cocher sur excel

Résolu/Fermé
nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 13 oct. 2009 à 16:12
nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 13 oct. 2009 à 23:52
Bonjour,

Je souhaiterai intégrer une case à cocher sur une feuille excel qui permettrait en la cochant de remplir les valeurs de 3 cellules.

Par exemple, en cochant la case appelée "séance", la cellule en A1 prendrai la valeur 3500, la cellule en A2 se remplirai avec 1:20 (pour 1h20) et la cellule en A3 prendrai la valeur 5.

Ainsi, avant que ma case soit cochée les cellules A1, A2 et A3 seraient vides puis une fois la case cochée ces cellules prendraient les valeurs que j'ai indiqué.

J'aimerai aussi que les cellules redeviennent vides si toutefois je décochais la case.

Est-ce possible et comment dois-je faire ? (je suis vraient nul en VBA)

Merci d'avance.
A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
13 oct. 2009 à 17:31
bonjour,

Pas besoin de VBA pour traiter ce problème !!!

avec la barre outils formulaire case à cocher
avec format de controle
tu choisis une cellule liée par exemple: E14 (généralementon cache la cellule sous la case à cocher pour faire joli)
dans A1 tu aurais cette fomule
=Si(E14;3500;"")
tu n'as pas besoin de marquer si(E14=VRAI.....etc) car E14 renvoie vrai ou faux (coché-pas coché)
m^me punition pour A2 et A3 (attention au format pour A2)

avec la boite à outil contrôle (checkbox)
clic droit-propriétés-linked cell saisir E14
pareil après
9
Réponse 2 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
13 oct. 2009 à 17:04
Re
Affichage / Barre d'outils / Boîte à outils contrôles
Tu cliques sur la case à cocher et tu la dessines dans ta feuille (ou tu veux, aucune importance)
Double clic sur la case à cocher et colles ce code :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[A1] = 3500
[A2] = "1:20"
[A3] = 5
Else
[A1] = ""
[A2] = ""
[A3] = ""
End If
End Sub
ferme la fenêtre visual basic et dans la barre d'outils "boite à outils controles" désactive le mode création.
1
Réponse 3 / 3
nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
13 oct. 2009 à 23:52
Ok merci à vous ça fonctionne nickel.
0

Discussions similaires

Cocher un case sur Word
rikano -
rikano -

2 réponses
URGENT - codes ALT + ???
infotruc -
infotruc -

2 réponses