Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

UserForm1.Show 0

UserForm1.Show False

UserForm1.Show vbModeless

Sub lancementUSF()
    Dim sVariable As String
    
    sVariable = "UserForm1"
    VBA.UserForms.Add(sVariable).Show
End Sub

		
Private Sub CommandButton1_Click()
    UserForm1.Hide
End Sub

'Ferme l'UserForm nommé UserForm1
Unload UserForm1

Unload Me

Private Sub CommandButton1_Click()
    End
End Sub

				
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 3
End Sub

				
Private Sub userForm_Initialize()
    With Me
        .startUpPosition = 3
        .Left = Application.Width - Me.Width
    End With
End Sub

	
Private Sub UserForm_Activate()
    With Me 'affiche l'USF en bas à droite
      .Top = Application.Height - Me.Height
      .Left = Application.Width - Me.Width
    End With
    
End Sub

	
Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub

Private Sub CommandButton1_Click()
    Me.PrintForm
End Sub

Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _
        ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)

Private Sub CommandButton1_Click()
    Dim Ws As Worksheet
    
    'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    
    'Ajoute une feuille pour coller l'image de la forme
    Set Ws = Sheets.Add
    Ws.Paste
    
    'impression centrée dans la page
    With Ws
        .PageSetup.CenterHorizontally = True
        .PageSetup.CenterVertically = True
        .PrintOut
    End With
End Sub

Private Sub CommandButton1_Click()
    Me.Hide
    'Aperçu avant impression de la Feuil1
    Feuil1.PrintPreview
    Me.Show
End Sub

UserForm1.Repaint

Private Sub CommandButton1_Click()
    UserForm1.Picture = LoadPicture("C:\monFichier.jpg")
End Sub

	
'Change la couleur de fond du UserForm
ThisWorkbook.VBProject.VBComponents("UserForm1"). _
        Properties("backcolor") = RGB(125, 125, 125)

Private Sub UserForm_Initialize()
	maVariable = "x"
	CheckBox1 = False
	CheckBox2 = True
	TextBox1 = "mon texte"
	TextBox2 = Range("A1")
End Sub			

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    MsgBox Chr(KeyAscii)
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Shift = 0 Then
        Range("A1") = Chr(KeyCode)
    Else
        Select Case Shift
        Case 1: Range("A1") = "Shift"
        Case 2: Range("A1") = "Ctrl"
        Case 3: Range("A1") = "Touches Ctrl & Shift"
        Case 4: Range("A1") = "Alt"
        '
        '...
        '
        End Select
    End If
End Sub

Option Explicit

Private Sub UserForm_Activate()
    Feuil1.Activate
    Feuil1.Range("A1").Select
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    Dim i As Byte, j As Byte, k As Byte
    Dim Tableau(10, 2) As Double
    
    On Error Resume Next

    For i = 1 To 10 'initialisation
        Feuil1.Shapes.AddShape msoShapeHeart, X, Y, 10, 10
        With Feuil1.Shapes(i + 1)
            .Fill.ForeColor.RGB = RGB(255, Int(25.5 * i), Int(25.5 * i))
            '.Line.Visible = msoFalse
        End With
        'DoEvents
        
        Tableau(j, 0) = X
        Tableau(j, 1) = Y
    Next i
    
    '************************************
    Tableau(2, 0) = Tableau(1, 0)
    Tableau(2, 1) = Tableau(1, 1)
    
    For j = 2 To 10
        Tableau(j, 0) = Feuil1.Shapes(j + 1).Left
        Tableau(j, 1) = Feuil1.Shapes(j + 1).Top
    Next j
    
    With Feuil1.Shapes(2)
        .Left = X
        .Top = Y
    End With
    
    Tableau(1, 0) = Feuil1.Shapes(2).Left
    Tableau(1, 1) = Feuil1.Shapes(2).Top
    '**********************************
    
    For j = 2 To 10
        With Feuil1.Shapes(j + 1)
            .Left = Tableau(j, 0)
            .Top = Tableau(j, 1)
        End With
    'DoEvents
    Next j
    
    For k = 2 To 16
        Feuil1.Shapes(k).Delete
    Next k
End Sub


Private Sub UserForm_Terminate()
    Dim k As Integer
    
    For k = Feuil1.Shapes.Count To 1 Step -1
        Feuil1.Shapes(k).Delete
    Next k
End Sub

Sub afficher_USF()
    UserForm1.Show
