Acrémenter case à cocher vba [Résolu]

Signaler
-
Messages postés
3
Date d'inscription
samedi 12 décembre 2020
Statut
Membre
Dernière intervention
21 décembre 2020
-
Bonjour à tous,
J'ai créer un calendrier excel dans lequel j'ai inséré des cases-à-cocher. Il y en a beaucoup, mais peu importe ça marche !
Quand je coche l'une d'entre elle la case lié m'indique VRAI et si je décoche elle indique FAUX.
Jusque là normal.
Quand je saisi directement dans la cellule liée, la case-à-cochée est cochée, ou non selon se que j'ai saisié dans la cellule liée. Normal j'imagine. C'est justement cette cette propriété que j'aimerai exploité par VBA.
Or quand je renseigne les cellules liées par une action VBA (VRAI/FAUX) la/les cases-à-chochées reste nt dans leur état initial.

Quelqu'un serait-il m'indiquer ce que je dois faire dans ma procédure VBA pour que les cases- à-cochées prenent en considération les modifications

Pour complément; ma procédure VBA:

 Const NBCASE1& = 31 'les lignes du calendrier
 Const NBCASE2& = 12 'les colonnes du calendrier
 Dim COL& 
 Dim LIG&
For COL = 1 To NBCASE2
For LIG = 1 To NBCASE1
If Cells(LIG + 4, COL + 25) = "" Then ' Plage ou ce trouve l'info à traiter
Cells(LIG + 4, COL + 37).Value = "FAUX"  ' Plage de cellule à renseigner par VRAI ou FAUX
Cells(LIG + 4, COL + 37).Interior.Color = RGB(252, 213, 180)
Else
Cells(LIG + 4, COL + 37).Value = "VRAI"
Cells(LIG + 4, COL + 37).Interior.Color = RGB(155, 155, 155)
End If
Next
Next
 End Sub


Merci infiniment pour vos éclairages

4 réponses

Messages postés
54
Date d'inscription
dimanche 5 août 2012
Statut
Membre
Dernière intervention
4 janvier 2021
6
Bonjour,

oui tu peux l'exploiter mais attention, le "vrai", "faux" que tu utilises sont des chaines de caractères alors que pour ta case à cocher il faut que ce soit des booléens càd "TRUE" ou "FALSE"
replace ton "VRAI" par TRUE et "FAUX" par FALSE sans guillemet et cela fonctionnera :)

A+
Messages postés
3
Date d'inscription
samedi 12 décembre 2020
Statut
Membre
Dernière intervention
21 décembre 2020

C'est exact ça marche. Merci
Messages postés
54
Date d'inscription
dimanche 5 août 2012
Statut
Membre
Dernière intervention
4 janvier 2021
6
Pas de pb tu peux passer en resolu :)
Bonne soirée
Messages postés
3
Date d'inscription
samedi 12 décembre 2020
Statut
Membre
Dernière intervention
21 décembre 2020

Bien entendu. Comme fait-on? Je ne vois pas d'indication pour le faire.