Discussion :

[alsimbad]

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
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&
Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub UserForm_Initialize()
Dim hSysMenu As Long
Dim MeHwnd As Long
    MeHwnd = FindWindowA(vbNullString, Me.Caption)
    If MeHwnd > 0 Then
        hSysMenu = GetSystemMenu(MeHwnd, False)
        RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
    Else
        MsgBox "Handle de " & Me.Caption & " Introuvable", vbCritical
    End If
With CBMois
For i = 10 To -1 Step -1
.AddItem StrConv(Format(DateAdd("m", -i, Date), "mmmm"), vbProperCase)
Next
End With
Me.CBMois.Value = StrConv(Format(DateAdd("m", -1, Date), "mmmm"), vbProperCase)
Lannée = [g17]
End Sub

Bonjour le forum
j'avais trouvé sur ce forum de l'aide pour établir ce code qui fonctionne très bien. son but est d'incrire , a l'initialisation de l'usf, le nom du mois précédent le mois en cours dans le combobox CBMois. A l'époque, il correspondait exactement a ce que je cherchais et je n'avais pas été voir plus loin, mais en réalité, je n'arrive pas a comprendre comment il fonctionne. l'utilisation des constantes et des functions en tete de code ne me parle pas. quelqu'un peut il m'aider a traduire ça ? merci d'avance

[ucfoutu]

Bonjour (et salut à Ousk) :

Toute la première parise n'a en effet rien à voir avec ton propos... et a pour seul but celui d'inhiber la petite "croix de fermeture" dans la barre de menu.

[alsimbad]

ha, ok alors. effectivement, je n'avais pas remarqué que la croix était grisée. hé ben je vous remercie de vos lumières. bon wek end a tous