Discussion :

[chris09300]

bonjour
je le code suivant:
et j'aimerais remplacer le combobox, par des cases a cocher. Pour moi je pense que visuellement cela est plus rapide que de lister dans le combobox
le probleme pour moi c'est que j'ai 50 cases a cocher, et je ne sais comment faire. j'ai trouve le code suivant mais je ne sais pas comment l'adapter sur mon code ci dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[a3] = "J'aime Excel"
Else
[a3] = "Je n'aime pas Excel"
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Fin_commande_Click()
Unload Me
End Sub
 
Private Sub Userform_Initialize()
DTPicker1.Value = Date
Dim WsS As Worksheet
Dim DerLigS As Long, R As Long
Set WsS = Sheets("Data")
DerLigS = WsS.Cells(Columns(1).Cells.Count, 16).End(xlUp).Row
For R = 2 To DerLigS 'Boucle sur les lignes de la col. A
   consultant.CB_numero.AddItem WsS.Cells(R, 1) 'Ajout des N° au Combobox
Next R
End Sub
Private Sub CommandButton2_Click()
Dim WsS As Worksheet
Dim MaRech As Range, MaPlage As Range
Dim DerLigS As Long, DerCol As Long
 
Set WsS = Sheets("Data")
DerLigS = WsS.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Set MaPlage = WsS.Range(WsS.Cells(1, 1), WsS.Cells(DerLigS, 1))
Set MaRech = MaPlage.Find(consultant.CB_numero, LookIn:=xlValues)
DerCol = WsS.Cells(MaRech.Row, WsS.Rows(MaRech.Row).Cells.Count).End(xlToLeft).Column '
 
WsS.Cells(MaRech.Row, DerCol + 1) = CDate(DTPicker1) & " à " & consultant.Textbox1.Value & _
                                         Chr(10) & consultant.ComboBox1.Value
'consultant.Hide
'Unload consultant
Textbox1.Value = ""
ComboBox1.Value = ""
 
End Sub

merci d'avance pour vos reponse.
cris

[Theze]

Bonsoir,

Cela dépend de comment tu veux utiliser l'état des cases à cocher ? Tu peux faire une boucle sur l'ensemble de tes cases et récupérer leur propriété Caption ou Tag ou autre encore mais dans tous les cas, il faut savoir de quelle façon tu veux exploiter leur état.

Hervé.

[chris09300]

Bonsoir herve
je souhaiterais quand je clique sur la case a cocher, que la valeur se mette a suivre de ma date et de mon texbox.
tu peux regarder sur l'extrait de mon code que j'ai actuelement.
c'est pour remplacer combobox1 ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WsS.Cells(MaRech.Row, DerCol + 1) = CDate(DTPicker1) & " à " & consultant.Textbox1.Value & _
                                         Chr(10) & consultant.ComboBox1.Value

merci d'avance
cris

[Theze]

Bonjour,

Donc si j'ai bien compris, tu veux récupérer le caption du CheckBox si elle est cochée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub CheckBox1_Click()
 
    If CheckBox1.Value = True Then
        WsS.Cells(MaRech.Row, DerCol + 1) = CDate(DTPicker1) & " à " & consultant.TextBox1.Value & _
                                            Chr(10) & consultant.CheckBox1.Caption
 
    End If
 
End Sub

Hervé.

[chris09300]

parfait herve, rien a dire toujours de bonne reponse.
merci a tous du forum pour l'aide que vous apporter.
cris