Private Sub UserForm_Activate()
Dim I&, TRT$
If Not lance Then
Unload Me
MsgBox " c'est une boite de dialogue plus un userform" & vbCrLf & "il se lance uniquememt par une de ses deux fonctions " & vbCrLf & """ShowX"" ou ""ShowTopLeft"""
Exit Sub
End If
If Me.top = 0 Then
valeur = valeur
Me.Hide
End If
If Not Obj Is Nothing Then
Select Case TypeName(Obj)
Case "Label"
OldValue = Obj.Caption
Case "TextBox", "Range"
OldValue = Obj.Value
Case "CommandButton"
OldValue = Obj.Caption
Case "Shape"
OldValue = Obj.TextFrame.Characters.Text
End Select
Else
'
End If
Select Case region
Case 0
TRT = " US - Calendar"
ldate = "Today is" & vbCrLf & Format(Date, "mm/dd/yyyy")
Case 1
TRT = "Calendrier - Français"
ldate = "Aujourd'hui" & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 11
TRT = "amzeriadur g. - Breton"
ldate = "hiziv" & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 2
TRT = "CANADIAN - Calendrier"
ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
Case 12
TRT = "calendario - italiano"
ldate = "Oggi" & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 22
TRT = "CANADA(QUEBEC) - Calendrier"
ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
Case 13
TRT = "Suisse - Calendrier"
ldate = "Aujourd'hui" & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 14
TRT = "calendario españa"
ldate = " Hoy " & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 15
TRT = "calendário português"
ldate = " Hoje " & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 33
TRT = "GB - Calendar"
ldate = "Todays is" & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 35
TRT = "Deutscher Kalender"
ldate = "Heute" & vbCrLf & Format(Date, "dd/mm/yyyy")
Case 44
TRT = "Belgique - Calendrier"
ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
End Select
config
Me.Caption = TRT
'mappage pour evenement unique (42 boutons) (intra userform sans module classe)
For I = 1 To 42
Set clavier(I).bout = Me.Controls("j" & I)
Next
'Me.Repaint
End Sub