Discussion :

[FlorentP]

Bonjour à tous,

Sur mon fichier excel j'ai une check box sur chaque ligne. Je souhaiterais que lorsqu'on clique sur chaque check box la cellule se situant juste à droite sur la même ligne prenne la valeur 1. Puis lorsqu'on la décoche que cette même cellule prenne la valeur 0.

J'ai essayé ce bout de code mais sans succès :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CheckBox9_Click()
 
If CheckBox9.Value = True Then
CheckBox9.LinkedCell.Offset(0, 1).Value = 1
 
ElseIf CheckBox9.Value = False Then
CheckBox9.LinkedCell.Offset(0, 1).Value = 0
 
End If
End Sub

Je pense que le pb vient du fait que je ne sélectionne pas correctement la cellule qui se trouve juste à droite de la cellule contenant la checkbox mais je ne parviens pas à le résoudre. Quelqu'un pourrait-il me renseigner ??

Merci d'avance

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CheckBox9_Click()
 
Range(CheckBox9.LinkedCell).Offset(, 1) = Abs(CheckBox9)
End Sub

[FlorentP]

Merci pour ta réponse rapide mercatog.

Mais j'ai un problème quand je lance la macro, il s'affiche

'can't execute code in break mode'

ou

run-time error '424'

[Philippe Tulliez]

Bonjour,
Le code de Mercatog que je salue au passage fonctionne parfaitement.
Au delà de ton problème, je me pose des questions quant à ta demande.
La propriété LinkedCel d'un contrôle ActiveX sert à écrire dans la cellule définie dans cette propriété la valeur du contrôle. Plutôt que d'écrire une colonne à droite de la cellule liée la valeur du contrôle, ne serait-ce pas plus simple de modifier l'adresse de la cellule liée et conserver sa valeur initiale VRAI/FAUX à la place de 1 et 0 ?

[FlorentP]

Merci Philippe,

En fait j'avais besoin d'une nouvelle colonne avec des 0 et des 1 car cherchant le produit de plusieurs cellules il était plus simple pour moi de multiplier directement par 1 ou 0. Ca fonctionne maintenant avec le code de mercatog, merci à toi

J'en profite pour poser une 2ème question sans créer un 2ème thread : je cherche à faire en sorte que quand on coche une check-box la ligne (pas la ligne entière, seulement les colonnes de mon tableau) sur laquelle se trouve la checkbox se mette en bleu. Le problème est que je n'arrive pas à sélectionner la ligne sur laquelle se trouve la check-box...

[Philippe Tulliez]

Bonjour,

En fait j'avais besoin d'une nouvelle colonne avec des 0 et des 1 car cherchant le produit de plusieurs cellules il était plus simple pour moi de multiplier directement par 1 ou 0. Ca fonctionne maintenant avec le code de mercatog, merci à toi

Juste pour info, VRAI et FAUX se multiplient parfaitement avec Excel (VRAI = 1 et FAUX = 0)
Pour ta deuxième question, tu dois connaître la ligne puisque j'imagine que c'est la ligne où se trouve la cellule liée et le nombre de colonnes doit être connu par l'objet Range de ton tableau..