CheckBox VBA plusieurs lignes
alembik1213
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
alembik1213 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
alembik1213 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- CheckBox VBA plusieurs lignes
- Écrire plusieurs lignes dans une cellule excel mac - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
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
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
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.
eric
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
