Option Explicit

'Cet exemple suppose que la feuille nommée "Feuil1" contient:
    'Un CommandButton (CommandButton1)
    'Un TextBox (TextBox1)

Private Sub CommandButton1_Click()
    'Insère la valeur 10 dans le TextBox lorsque vous cliquez
    'sur le bouton.
    Worksheets("Feuil1").TextBox1.Value = 10
End Sub

Dim Obj As OLEObject

Set Obj = Feuil1.OLEObjects.Add("Forms.Label.1")

With Obj
    .Top = 140
    .Left = 360
    .Name = "NomLabel"
    .Width = 60
    .Height = 40
    .Object.Caption = "DVP"
    .Object.BackStyle = 0
    .ShapeRange.Fill.Transparency = 1#
End With

Sub BoucleCheckBox_V01()
    Dim Obj As OLEObject
    
    For Each Obj In ActiveSheet.OLEObjects
        If TypeOf Obj.Object Is MSForms.CheckBox Then _
            MsgBox Obj.Name & ": " & Obj.Object.Value
    Next Obj
End Sub

Sub BoucleCheckBox_V02()
    Dim i As Byte
    
    For i = 1 To 3
        MsgBox ActiveSheet.OLEObjects("CheckBox" & i).Name & ": " & _
            ActiveSheet.OLEObjects("CheckBox" & i).Object.Value
    Next i
End Sub

Sub AjoutCommandButton_Feuille()
    Dim Ws As Worksheet
    Dim Obj As OLEObject
    Dim laMacro As String
    Dim x As Integer
    
    'Ajout feuille
    Set Ws = Sheets.Add
        
    'Ajout CommandButton dans la feuille
    Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 50 'position horizontale
        .Top = 50 'position verticale
        .Width = 140 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Supprimer données feuille"
    End With
    
    'Paramètres pour la création de la macro:
    '(suppression contenu cellules)
    laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "Cells.Clear" & vbCrLf
    laMacro = laMacro & "End Sub"
    
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        x = .CountOfLines + 1
        .InsertLines x, laMacro
    End With
End Sub

Dim Cell As Range

'Supprime les données existantes dans le ComboBox
Feuil1.ComboBox1.Clear

'Boucle sur les cellules de la plage A1:A20 pour
'alimenter le ComboBox
For Each Cell In Feuil1.Range("A1:A20")
    Feuil1.ComboBox1 = Cell
    'remplissage sans doublon
    If Feuil1.ComboBox1.ListIndex = -1 Then _
        Feuil1.ComboBox1.AddItem Cell
Next Cell

Sub TriAlpha_ComboBox()
    Dim i As Integer, j As Integer
    Dim strTemp As String
    
    'Supprime le contenu du ComboBox
    Feuil1.ComboBox1.Clear
    'Alimente le ComboBox
    Feuil1.ComboBox1.List() = Array("mimi", "nono", "bibi", "fifi", "lolo")
    
    
    'Tri le contenu du ComboBox par ordre alphabétique
    With Feuil1.ComboBox1
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then
                    strTemp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = strTemp
                End If
            Next j
        Next i
    End With
End Sub

Application.Run ("Feuil1.CommandButton1_Click")

Sub InsertionDocument_Feuille()
    Dim OleObj As OLEObject
    Dim Fichier As Variant
    Dim PosHori As Double, PosVerti As Double, Largeur As Double, Hauteur As Double
    
    Fichier = Application.GetOpenFilename("Documents Word (*.doc), *.doc")
    
    If Fichier <> False Then
        PosHori = Range("B10").Left
        PosVerti = Range("B10").Top
        Largeur = Range("B10").Width
        Hauteur = Range("B10").Height
        
        Set OleObj = ActiveSheet.OLEObjects.Add(Filename:=Fichier, _
            Link:=False, displayAsIcon:=True, iconIndex:=0, iconLabel:=Fichier)
        
        With OleObj
            .Left = PosHori
            .Top = PosVerti
            .Width = Largeur
            .Height = Hauteur
        End With
    End If
End Sub

