Aide-mémoire VBA - Listes de commandes et de syntaxe

Feuille de triche VBA PDF (téléchargement gratuit)

Téléchargez gratuitement notre feuille de triche Excel VBA PDF pour une référence rapide!

Télécharger

Aide-mémoire VBA

Référencez cette page pour les listes de toutes les commandes et syntaxe VBA courantes. Vous trouverez de nombreuses commandes de base (ex. insérer une feuille) et une syntaxe avancée (ex. travailler avec des tableaux).

Des astuces:

Utilisez CTRL + F pour rechercher cette page.

Ajoutez cette page à vos favoris (CTRL + D sur Chrome) !

Des draps

La descriptionCode VBAActiver par nom d'ongletFeuilles ("Saisie").ActiverActiver par nom de code VBAFeuille1.ActiverActiver par position d'indexFeuilles(1).ActiverFeuille suivanteActiveSheet.Next.ActivateObtenir ActiveSheetMsgBox ActiveSheet.NameSélectionner une feuilleFeuilles ("Entrée").SélectionnezDéfinir sur VariableDim ws comme feuille de calcul
Définir ws = ActiveSheetNom / RenommerActiveSheet.Name = "NouveauNom"Ajouter une feuilleFeuilles.AjouterAjouter une feuille et un nomSheets.Add.Name = "NouvelleFeuille"Ajouter une feuille à la variableDim ws As Feuille de calcul
Définir ws = Sheets.AddCopier la feuilleFeuilles("Feuille1").Copier avant :=Feuilles("Feuille2")Masquer la feuilleSheets("Sheet1").visible = False
ou
Sheets ("Feuille1").visible = xlSheetHiddenAfficher la feuilleSheets ("Feuille1").Visible = True
ou
Feuilles ("Feuille1").Visible = xlFeuilleVisibleFeuille très cachéeSheets ("Feuille1").Visible = xlSheetVeryHiddenSupprimer la feuilleFeuilles ("Feuille1").SupprimerFeuille claireSheets(“Sheet1”).Cells.ClearDéprotéger (pas de mot de passe)Sheets ("Feuille1"). DéprotégerDéprotéger (mot de passe)Sheets (« Sheet1 »). Déprotéger le « Mot de passe »Protéger (pas de mot de passe)Feuilles ("Feuille1").ProtégerProtéger (mot de passe)Sheets ("Feuille1").Protéger le "Mot de passe"Protéger mais autoriser l'accès VBASheets ("Sheet1").Protect UserInterfaceOnly :=True

retourner en haut

Cellules et plages

La descriptionCode VBAActiver la cellulePlage ("B3").Activer
Cellules(3,2).ActiverSélectionnez la plagePlage ("a1:a3").Sélectionnez
Plage(Plage ("a1"), Plage ("a3")).Sélectionnez
Plage (cellules (1, 1), cellules (3, 1)).SélectionnezRedimensionnerPlage ("B3").Redimensionner(2, 2).SélectionnerDécalagePlage ("B3").Décalage(2, 2).SélectionnerCopiePlage ("A1:B3").Copier la plage ("D1")CouperPlage ("A1:B3"). Plage de coupe ("D1")EffacerPlage ("A1:B3").Supprimer
Plage ("A1:B3").Supprimer le décalage :=xlShiftToLeftDégagerPlage ("A1:A3"). Effacer
Plage ("A1:A3").ClearContents
Plage ("A1:A3").ClearFormatCompterPlage ("A1:A3"). CompteDéfinir sur VariableDim rng comme plage
Définir rng = Range ("A1")Fusionner/Annuler la fusionPlage ("A1:A3").Fusionner
Plage ("A1:A3"). Annuler la fusionBoucle à travers les cellules

Cellule tamisée en tant que plage

Pour chaque cellule dans la plage ("A1:C3")
Cellule MsgBox.Valeur
Cellule suivante

retourner en haut

Lignes

La descriptionCode VBAActiverLignes(1).Activer
Lignes ("1:1").Activer
Range ("a1").EntireRow.ActiverHauteur largeurRange ("A1").EntireRow.RowHeight = 30EffacerRange ("A1").EntireRow.DeleteCompterPlage ("A1").Lignes.NombreInsérerPlage ("A1").EntierRow.InsérerDurerdim lRow aussi longtemps
lRow = Cells(Rows.Count, 1).End(xlUp).RowCopiePlage ("1:1").Copier la plage ("5:5")InsérerPlage ("1:1").Copier
Plage ("5:5").Insérer

retourner en haut

Colonnes

