probleme checkbox

[poussy67]

Re bonjour le forum

J'ai un soucis avec les checkbox, dans USF de saisi j'ai 1 textbox et plusieur checkbox qui doivent me mettre un X dans divers cellules et je n'arrive pas a trouver une formule.

Je vous joins le fichier exemple

merci d'avance pour votre aide

 

[JCGL]

Re : probleme checkbox

Bonjour à tous,

Peux tu essayer avec :

Option Explicit
Private Sub CommandButton1_Click()
Dim L As Integer
Application.ScreenUpdating = False

L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil1").Range("A" & L).Value = TextBox1.Value
If CheckBox1.Value = True Then Range("B" & L).Value = "X"
If CheckBox2.Value = True Then Range("C" & L).Value = "X"
If CheckBox3.Value = True Then Range("D" & L).Value = "X"

Application.ScreenUpdating = True
End Sub

A+

 

[gilbert_RGI]

Re : probleme checkbox

Bonjour

Re bonjour le forum

J'ai un soucis avec les checkbox, dans USF de saisi j'ai 1 textbox et plusieur checkbox qui doivent me mettre un X dans divers cellules et je n'arrive pas a trouver une formule.

Je vous joins le fichier exemple

merci d'avance pour votre aide

Voilà pour les checkbox

 

[poussy67]

Re : probleme checkbox

IMPECABLE

MERCI BEAUCOUP le forum pour votre aide