CheckBox VBA plusieurs lignes

Question

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

Configuration: Windows / Firefox 31.0

eriiic · Answer

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

Maurice · Answer

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

alembik1213 · Answer

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

CheckBox VBA plusieurs lignes

3 réponses

Discussions similaires

Newsletters