Discussion :

[jeremV]

coucou a tous besoin d'aide concernant userform checkbox et mot de passe svp
merci car j'ai un probleme, lorsque je quitte et re-clique sur mon userbox alors que tout est coché , une checkbox est malheureusement pas coché et me pose un problème. Serieux vous m'aider svp ?

[jeremV]

petite précision je peux vous fournir le fichier en privé

[Invité]

Bonjour

Il faudrait fournir plus de détails, copie d'écran, code, etc..


Philippe

[jeremV]

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Public Sub ColonneF(V As String, Ligne As Long)
Me.Tag = Ligne
Dim T
Dim I As Integer
T = Split(V & "/", "/")
For I = 0 To UBound(T)
    Select Case T(I)
            Case "F.Defontaine"
                CheckBox1.Value = 1
            Case "J.C. Desnoyelle"
                CheckBox2.Value = 1
            Case "F.Dewallens"
                CheckBox3.Value = 1
            Case "O.Dindin"
                CheckBox4.Value = 1
            Case "S.Baldika"
                CheckBox5.Value = 1
            Case "D.Mathieu"
                CheckBox6.Value = 0
     End Select
 Next
 Me.Show vbModal
End Sub
 
Private Sub CheckBox6_Click()
 
If CheckBox6 Then
    'validation manuel par code.
    mdp = Application.InputBox("Veuillez saisir le mot de passe", "Autorisation de validation")
    If mdp <> "jeremy0" Then
        MsgBox "Mot de passe incorrect ! Tu n'es pas le C.U.E.T. Exploitation !", vbCritical
        Me.CheckBox6 = False
    Else
        ActiveCell.Interior.ColorIndex = 4
        ActiveCell.Font.ColorIndex = 3
    End If
    End If
End Sub
 
Private Sub CommandButton1_Click()
Dim T As String
Dim I As Integer
For I = 1 To 6
    If Me.Controls("CheckBox" & I).Value <> 0 Then
    If T = "" Then
        T = Me.Controls("CheckBox" & I).Caption
    Else
         T = T & "/" & Me.Controls("CheckBox" & I).Caption
    End If
    End If
Next
ActiveSheet.Range("F" & Me.Tag) = T
ActiveSheet.Range("F" & Me.Tag).WrapText = True
Unload Me
End Sub
 
Private Sub CommandButton2_Click()
Unload Me
End Sub

Faut il d'autre information?