End Sub

					 
Private Sub UserForm_MouseUp(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  If Button And 2 Then MsgBox "Bouton droit relâché"
End Sub

'--- Cette procédure permet d'ajouter un TextBox dans l'USF. ---
Private Sub CommandButton1_Click()
    Dim Obj As Control
    
    Set Obj = Me.Controls.Add("forms.Textbox.1")
    With Obj
        .Name = "monTextBox"
        .Left = 140
        .Top = 30
        .Width = 50
        .Height = 20
    End With
    
    MsgBox Obj.Name & " ajouté dans l'UserForm."
End Sub
'---


'--- Identifie la création du contrôle ---
Private Sub UserForm_AddControl(ByVal Control As MSForms.Control)
    MsgBox TypeName(Control) & ":  " & Control.Name
End Sub

'Suppression du contrôle.
Private Sub CommandButton2_Click()
    Me.Controls.Remove "monTextBox"
End Sub

'--- Identifie la suppression du contrôle ---
Private Sub UserForm_RemoveControl(ByVal Control As MSForms.Control)
    MsgBox Control.Name & " supprimé."
End Sub

Private Sub UserForm_Layout()
    Application.ScreenUpdating = False
    'Définit la position horizontale de l'USF
    Me.Left = 200
    'Définit la position verticale de l'USF
    Me.Top = 50
    Application.ScreenUpdating = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
	If CloseMode = 0 Then Cancel = True
End Sub

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function AnimateWindow Lib "user32" (ByVal hWnd As Long, _
                 ByVal dwTime As Long, ByVal dwFlags As Long) As Long


Dim Valeur As Long
Dim strFormClassName As String


Private Sub UserForm_Initialize()
    
    'saisir par defaut les mêmes valeurs dans les propriétés de l'USF
    Me.Left = 200
    Me.Top = 200
    Me.Caption = "Usf animé"
    
    'récupère le Handle de l'USF : Daniel Klann, mpep
    If Val(Application.Version) < 9 Then 'Excel 2000
        strFormClassName = "ThunderXFrame"
        Else
        strFormClassName = "ThunderDFrame" 'Excel 2000/2002
    End If
    
    Valeur = FindWindow(strFormClassName, "Usf animé")
    
    AnimateWindow Valeur, 2000, &H10
    '2000 : le temps en millisecondes pour l'effet
    
    '--------
    '&H1 Anime la fenêtre de gauche à droite.
    '&H2 Anime la fenêtre de droite à gauche.
    '&H4 Anime la fenêtre du haut vers le bas.
    '&H5 Anime la fenêtre de en haut à gauche vers en bas à droite.
    '&H6 Anime la fenêtre en haut à droite vers en bas à gauche.
    '&H8 Anime la fenêtre du bas vers le haut.
    '&H9 Anime la fenêtre de en bas à gauche vers en haut à droite.
    '&h10 Agrandissement de la fenêtre du centre vers les bords.
    '&H10000 Cache la fenêtre.
    '&H20000 Active la fenêtre.
    '&H40000 Fait "rouler" la fenêtre.( à combiner avec autre constante )
    '&H80000 Effet de "fondu" sur la fenêtre (si elle est au premier niveau).
    '--------
End Sub


Private Sub UserForm_Activate()
    Me.Repaint 'pour afficher les objets de l'USF
End Sub


Private Sub CommandButton1_Click()
    AnimateWindow Valeur, 2000, &H8 Or &H40000 Or &H10000
    Unload Me
End Sub

Sub LancerUSF()
    'Le mode non modal est impératif
    'sinon vous obtiendrez un message d'erreur
    UserForm1.Show 0
End Sub

Private Sub UserForm_Activate()
    Application.Wait Now + TimeValue("00:00:05") '5 secondes
    Unload UserForm1
End Sub			

	
Sub listeUserFormClasseur()
    'nécéssite d'activer la référence
    'Microsoft Visual Basic For Applications Extensibility 5.3
    Dim VBCmp As VBComponent
    
    For Each VBCmp In ThisWorkbook.VBProject.VBComponents
        If VBCmp.Type = 3 Then MsgBox VBCmp.Name
    Next VBCmp
End Sub

	
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
  
Private Sub UserForm_Initialize()
    Dim MeHwnd As Long
    
    MeHwnd = FindWindowA(vbNullString, Me.Caption)
    MsgBox "le Handle de l'Userform " & Me.Caption & " est : 0x" & Hex(MeHwnd)
End Sub

	
Sub EssaiDeclenchementProcedureUSF()
    CallByName UserForm1, "CommandButton1_Click", VbMethod
End Sub

 
'Sauvegarde le contenu des TextBox lors de la fermeture du UserForm 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    SaveSetting "Mes parametres", "TextBox1", "Valeur TextBox1", TextBox1.Value
    SaveSetting "Mes parametres", "Textbox2", "Valeur TextBox2", TextBox2.Value
End Sub

'Récupère la valeur de la clé lors de l'ouverture du UserForm
Private Sub UserForm_Initialize()
    TextBox1.Value = GetSetting("Mes parametres", "TextBox1", "Valeur TextBox1")
    TextBox2.Value = GetSetting("Mes parametres", "TextBox2", "Valeur TextBox2")
End Sub

DeleteSetting "Mes parametres", "TextBox2"