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