Discussion :

[juvba]

Bonjour,

Je me retrouve bloqué sur un code. J'aimerai faire apparaitre un bouton "admin" et un label si dans un tableau j'ai la condition "oui" sinon, je ne le fait pas apparaitre. il faut que de toute façon je puisse continuer sans appuyer sur ce bouton.
il faut imaginer une liste de personne et en face de chaque personne un numéro (ID de badge) quand on appelle l'ID ça rempli la textbox suivante (nom/prénom) et il faut bien que je garde ça.
J'ai essayer plusieurs trucs où j'arrive à un presque résultats, mais qui ne me font pas apparaitre les valeurs des textbox si ma condition est "non". Je suis tout près ...

En PJ le bout de programme .

[ARTURO83]

Bonjour,

Si j'ai bien compris:

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
Private Sub Textbox2_AfterUpdate()
    ' Rempli la TB3 avec la condition de la TB2
    Me.CommandButton2.Visible = False
    Me.Label4.Visible = False
    If Not IsEmpty(TextBox2.Value) Then
        Set trouve = Workbooks("ClasseurA.xlsm").Sheets("personnel").Range("A1:B" & Workbooks("ClasseurA.xlsm").Sheets("personnel").Range("A" & Rows.Count).End(xlUp).Row).Find(what:=TextBox2.Value, lookat:=xlWhole)
        If IsNumeric(TextBox2.Value) Then
            If Not trouve Is Nothing Then
                TextBox3 = trouve.Offset(0, 1).Value
                If Len(TextBox2.Value) = 1 Then TextBox2.SetFocus
                If trouve.Offset(0, 2).Value = "OUI" Then
                    Me.CommandButton2.Visible = True
                    Me.Label4.Visible = True
                End If
            End If
        End If
    End If
End Sub

Cdlt

[juvba]

Bonjour ARTURO83,

Que dire de plus que .... c'est parfait, merci beaucoup