XL 2019 FORMULAIRE DE SAISIE

[Punkerr900]

BONJOUR A TOUS

J ai réalisé un formulaire de saisie pour alimenter une base de donnée sur ce formulaire il y a des checkbox que je voudrais une fois qu' elles sont coché sa me mette 1 au lieu de vrai et 0 si elle ne sont pas coché jai essaye un code vba mais sa me marque toujours vrai ou faux. Si une âme charitable pouvez me venir en aide sa serai vraiment cool je vous joint le fichier
merci d avance pour votre aide

 

[sylvanu]

Bonjour Punkerr,
il doit exister moins barbare.
Mais sans rien toucher à votre code il suffit d'ajouter ces quelques lignes :

For i = 1 To 20
    If ActiveCell.Offset(0, i) = True Then ActiveCell.Offset(0, i) = 1
    If ActiveCell.Offset(0, i) = False Then ActiveCell.Offset(0, i) = 0
Next i

 

[pierrejean]

Bonjour Punkerr900
teste ceci
ActiveCell.Offset(0, 4).Value = IIf(ckbdepanneuse, 1, 0)

 

[Punkerr900]

Bonjour Punkerr,
il doit exister moins barbare.
Mais sans rien toucher à votre code il suffit d'ajouter ces quelques lignes :

For i = 1 To 20
    If ActiveCell.Offset(0, i) = True Then ActiveCell.Offset(0, i) = 1
    If ActiveCell.Offset(0, i) = False Then ActiveCell.Offset(0, i) = 0
Next i

merci mille fois vous êtes des génies

 

[frederio]

bonjour

https://www.excel-downloads.com/threads/creer-un-formulaire-sur-excel-vba.20049609/

merci