Exemples de code VBA

Recherchez dans la liste ci-dessous des exemples gratuits de code Excel VBA, accompagnés d’explications.
Certains incluent également des fichiers téléchargeables. Ces macros et scripts Excel VBA sont développés par des professionnels et prêts à l’emploi.

Nous espérons que cette liste vous sera utile!

Visitez notre page d’Exemples de Codes VBA en Francais pour trouver plus de 500 articles.

Exemples de Macros Excel

Vous trouverez ci-dessous une liste d’exemples de macros de base pour des tâches d’automatisation courantes dans Excel.

Copier et Coller une Ligne d’une Feuille à une Autre

Cette macro très simple permet de copier une ligne d’une feuille à l’autre.

Sub Coller_UneLigne()
'Copier et coller une ligne
Sheets("feuil1").Range("1:1").Copy Sheets("feuil2").Range("1:1")

Application.CutCopyMode = False

End Sub

Envoyer un Courriel

Cette macro bien utile lancera Outlook, rédigera un courriel et joindra le classeur actif.

Sub Envoyer_Courriel()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "test@test.com"
        .Subject = "Courriel Test"
        .Body = "Corps du Message"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Lister Toutes les Feuilles du Classeur

Cette macro répertorie toutes les feuilles d’un classeur dans une liste.

Sub ListerFeuilles()
    
    Dim ws As Worksheet
    Dim x As Integer
    
    x = 1
    
    ActiveSheet.Range("A:A").Clear
    
    For Each ws In Worksheets
        ActiveSheet.Cells(x, 1) = ws.Name
        x = x + 1
    Next ws
    
End Sub

Afficher Toutes les Feuilles de Calcul

Cette macro affiche toutes les feuilles de calcul du classeur actif.

' Afficher toutes les feuilles
Sub AfficherFeuilles()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
End Sub

Masquer Toutes les Feuilles Sauf la Feuille Active

Cette macro masque toutes les feuilles de calcul à l’exception de la feuille de calcul active.

' Masquer toutes les feuilles sauf la feuille active
Sub MasquerFeuillesSaufActive()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next ws
    
End Sub

Retirer la Protection de Toutes les Feuilles de Calcul

Cet exemple de macro permet de retirer la protection de toutes les feuilles de calcul d’un classeur.

' Ôter la Protection de Toutes les Feuilles
Sub DeProtegerToutesFeuilles()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Unprotect "motdepasse"
    Next ws
    
End Sub

Protéger Toutes les Feuilles

Cette macro protège toutes les feuilles de calcul d’un classeur.

' Protéger Toutes les Feuilles
Sub ProtegerToutesFeuilles()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.protect "motdepasse"
    Next ws
    
End Sub

Supprimer Toutes les Formes

Cette macro supprime toutes les formes d’une feuille de calcul.

Sub SupprimerToutesFormes()

Dim GetShape As Shape

For Each GetShape In ActiveSheet.Shapes
  GetShape.Delete
Next

End Sub

Supprimer Toutes les Lignes Vides d’une Feuille de Calcul

Cet exemple de macro supprime toutes les lignes vides d’une feuille de calcul.

Sub SupprimerLignesVides()
Dim x As Long

With ActiveSheet
    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(x)) = 0 Then
            ActiveSheet.Rows(x).Delete
        End If
    Next
End With

End Sub

Mettre en Évidence les Valeurs Dupliquées dans la Sélection

Cette macro simple permet de mettre en évidence toutes les valeurs dupliquées dans une sélection.

' Surligner les Doublons dans la Sélection
Sub SurlignerDoublons()
    Dim myRange As Range
    Dim cell As Range
    
    Set myRange = Selection
    
    For Each cell In myRange
        If WorksheetFunction.CountIf(myRange, cell.Value) > 1 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Surligner les Nombres Négatifs

Cette macro automatise la mise en évidence des nombres négatifs.

' Surligner les Nombres Négatifs
Sub SurlignerNombresNegatifs()
    Dim myRange As Range
    Dim cell As Range
    
    Set myRange = Selection
    
    For Each cell In myRange
        If cell.Value < 0 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Mettre en Évidence les Rangées en Alternance

Cette macro est utile pour mettre en évidence les lignes en alternance.This macro is useful to highlight alternate rows.

' Surligner les Lignes en Alternance
Sub SurlignerLignesAlternances()
    Dim cell As Range
    Dim myRange As Range
    
    myRange = Selection
    
    For Each cell In myRange.Rows
        If cell.Row Mod 2 = 1 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Mettre en Évidence les Cellules Vides dans la Sélection

Cette macro simple met en évidence les cellules vides d’une sélection.

' Surligner les Cellules Vides dans la Sélection
Sub SurlignerCellulesVides()
    Dim rng As Range
    
    Set rng = Selection
    rng.SpecialCells(xlCellTypeBlanks).Interior.Color = vbCyan
    
End Sub

Exemples de Macros Excel VBA – Téléchargement Gratuit

Nous avons créé un Complément d’Exemples de Codes VBA (Macros) gratuit. Le complément contient plus de 100 exemples de macros prêtes à l’emploi, y compris les exemples de macros ci-dessus!

Macro Excel / FAQ VBA

Comment Écrire du Code VBA (Macros) dans Excel?

Pour écrire du code VBA dans Excel, ouvrez l’éditeur VBA (ALT + F11). Tapez « Sub HelloWorld », appuyez sur Entrée et vous avez créé une macro! OU Copiez et collez l’une des procédures énumérées sur cette page dans la fenêtre de code.

Qu’est-ce que Excel VBA?

VBA est le langage de programmation utilisé pour automatiser Excel.

Comment utiliser VBA pour automatiser Excel?

Vous utilisez VBA pour automatiser Excel en créant des macros. Les macros sont des blocs de code qui exécutent certaines tâches.

Pratiquer VBA

Vous pouvez pratiquer l’utilisation de VBA avec notre tutoriel interactif. Tutoriel VBA.