Discussion :

[herved62]

J'ai repris une appli , mais qui a été modifiée depuis ( pas par moi)
et maintenant après l'accès aux USF suite à "login" ( via aussi USF)
on est en plein écran on ne voit que le rond et menu rapide en haut à gauche
Si je vais dans options rien ne se passe ????
j'ai pu relever le code d'entrée dans l'USF qui provoque cela :
Moi je ne connais pas cette méthode et j'aimerai revenir à l'affichage traditionnel pour travailler dessus

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
Private Sub UserForm_Initialize()
Dim hwnd As Long, style As Long, i%
hwnd = FindWindow(vbNullString, Me.Caption)
style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, style
DrawMenuBar hwnd
If Feuil11.Visible = xlSheetVisible Then
    For i = 1 To 10
        With Controls("CheckBox" & i)
            .Visible = True
            .Enabled = True
        End With
    Next i
End If
End Sub

Je ne peux joindre le fichier , lourd et plein d'infos perso ....

[PMO2017]

Bonjour,

Voir une éventuelle explication dans le code suivant

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
Private Sub UserForm_Initialize()
Dim hwnd As Long, style As Long, i%
 
'--- Cela sert à désactiver le bouton "Fermer" (croix rouge) du UserForm --
hwnd = FindWindow(vbNullString, Me.Caption)
style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, style
'--------------------------------------------------------------------------
 
'############################################
'### Ici la procédure DrawMenuBar est appelée.
'### Comme son code n'est pas communiqué, je
'### ne sais pas quelle est son action.
'### Essayez de flaguer l'instruction par une
'### quote (') et voyez ce qui se passe.
 
'DrawMenuBar hwnd
 
'############################################
 
If Feuil11.Visible = xlSheetVisible Then
    For i = 1 To 10
        With Controls("CheckBox" & i)
            .Visible = True
            .Enabled = True
        End With
    Next i
End If
End Sub

[patricktoulon]

bbonjour PMO

Code :

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

1
2
3
4
Declare Function DrawMenuBar Lib "user32" ( _
                 ByVal hwnd As Long) As Long 
 
'DrawMenuBar hwnd

redessine la captions selon les paramétré passé avec setwindowlong
parfois sans elle quand on supprime ou modifie la captions(les 3 boutons(min/max/fermer))ca se redessine mal

en gros ca corrige l'affichage
rien de plus

j'ajouterais qu'il y a beaucoup plus simple je donnerais un exemple avec plusieurs option se soi quand je rentre

[herved62]

Merci bien
ça fait avancer mais ensuite cela rebloque car tout semble verrouillé !!
heureusement que j'ai pu ajouter un bouton EXIT dans un USF
C'est devenu une grosse appli (bien conçue) je vais continuer à chercher
Sinon sans VBA , on peut pas ?? ( ce qu'il me semble)
le 2eme USF verrouillé :

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 UserForm_Initialize()
MultiPage1.Value = 0
Box3.RowSource = ("GRADES")    'remplit la combo
Box3.ListIndex = -1 'une ligne vide s'affiche au lancement
Box11.RowSource = ("groupes_sanguins")    'remplit la combo
Box11.ListIndex = -1  'une ligne vide s'affiche au lancement
Set Ws = Worksheets("SIGNALETIQUE")
    NbLignes = Ws.Range("A65536").End(xlUp).Row
 
    With Me.Box2
      .ColumnCount = 2
      .ColumnWidths = "-1;0"
    End With
 
   InitCombo1 'Lance le programme InitCombo1 développé ci-desous
   init_listing_recherche
 End Sub