Option Explicit

Sub afficherMessage()
    Dim maVariable As String
    
    maVariable = "Bonjour !"
    MsgBox maVariable
End Sub

			
Sub afficherValeur()
    Dim maVariable As Integer
    
    maVariable = 10
    MsgBox maVariable
    
    maVariable = maVariable + Range("A1")
    MsgBox maVariable
End Sub

Sub Test_V01()
    Dim Ws As Worksheet

    'Attribue la 1ere feuille du classeur dans la variable    
    Set Ws = Sheets(1)
    MsgBox Ws.Name

    Set Ws = Nothing 'Libère la mémoire   
End Sub

Sub Test_V02()
    Dim Ws As Object

    'Attribue la 1ere feuille du classeur dans la variable     
    Set Ws = Sheets(1)
    MsgBox Ws.Name
    
    Set Ws = Nothing 'Libère la mémoire    
End Sub				

'Vous devez préalablement activer la référence Word:
  'Dans l'éditeur de macros:
  'Menu outils
  'Références
  'Cochez la ligne "Microsoft Word x.x Object Library"
  '(x.x dépend de la version installée sur votre poste)
  'Cliquez sur OK pour valider.

Sub piloterWord_V01()
    Dim wordApp As Word.Application 'déclare la variable wordApp comme un objet de type Word
    'Remarque:
    'Lorsque la librairie est activée,l'outil de saisie semi automatique permet
    'd'afficher la bibliotheque Word sans avoir besoin de saisir le nom complet.
    'Toutes les méthodes et propriétés de la librairie sont aussi accessibles grace
    'à l'outil de saisie semi automatique.
    
    'Attribue la référence objet à la variable
    Set wordApp = New Word.Application
    
    MsgBox "La version Word installée sur votre poste: " & wordApp.Version
    
    'Fermeture de l'application Word
    wordApp.Quit
    'libération de la mémoire
    Set wordApp = Nothing
End Sub

Sub piloterWord_V02()
    'Plus d'informations sur le site Microsoft
    'http://support.microsoft.com/?id=242375
    Dim wordApp As Object

    'Attribue la référence objet à la variable
    Set wordApp = CreateObject("Word.Application")
    
    MsgBox "La version Word installée sur votre poste: " & wordApp.Version
    
    'Fermeture de l'application Word
    wordApp.Quit
    'libération de la mémoire
    Set wordApp = Nothing
End Sub

Sub Test()
    Dim Donnee As Integer
    
    Donnee = 50
    
    MaProcedure_1 Donnee
    MsgBox Donnee
    
    MaProcedure_2 Donnee
    MsgBox Donnee
    
    MaProcedure_3 Donnee
    MsgBox Donnee
End Sub


'Passe la référence en argument.
Sub MaProcedure_1(ByRef x As Integer)
    x = x * 2
End Sub


'Passe la valeur en argument.
Sub MaProcedure_2(ByVal y As Integer)
    y = y * 2
End Sub


'ByRef est la valeur par défaut si non spécifiée.
Sub MaProcedure_3(z As Integer)
    z = z * 2
End Sub

Sub Test()
    Dim i As Integer
    
    i = 1
    
    Essai (i)
    MsgBox i
    
    Essai i
    MsgBox i
End Sub
 

Sub Essai(ByRef j As Integer)
    j = j + 1
End Sub

	
Sub Test()
    Dim X As String
    
    X = "Coucou ! "
    MsgBox X
End Sub

Dim X As String

Sub Test()
…
End Sub

			
Public X As String

Sub Test()
...
End Sub

	
Sub Test()
    Const Coefficient As Integer = 10
    Dim x As Integer
    
    x = Coefficient * 5
    MsgBox x
End Sub

								
Public Enum Coeff
    Coeff_2 = 2
    Coeff_3 = 3
    Coeff_4 = 4
End Enum
                
                
Sub Test()
    MsgBox 500 * Coeff.Coeff_2 'Résultat = 1000
End Sub

	
Sub Essai()
    Dim maVariable As String
    
    maVariable = "26/05/2005"
    
    'Ecrit le contenu de la variable dans la cellule A1
    Range("A1") = maVariable
    'Ecrit la variable convertie en date dans la cellule A2
    Range("A2") = CDate(maVariable)
End Sub

	
'Boucler sur les contrôles d'un UserForm et vérifier s'il s'agit de TextBox
Dim Ctrl As Control

For Each Ctrl In Userform1.Controls
    If TypeName(Ctrl) = "TextBox" Then
    '
    '...
    '
    End If
Next Ctrl

'Vérifier si la variable Nbr est de type Integer 
If TypeName(Nbr) = "integer" Then

'Vérifier le type de donnée contenu dans la cellule A1
MsgBox TypeName(Range("A1").Value)

'Intercepter l'utilisation du bouton "Annuler" et la croix de fermeture d'un Inputbox
    Dim Reponse As Variant
    Reponse = Application.InputBox("Saisissez vos données")
    If VarType(Reponse) = vbBoolean Then MsgBox " opération annulée"

Sub Test()
    Dim maVariable As Variant
    
    maVariable = "Coucou"
    MsgBox VarType(maVariable) 'Renvoie 8
    
    maVariable = 123
    MsgBox VarType(maVariable) 'Renvoie 2
    
    maVariable = #5/26/2005#
    MsgBox VarType(maVariable) 'Renvoie 7
End Sub

Sub TestTableau()
    Dim Tableau(3)
    
    Tableau(0) = 1234
    Tableau(1) = "mimi"
    
    MsgBox VarType(Tableau(0)) 'renvoie 2
    MsgBox VarType(Tableau(1)) 'renvoie 8
    MsgBox VarType(Tableau(2)) 'renvoie 0
End Sub

  'Retrouver le nom de toutes les feuilles graphiques dans le classeur actif.
  	Dim Sh As Object
  	For Each Sh In ActiveWorkbook.Sheets
  	If TypeOf Sh Is Chart Then MsgBox Sh.Name
  	Next

  'Vérifier si une cellule est sélectionnée dans la feuille
  	If typeOf Selection Is Range Then

  'Boucler sur les CheckBox d'un UserForm et leur attribuer la valeur True
  	Dim Ctrl As Control
  	For Each Ctrl In Me.Controls
  	If TypeOf Ctrl Is MSForms.checkBox Then Ctrl.Value = True
  	Next				

'Ces lignes sont sont à placer en tête du module
Type Voiture
    Couleur As String
    Cylindree As Long
    anneeAchat As Date
End Type


Sub Test()
    Dim X As Voiture 'Déclaration de la variable personnalisée
    
    X.Couleur = "Rouge" 'Attribution des données
    X.Cylindree = 2000
    X.anneeAchat = #4/21/2004#
    
    MsgBox "Cette voiture " & X.Couleur & " a une cylindrée de " & _
        X.Cylindree & " cc, Année " & X.anneeAchat 'lecture des données
End Sub

Sub Test_V02()
    Dim Tableau(20) As Voiture
    
    'Remplissage de 1ere ligne Tableau
    Tableau(0).Couleur = "Rouge" 
    Tableau(0).Cylindree = 2000
    Tableau(0).anneeAchat = #4/21/2004#
    
    'Lecture contenu tableau
    MsgBox "Cette voiture " & Tableau(0).Couleur & " a une cylindrée de " & _
        Tableau(0).Cylindree & " cc, année " & Tableau(0).anneeAchat
End Sub