probleme checkbox

poussy67 · 2 Mars 2008

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 · 2 Mars 2008

Re : probleme checkbox

Bonjour à tous,

Peux tu essayer avec :

Code:

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 · 2 Mars 2008

Re : probleme checkbox

Bonjour

poussy67 à dit:
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 · 2 Mars 2008

Re : probleme checkbox

IMPECABLE

MERCI BEAUCOUP le forum pour votre aide

probleme checkbox

poussy67

XLDnaute Occasionnel

Pièces jointes

JCGL

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

poussy67

XLDnaute Occasionnel

Discussions similaires

probleme checkbox

poussy67

XLDnaute Occasionnel

Pièces jointes

JCGL

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

poussy67

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency