'Déclare la variable objet Worksheet 
Dim Ws As Worksheet 

'Attribue la référence objet à la variable 
'La feuille est un Objet: la variable doit donc être précédée de l'instruction Set lors de l'attibution. 
Set Ws = Worksheets("Feuil2") 
'Manipulation de l'objet: 
'Exemple pour renvoyer l'index (position) de la feuille dans le classeur 
MsgBox "Index de la feuille nommée '" & Ws.Name & "': " & Ws.Index

'Déclare la variable objet Worksheet 
Dim Ws As Worksheet 

'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris 
'en compte. 
'ThisWorkbook correspond à l'objet classeur contenant la macro 
For Each Ws In ThisWorkbook.Worksheets 
    'Renvoie le nom de chaque feuille 
    MsgBox Ws.Name 
Next Ws 

'Déclare la variable objet 
Dim Ws As Object 

'Boucle sur tous les onglets du classeur 
'ThisWorkbook correspond à l'objet classeur contenant la macro 
For Each Ws In ThisWorkbook.Sheets 
    'Renvoie le nom de chaque onglet 
    MsgBox Ws.Name 
Next Ws


'Nota:
'La clause TypeOf permet de contrôler vers quel objet de l'application pointe la variable. 
'Pour retrouver le nom de toutes les feuilles graphiques dans le classeur actif, vous pouvez utiliser:
  	'Dim Sh As Object
  	'For Each Sh In ActiveWorkbook.Sheets
  	'If TypeOf Sh Is Chart Then MsgBox Sh.Name
  	'Next

Worksheets("Feuil1").Activate

'Ajoute une feuille et la positionne à la fin du classeur.
ThisWorkbook.Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)

'Exemple pour ajouter 3 feuilles:
ThisWorkbook.Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count), Count:=3

'Lance le calcul dans la 1ere feuille du classeur
Worksheets(1).Calculate 

Dim Ch As ChartObject

Application.ScreenUpdating = False

'Boucle sur les graphiques de la feuille active
For Each Ch In ActiveSheet.ChartObjects
    'Récupère le nom de chaque graphique
    'MsgBox Ch.Name

    With Ch
        .Left = 50 'position horizontale
        .Top = 20 + (230 * (Ch.Index - 1)) 'position verticale
        .Height = 200 'hauteur graphique
        .Width = 350 'largeur graphique
    End With
Next Ch

Application.ScreenUpdating = True

'Permet de renommer le 1er graphique de la feuille active
ActiveSheet.ChartObjects(1).Name = "Le Graphique"

'Vérifie le nom attribué
MsgBox ActiveSheet.ChartObjects(1).Name

'Permet de renommer un graphique nommé "Le Graphique"
ActiveSheet.ChartObjects("Le Graphique").Name = "Nouveau Nom"

'Vérifie le nom attribué
MsgBox ActiveSheet.ChartObjects(1).Name

Dim IgnoreMajuscule As Boolean
Dim Suggestion As Boolean
Dim MonDico As String

'indique le nom de fichier du dictionnaire personnalisé à examiner si le mot
'n'est pas trouvé dans le dictionnaire principal.(Facultatif)
MonDico = ""

'Affiche une liste de suggestions lorsqu'un mot est mal orthographié.(Facultatif)
Suggestion = True
'Permet d'ignorer les mots en majuscules.(Facultatif)
IgnoreMajuscule = True

Worksheets("Feuil1").CheckSpelling MonDico, IgnoreMajuscule, Suggestion

Worksheets("Feuil1").ClearArrows

'Crée une copie de la Feuil1 et la positionne à la fin du classeur.
Worksheets("Feuil1").Copy After:=Sheets(Sheets.Count)

'Crée une copie de la Feuil1 dans un nouveau classeur
Worksheets("Feuil1").Copy
'Sauvegarde la copie
ActiveWorkbook.SaveAs "C:\LaFeuilleDupliquee.xls"
'Ferme le classeur sauvegardé
ActiveWorkbook.Close True

Worksheets("Feuil2").CircleInvalid

Worksheets("Feuil2").ClearCircles

'DisplayAlerts = False permet de ne pas afficher le message d'alerte qui survient
'lorsque l'on supprime un onglet.
Application.DisplayAlerts = False
'Suppression de la feuille nommée "Feuil2"
Worksheets("Feuil2").Delete
'Ne pas oublier de réinitialiser DisplayAlerts à True
Application.DisplayAlerts = True

Dim Cellule As Range

'--- Utilise Evaluate pour récupérer le contenu de la cellule A1
MsgBox Worksheets("Feuil1").Evaluate("A1")
'Equivalent:
MsgBox Worksheets("Feuil1").[A1]


'--- Utilise Evaluate pour définir un objet Range
Set Cellule = Worksheets("Feuil1").[A1]
'Applique la couleur verte dans la cellule
Cellule.Interior.ColorIndex = 4

Dim Tableau As Variant
Dim ArgType As Long

'--- Précise comment doit être copiée la plage de cellules
'xlFillWithAll est la valeur par défaut si l'agument n'est pas spécifié
ArgType = xlFillWithAll 'copie tout
'ArgType = xlFillWithContents 'contenu des cellules
'ArgType = xlFillWithFormats 'Le format des cellules
'---

Tableau = Array("Base", "Feuil1", "Feuil3", "Feuil6")
'Copie la plage A1:A10 de la feuille "Base" vers les feuilles spécifiées 
'dans le tableau Array("Feuil1", "Feuil3", "Feuil6"):
    'Nota:
    'La feuille source doit être aussi indiquée dans le tableau
Sheets(Tableau).FillAcrossSheets Worksheets("Base").Range("A1:A10"), ArgType

Worksheets.FillAcrossSheets Worksheets("Feuil1").Range("A1:E5"), xlFillWithAll

Sub TrierFeuilles()
    Dim WS As Object
    Dim I As Byte
    
    Application.ScreenUpdating = False
        For Each WS In ActiveWorkbook.Sheets
            For I = 2 To ActiveWorkbook.Sheets.Count
                If Sheets(I - 1).Name > Sheets(I).Name Then _
                    Sheets(I - 1).Move After:=Sheets(I)
            
            Next I
        Next WS
    Application.ScreenUpdating = True
End Sub

Dim Ws As Worksheet
Dim Obj As OLEObject
Dim laMacro As String
Dim x As Integer

Set Ws = Sheets.Add 'Ajoute une nouvelle feuille
    
'ajoute un CommandButton dans la nouvelle feuille
Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
With Obj
    .Name = "monBouton" 'renomme le bouton
    .Left = 50 'position horizontale par rapport au bord gauche de la feuille
    .Top = 50 'position verticale par rapport au bord haut de la feuille
    .Width = 150 'largeur
    .Height = 30 'hauteur
    .Object.Caption = "Supprimer données feuille"
End With

'Ajoute la procédure dans la feuille
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    .CreateEventProc "Click", "monBouton"
    x = .ProcStartLine("monBouton_Click", vbext_pk_Proc)
    .InsertLines x + 2, "Cells.Clear"
End With

Dim Obj As OLEObject
    
For Each Obj In Feuil1.OLEObjects
    'Nom de l'objet.
    Debug.Print Obj.Name
    
    'Type de contrôle.
    '(Renvoie une erreur si la feuille contient des objets type fichiers insérés)
    Debug.Print TypeName(Obj.Object)
Next Obj

Dim Obj As OLEObject
    
'Boucle sur les objets contenus dans la feuille.
For Each Obj In Feuil1.OLEObjects
    'Vérifie s'il s'agit d'un contrôle ActiveX
    If Obj.ShapeRange.Type = msoOLEControlObject Then
        'Vérifie s'il s'agit d'un TextBox et en récupère le contenu si c'est le cas.
        If TypeName(Obj.Object) = "TextBox" Then MsgBox Obj.Object.Value
    End If
Next Obj

Dim Obj As OLEObject
    
'Boucle sur les objets contenus dans la feuille.
For Each Obj In Feuil1.OLEObjects
    'Vérifie s'il s'agit d'un contrôle ActiveX
    If Obj.ShapeRange.Type = msoOLEControlObject Then
        'Vérifie s'il s'agit d'un TextBox et en récupère le contenu si c'est le cas.
        If TypeOf Obj.Object Is MSForms.TextBox Then MsgBox Obj.Object.Value
    End If
Next Obj

Dim i As Byte
For i = 1 To 4
    'Boucle sur 4 Textbox nommés "Textbox1" à "Textbox4" pour y afficher
    'les données contenues dans les cellules A1 à A4, dans la Feuil2.
    Feuil1.OLEObjects("TextBox" & i).Object.Text = Feuil2.Cells(i, 1)
Next

Dim Ws As Worksheet
Dim Fichier As String

'Indique la feuille qui va recevoir l'objet
Set Ws = ThisWorkbook.Worksheets("Feuil1")

'Définit le fichier à insérer
Fichier = "C:\Documents and Settings\michel\le document.doc"

'Insère le document Word, sous forme d'icone, dans la feuille
Ws.OLEObjects.Add Filename:=Fichier, _
    Link:=False, DisplayAsIcon:=True, IconIndex:=0, _
    IconLabel:=Fichier

'Copie la plage de cellules A1:A10 dans la Feuil1
Worksheets("Feuil1").Range("A1:A10").Copy

'Effectue le collage dans la plage B1:B10 de la Feuil2
Worksheets("Feuil2").Paste Destination:=Worksheets("Feuil2").Range("B1:B10")
'ou
'Worksheets("Feuil2").Paste Destination:=Worksheets("Feuil2").Range("B1")

'Permet de désactiver le presse papier
Application.CutCopyMode = False

'
'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library"
'
Dim Cible As dataObject

'-- Copie la plage de cellules A1:A10 dans la Feuil1 ---
Worksheets("Feuil1").Range("A1:A10").Copy

'Effectue un collage avec liaison dans la Feuil3
With Worksheets("Feuil3")
    .Activate
    .Range("E5").Select
    .Paste link:=True
End With
'-------------------------------------------------------

'--- permet de vider le presse papier ---
Set Cible = New dataObject
Cible.setText ""
Cible.putInClipboard
Set Cible = Nothing
'----------------------------------------

'Effectue une copie du 1er graphique contenu dans la feuille nommée "Feuil1"
Worksheets("Feuil1").ChartObjects(1).Copy
'Active la Feuil2
Worksheets("Feuil2").Activate
'Colle le graphique au format Image MetaFichier dans la Feuil2
Worksheets("Feuil2").PasteSpecial Format:="Picture (Enhanced Metafile)", _
    Link:=False, DisplayAsIcon:=False

Dim Pvt As PivotTable
    
'Définit le TCD contenu dans la feuille
Set Pvt = Worksheets("Feuil4").PivotTables("Tableau croisé dynamique1")
'Met à jour le TCD
Pvt.RefreshTable

Worksheets("Feuil4").PivotTableWizard _
    SourceType:=xlDatabase, _
    SourceData:=Worksheets("Feuil1").Range("A1:E100").Address(, , xlR1C1, True), _
    TableDestination:=Worksheets("Feuil4").Range("B10"), _
    TableName:="TCD_1"

With Worksheets("Feuil4").PivotTables("TCD_1")
    .