Voici un petit bout de code qui me pose problème :
J'ai un bouton qui déclanche la desactivation de tous les autres controles de mon form et affiche un picturebox
mais lorsque je tente de réactiver le bouton ("schéma") il refuse !
le enabled reste obstinément à false !!!!


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
Private Sub Schéma_Click()
Dim ceci As Control
Dim ligne%, Confirm%
 
ligne = LinesGrid.Row
    If ligne = 1 And Trim(LinesGrid.TextMatrix(ligne, 0)) = "" Then Exit Sub
    If ligne = 0 Then MsgBox "Sélectionnez une ligne !", vbOKOnly: Exit Sub
 
    RSLines.AbsolutePosition = ligne
 
For Each ceci In Me.Controls
    If (ceci.Name) <> "Schéma" Then
     ceci.Enabled = False
    End If
    Next
 
  DoEvents
 
 
 
        Call Dessin_Coude(Elbpic)
        Elbpic.Refresh
        Elbpic.Visible = True
        Call clear_currentelbow
        Schéma.Caption = "Retour"
        Schéma.Enabled = True
 
        DoEvents