CheckBox VBA plusieurs lignes

Fermé
alembik1213 Messages postés 31 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 11 septembre 2014 - 5 sept. 2014 à 21:52
alembik1213 Messages postés 31 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 11 septembre 2014 - 7 sept. 2014 à 08:03
Bonjour,

J'aimerai créer une suite de checkbox, je m'explique :

La condition est que "SI la checkbox T1 est activée dans la cellule A1, alors un "1" s'affiche sur la cellule "F1". Si la case n'est pas activée, alors rien ne s'affiche. Pareil pour les 3 colonnes suivantes

Là ou le problème se pose, c'est que j'aimerai que cette formule s'applique automatiquement sur les colonnes et lignes suivantes, via un super Code VBA.... =)

Voir fichier : https://www.cjoint.com/?3Ifv1DWuOOl

Alors je vous remercie d'avance et vous souhaite une agréable soirée et nuit,

A bientot

3 réponses

bonjour

tu peux faire un truc comme ca

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
Cancel = True
If Target = "þ" Then Target = "o" Else Target = "þ"
Target.Font.Name = "Wingdings"
End Sub

A+
Maurice
1
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 247
6 sept. 2014 à 00:42
Bonjour,

Elles ne servent pas à grand chose tes cases à cocher.
Pourquoi tu ne mets pas directement 1 sur un double-clic ?
Du coup pas besoin de doubler les colonnes.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column > 4 Then Exit Sub
    Cancel = True
    If Target = 1 Then Target = "" Else Target = 1
End Sub

eric
0
alembik1213 Messages postés 31 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 11 septembre 2014
6 sept. 2014 à 08:24
Erci,

Merci pour ta réponse (si si ça se fait) et c'est honnete.

Je vais finalement marquer ce sujet en "résolu" et reposer ma question différemment avec le sujet réel, car là je suis bloquée sur mon tableau et je ne trouve que des solutions alternatives.

Encore merci et à bientot peut etre,

Julie
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 247
6 sept. 2014 à 15:38
Ce n'est pas que c'est impossible, c'est simplement déconseillé de mettre trop d'objets sur une feuille.
Tôt ou tard excel se met à merdouiller...

eric
0
alembik1213 Messages postés 31 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 11 septembre 2014
7 sept. 2014 à 08:03
merci pour vos réponses. Le fichier complet se trouve un pue plus haut dans les messages. Je prends bonne note de vos remarques et vous dit à bientot,

Julie
0