Formulaire case à cocher

D

danielco

XLDnaute Accro

• 22 Septembre 2019

• #2

Bonjour,

Que veux-tu mettre dans la BDD ?

Daniel

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 22 Septembre 2019

• #3

Bonjour le forum
Bonjour Yann71, danielco

Essai avec ceci :

VB:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[A1] = ChrW(&H2713)
End If
End Sub

@+ Eric c

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 22 Septembre 2019

• #4

Bonjour Eric, je te remercie pour ton aide, il manque toutefois une fonction, à savoir que si je décoche la case à coché le "v" ne s'affiche plus

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 22 Septembre 2019

• #5

Bonjour Daniel, ce que je souhaite mettre dans ma base de données sont des information données depuis un formulaire de saisie USERFORME comprenant des textbox et des combobox permettant d'alimenter une BDD sous forme de tableau

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 22 Septembre 2019

• #6

danielco à dit:

Bonjour,

Que veux-tu mettre dans la BDD ?

Daniel

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 22 Septembre 2019

• #7

danielco à dit:

Bonjour,

Que veux-tu mettre dans la BDD ?

Daniel

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 22 Septembre 2019

• #8

Bonjour Daniel, ce que je souhaite mettre dans ma base de données sont des information données depuis un formulaire de saisie USERFORME comprenant des textbox et des combobox permettant d'alimenter une BDD sous forme de tableau

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 22 Septembre 2019

• #9

Re.
Il suffit d'ajouter une ligne de code

VB:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[A1] = ChrW(&H2713)
Else: [A1] = ""
End If
End Sub

@+ Eric c

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 22 Septembre 2019

• #10

Eric C à dit:

Re.
Il suffit d'ajouter une ligne de code

VB:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[A1] = ChrW(&H2713)
Else: [A1] = ""
End If
End Sub

@+ Eric c

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 22 Septembre 2019

• #11

Merci Eric c'est ce que je recherchais, bonne soirée

 

Vote positif 0 Vote négatif