Acrémenter case à cocher vba

Résolu
Bobodevil -  
bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   - 21 déc. 2020 à 23:19
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

ptitpanda Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   8
 
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+
0
bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
C'est exact ça marche. Merci
0
ptitpanda Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   8
 
Pas de pb tu peux passer en resolu :)
Bonne soirée
0
bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
Bien entendu. Comme fait-on? Je ne vois pas d'indication pour le faire.
0