Discussion :

[Dav1961]

Bonjour à tous,

Dans un formulaire, j'ai une Combo (ComboUtil), deux TextBox (TextPrenom, TextMdP).
Les deux TextBox se remplissent en fonction du choix fait dans la Combo (Nom de l'agent)
Ensuite j'ai 10 CheckBox dans une Frame (Frame2).
Je souhaite mettre en place un code qui me permettrait que les CheckBox soit à True si il y a un "X" sur la ligne où se trouve le Nom (les X correspondent à des droits d'accès).
J'ai commencé un début de code, mais les Checkbox ne se modifient pas au changement de la Combo.
Voici le début du code et je joins également le fichier
Merci par avance pour votre aide

Utilisateur.xlsm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ComboUtil_Change()
Dim Nom As Variant
With ThisWorkbook.Sheets("Accès")
        For Each Nom In .Range("A2:A" & .[A65000].End(xlUp).Row)
            If CStr(Nom) = CStr(Me.ComboUtil.Value) Then
                Me.TextPrenom.Value = .Cells(Nom.Row, 2)
                Me.TextMdP.Value = .Cells(Nom.Row, 3)
                If .Cells(Nom.Row, 4).Value = "X" Then Me.CheckBoutAgent2.Value = True
            End If
        Next
    End With
End Sub

[Thumb down]

bonjour,

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
Private Sub ComboUtil_Change()
With ThisWorkbook.Sheets("Accès")
    With .Range("A:A").Find(CStr(Me.ComboUtil.Value), LookIn:=xlValues)
        Me.TextPrenom.Value = .Cells.Offset(, 1)
        TextMdP = .Cells.Offset(, 2)
       CheckBoutAgent = .Cells.Offset(, 3) = "X" 'True/False
    End With
End With
'With ThisWorkbook.Sheets("Accès")
'        For Each Nom In .Range("A2:A" & .[A65000].End(xlUp).Row)
'            If CStr(Nom) = CStr(Me.ComboUtil.Value) Then
'                Me.TextPrenom.Value = .Cells(Nom.Row, 2)
'                Me.TextMdP.Value = .Cells(Nom.Row, 3)
'            End If
'        Next
'    End With
End Sub

[Dav1961]

Bonjour Thumb Down,

Merci beaucoup pour l'aide. Je vais pouvoir continuer avec les autres CheckBox.