Discussion :

[jeremV]

Bonjour, j'ai un petit problème je désire sur une userform (coche), de cocher une personne que celle-ci se mettre la valeur de la personne dans la collone F mais le probleme c'est qu'il le fait sur la première ligne et mets la valeur sur la ligne supérieur :/ et de plus lorsque je selectionne plusieur personne, il ne se colle pas l'un derrière l'autre dans la case.

Et je voudrais une valeur propre pour chaque ligne et de verouiller la selection des cases cochés :/.



Cette userform s'active en cliquant dans la collone "F".

Merci d'avance pour votre aide

[defluc]

Pourrais-tu fournir une version simplifiée de ton projet car il donne des dizaines d'erreurs avec le message "Bibliothèque introuvable"

[Invité]

bonjour,

[jeremV]

Juste impeccable merci beaucoup !!!!!!!

[jeremV]

Bonjour, j’ai essayé de ré-adapter votre fichier sur mon tableau de bord que j’ai depuis pofiner mais j’ai des problèmes je voudrais mettre un mot de passe sur D.Mathieu dans les récepteur mais j’ai essayé et ça ne fonctionner pas. Et je suis embêter je veux bloquer cette feuille qui est déjà bloquer par le mot de passe : jeremy0 mais le problème a chaque fois qu’il mets une valeur dans récepteur ça me mets le message d’alerte comme quoi il est proteger contre les valeur :/ si vous pouviez m’aider svp ça serait sympa. Merci d’avance.

[Invité]

Code :

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

1
2
    ActiveSheet.Unprotect "jermy0"
    ActiveSheet.Protect "jermy0", DrawingObjects:=True, Contents:=True, Scenarios:=True

je l'ai fait avec l'enregistreur de macro après c'est de la déduction!

[jeremV]

Bonjour merci pour votre réponse par contre je dois mettre ou c'est partie de programmation svp ? Et concernant la protection je peux faire comment ?

[Invité]

avant et après toutes écritures dans la page

Code :

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

1
2
3
    ActiveSheet.Unprotect "jermy0" 'avant toute écriture dans la page
'Code
    ActiveSheet.Protect "jermy0", DrawingObjects:=True, Contents:=True, Scenarios:=True 'aprèes toute écriture dans la page

en revanche si tu fais ça le double click pour ouvrir le UserForm Ko.

si tu le met:

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
 ActiveSheet.Unprotect "jermy0"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Protect "jermy0", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

là il n'y a plus de raison de protéger la feuille!

il peux en revanche demander à l'utilisateur de saisir le pasword:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Dim Password As String
Password = InputBox("Entez votre PassWord", "PassWord")
If Password <> "" Then ActiveSheet.Unprotec Password
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Protect "jermy0", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

[jeremV]

pouvez vous m''expliquer la fonction de la programmation car moi de base il y a une protection de la feuille mais alors il protege quoi les autres ?

Parcontre comment je peux mettre un mot de passe sur la checkbox6 svp sans perturber la programmation merci

car j'ai fait un petit bout de macro en plus de la tienne mais lorsque je veux revenir sur l'userform une fois que tous le monde a valider, il me redemande le mot de passe alors qu'il n'a pas a me le redemander puisque il s'applique juste a checkbox6 donc je comprend pas du tout , je te laisse le fichier modifier en pj? Merci d'avance.

[Overcrash]

Je mets ici ce que je t'ai dis sur le chat à ce sujet :

19:20 [Overcrash]: voila le code corrigé de ta page LecturePoint, ton erreur est d'initialisé ta box à 1 alors qu'il faut un mot de passe pour ce faire
19:20 [Overcrash]: et manquait une déclaration de variable aussi ...

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
60
61
 
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()
 
Dim mdp As String
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

Théoriquement d’après ce que tu m'as dis cela règle ton soucis.

A chaque fois que tu cliquera de nouveau sur la CheckBox6 il te redemande le mot de passe. Si tu veux une saisie unique dans ce cas il faut que tu stock quelque part que le mot de passe à déjà été saisi.

Je te conseille vivement de debug souvent step by step pour bien comprendre ou est le soucis ça va t'aider énormément.

[jeremV]

coucou donc j'ai toujours un probleme avec la ckecbox 6 elle me demande pu le mot de passe mais le probleme maintenant c'est que la checkbox6 est plus coché :/