La descriptionCode VBAActiverColonnes(1).Activer
Colonnes ("a:a").Activer
Plage ("a1").Colonne entière.ActiverHauteur largeurPlage ("A1"). EntireColumn.ColumnWidth = 30EffacerPlage ("A1").Colonne entière.SupprimerCompterPlage ("A1").Colonnes.NombreInsérerPlage ("A1").Colonne entière.InsérerDurerdim lCol aussi longtemps
lCol = Cells(1, Columns.Count).End(xlToLeft).ColumnCopiePlage ("A:A").Copier la plage ("E:E")InsérerPlage ("A:A").Copier
Plage ("E:E").Insérer

retourner en haut

Fatigué de rechercher des exemples de code VBA ? Essayez AutoMacro !

Cahiers d'exercices

La descriptionCode VBAActiverClasseurs ("Book1").ActiverActiver la première ouvertureClasseurs(1).ActiverActiver la dernière ouvertureClasseurs (Workbooks.Count).ActiverObtenir Activer le classeurMsgBox ActiveWorkbook.NameObtenez ce classeur (contenant le code VBA)MsgBox ThisWorkbook.NameAjouterClasseurs.AjouterAjouter à la variableDim wb comme classeur
Définir wb = Workbooks.AddOuvertClasseurs.Ouvrir(“C:\example.xlsm”)Ouvert aux variablesDim wb comme classeur
Définir wb = Workbooks.Open ("C:\example.xlsm")procheClasseurs ("Book1").Fermer SaveChanges:=False
Classeurs ("Book1").Fermer SaveChanges:=TruesauvegarderClasseurs ("Livre1").EnregistrerEnregistrer sousClasseurs ("Book1").Enregistrer sous strFileNameProtéger/DéprotégerClasseurs(1).Protéger le « mot de passe »
Classeurs (1). Déprotéger le « mot de passe »Définir sur VariableDim wb comme classeur
Définir wb = Workbooks ("Book1")Parcourir tous les classeurs dans les classeurs

Dim wb comme classeur

Pour chaque wb dans les classeurs
MsgBox wb.Name
Wb suivant

Vérifier l'existenceSi Dir("C:\Livre1.xlsx") = "" Alors
MsgBox "Le fichier n'existe pas."
Fin siCopie ferméeCopie de fichier "C:\file1.xlsx", "C:\file2.xlsx"

retourner en haut

Paramètres

La descriptionCode VBAMise à jour de l'écranApplication.ScreenUpdating = Faux
Application.ScreenUpdating = TrueAfficher les alertesApplication.DisplayAlerts = Faux
Application.DisplayAlerts = TrueÉvénementsApplication.EnableEvents = False
Application.EnableEvents = TrueActiver la touche AnnulerApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptionComparaison de texte - Ignorer la casseOption Comparer le texteExiger une déclaration de variableOption ExpliciteCalculs automatiquesApplication.Calcul = xlManuel
Application.Calcul = xlAutomatiqueVérification des erreurs en arrière-planApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueAfficher la barre de formuleApplication.DisplayFormulaBar = Faux
Application.DisplayFormulaBar = TrueFiger les voletsActiveWindow.FreezePanes = Faux
ActiveWindow.FreezePanes = TrueAffichage plein écranApplication.DisplayFullScreen = Faux
Application.DisplayFullScreen = TrueAperçu des sauts de pageActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewAfficher les barres de défilementAvec ActiveWindow
.DisplayHorizontalScrollBar = Faux
.DisplayVerticalScrollBar = Faux
Terminer parAvec ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Terminer parAfficher la barre d'étatApplication.DisplayStatusBar = Faux
Application.DisplayStatusBar = TrueContenu de la barre d'étatApplication.StatusBar = "Je travaille maintenant !!!"
Application.StatusBar = FauxAfficher les onglets du classeurActiveWindow.DisplayWorkbookTabs = Faux
ActiveWindow.DisplayWorkbookTabs = TrueNom d'utilisateurApplication.UserName = "AutomateExcel.com"Légende de l'applicationApplication.Caption = « Automatiser le modèle Excel »ZoomActiveWindow.Zoom = 80

retourner en haut

les erreurs

La descriptionCode VBAEn cas d'erreur - Code d'arrêt et erreur d'affichageEn cas d'erreur Aller à 0En cas d'erreur - Ignorer l'erreur et continuer l'exécutionEn cas d'erreur Reprendre ensuiteEn cas d'erreur - Aller à une ligne de code [Libellé]En cas d'erreur Aller à [Étiquette]Efface (réinitialise) l'erreurEn cas d'erreur GoTo -1Afficher le numéro d'erreurNuméro d'erreur MsgBoxAfficher la description de l'erreurMsgBox Err.DescriptionFonction pour générer sa propre erreurErr.Augmenter

