CheckBox liée au choix d'une combo

Version imprimable

1 pièce(s) jointe(s)

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

Pièce jointe 629851
Code:

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

bonjour,

Code:

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

30/11/2022, 14h11
Dav1961

Bonjour Thumb Down,

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