CheckBox VBA plusieurs lignes
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
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
-
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 -
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 -
ContributeurBonjour,
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