retourner en haut

Des dossiers

La descriptionCode VBACopier un fichierCopie de fichier "C:\test\test_old.xlsx", "C:\test\test_new.xlsx"Supprimer le fichierTuez "C:\test\example.xlsx"Créer un dossierMkDir "C:\test\"Supprimer tous les fichiers du dossierTuez "C:\test\" & "*.*"Supprimer le dossierTuez "C:\test\" & "*.*"
RmDir "C:\test\"Répertoire actuelstrPath = CurDir()Ce chemin de classeurstrPath = ThisWorkbook.PathParcourir tous les fichiers du dossier

strFile = Dir ("C:\test" & "\*")

Faire tant que Len(strFile) > 0
Debug.Print strFile
strFile = Dir
Boucle

retourner en haut

Bon produit. AutoMacro ne se contente pas d'écrire votre code, il enseigne au fur et à mesure !" - Tony, Royaume-Uni

Apprendre encore plus

Lisez nos 900+ avis

Tableaux

La descriptionCode VBACréerDim arr (1 à 3) comme variante
arr(1) = "un"
arr(2) = "deux"
arr(3) = "trois"Créer à partir d'ExcelDim arr (1 à 3) comme variante
Cellule obscurcie en tant que plage, i en tant qu'entier
i = LBound(arr)
Pour chaque cellule dans la plage ("A1:A3")
je = je + 1
arr(i) = cellule.valeur
Cellule suivanteLire tous les articlesDim i aussi long
Pour i = LBound(arr) À UBound(arr)
MsgBox arr(i)
Ensuite jeEffacerEffacer l'arrTableau en chaîneDim sName en tant que chaîne
sNom = Join(arr, ":")Augmenter la tailleReDim Conserver arr (0 à 100)Définir la valeurarr(1) = 22

retourner en haut

Programmation VBA | Le générateur de code fonctionne pour vous !

Collections

La descriptionCode VBACréerDim coll comme nouvelle collection
coll.Ajouter "un"
coll.Ajouter "deux"Créer à partir d'ExcelDim coll comme nouvelle collection
Cellule tamisée en tant que plage
Pour chaque cellule dans la plage ("A1:A2")
coll.Ajouter cellule.valeur
Cellule suivanteAjouter un itemcoll.Ajouter « Valeur »Ajouter un élément avantcoll.Ajouter « Valeur », avant :=1Ajouter un élément aprèscoll.Ajouter « Valeur », Après : 1Lire l'articleMsgBox coll (1)Compter les articlescoll.CompteLire tous les articlesÉlément faible en tant que variante
Pour chaque article en coll
élément MsgBox
Prochain pointRetirer l'objetcoll.Supprimer (1)Supprimer tous les élémentsEnsemble coll = Nouvelle Collection

retourner en haut

Dictionnaires

La descriptionCode VBARéférence requiseOutils > Références > Microsoft Scripting RuntimeCréerDim dict en tant que nouveau Scripting.Dictionary
dict.Ajouter ""
dict.Ajouter ""Créer à partir d'ExcelDim dict en tant que nouveau Scripting.Dictionary
Cellule tamisée en tant que plage
Touche de variation en tant qu'entier
Pour chaque cellule dans la plage ("A1:A10")
clé = clé + 1
dict.Add clé, cell.value
Cellule suivanteAjouter un itemdict.Ajouter « Clé », « Valeur »Changer la valeurdict ("Clé") = "Valeur"Obtenez de la valeurMsgBox dict ("Clé")Vérifier la valeurSi dict.Exists ("Clé") Alors
MsgBox « Existe »
Fin siRetirer l'objetdict.Supprimer (« Clé »)Supprimer tous les élémentsdict.Supprimer toutBoucler les élémentsTouche de variation comme variante
Pour chaque clé dans dict.Keys
Clé MsgBox, dict(clé)
Clé suivanteCompter les articlesdict.CompteRendre la clé sensible à la cassedict.ComparerMode = vbBinaryComparerRendre la clé insensible à la cassedict.ComparerMode = vbTextComparer

retourner en haut

AutoMacro - Le complément VBA ultime

AutoMacro : complément VBA avec des centaines d'exemples de code VBA prêts à l'emploi et bien plus encore !

Apprendre encore plus