Sub Verifier_Si_DocumentWord_Vide() 
    Dim WordApp As Object 
    Dim WordObj As Shape 
    
    'Dans cet exemple l'objet Word et le 1er objet dans la Feuille 1 
    Set WordObj = Worksheets(1).Shapes(1) 
    WordObj.OLEFormat.Activate 
    Set WordApp = WordObj.OLEFormat.Object.Object.Application 
    WordApp.Visible = False 
    
    If WordApp.Selection.Document.Words.Count = 1 Then 
        'Renvoie 1 si vide 
        MsgBox "Vide" 
        Else 
        MsgBox "Non vide" & vbCrLf & vbCrLf & _ 
            WordApp.Selection.Document.Content 
    End If 
    
    Range("A1").Select 
End Sub

Sub LancePresentation_Feuille() 
    Dim appPPT As Object 
    Dim Obj As Shape 
    
    'Représente le premier objet dans la Feuil11 
    Set Obj = Worksheets("Feuil1").Shapes(1) 
    Obj.OLEFormat.Activate 
    
    Set appPPT = Obj.OLEFormat.Object.Object.Application 
    appPPT.ActivePresentation.SlideShowSettings.Run 
End Sub

Sub DeclencheSonWave () 
Worksheets("Feuil1").OLEObjects("objet 1").Verb 
End Sub

'--------------------------------------
'à placer dans le module objet ThisWorbook pour que la classe
'soit initialisée lors de l'ouverture du classeur.

Option Explicit

Private Sub Workbook_Open()
Dim Obj As OLEObject
Dim Cl As Classe1

Set Collect = New Collection

'boucle sur les objets de la Feuil1
For Each Obj In Feuil1.OLEObjects
    'verifie s'il s'agit d'un Checkbox
    If TypeOf Obj.Object Is MSForms.CheckBox Then
        
        Set Cl = New Classe1
        Set Cl.CheckBoxGroup = Obj.Object
        Collect.Add Cl
    End If
Next Obj

End Sub
'--------------------------------------

'--------------------------------------
'dans un module standard
Option Explicit

Public Collect As Collection
'--------------------------------------

'--------------------------------------
'Dans un module de classe nommé "Classe1"
'
Option Explicit

Public WithEvents CheckBoxGroup As MSForms.CheckBox


'Evenement Click sur les CheckBox de la feuille de calcul.
Private Sub CheckBoxGroup_Click()
    
    'Renvoie le nom et la valeur de la CheckBox cliquée
    MsgBox CheckBoxGroup.Name & ": " & CheckBoxGroup.Value
    
    'Exemple qui renvoie dans la colonne A, la valeur de CheckBox
    Cells(CheckBoxGroup.TopLeftCell.Row, 1) = CheckBoxGroup.Value
End Sub

'--------------------------------------

'--------------------------------------
'à placer dans le module objet ThisWorbook pour que la classe
'soit initialisée lors de l'ouverture du classeur.
 
Option Explicit
 
Private Sub Workbook_Open()
Dim Obj As OLEObject
Dim Cl As Classe1
 
Set Collect = New Collection
 
'boucle sur les objets de la Feuil1
For Each Obj In Feuil1.OLEObjects
    'verifie s'il s'agit d'un Textbox
    If TypeOf Obj.Object Is MSForms.TextBox Then
        
        Set Cl = New Classe1
        Set Cl.TexteGroup = Obj.Object
        Collect.Add Cl
    End If
Next Obj
 
End Sub
'--------------------------------------

'--------------------------------------
'dans un module standard
Option Explicit
 
Public Collect As Collection
'--------------------------------------

'dans un module de classe nommé "Classe1"
'
Option Explicit
 
Public WithEvents TexteGroup As MSForms.TextBox
 
 
Private Sub TexteGroup_KeyUp(ByVal KeyCode As _
        MSForms.ReturnInteger, ByVal Shift As Integer)
 
    Dim Valeur As Byte
    
    Valeur = TexteGroup.Index
    
    If KeyCode = 9 Then
        If Valeur <> Collect.Count Then
            With Collect(Valeur + 1).TexteGroup
                .Activate
            End With
        
        Else
            With Collect(1).TexteGroup
                .Activate
            End With
        End If
    End If
End Sub
 
'--------------------------------------