première macro VBA Excel

Écrivez votre première macro VBA dans Excel

Étape 1 : Assurez-vous que l’onglet Développeur est disponible

Ruban en haut d'Excel
Bouton Fichier dans le ruban
Bouton Options sous le bouton Fichier
Fenêtre d'options Excel pour personnaliser le ruban et ajouter l'onglet Développeur
L'onglet Développeur s'affiche désormais dans le ruban Excel

Étape 2 : Créer les exemples de données pour ajouter deux colonnes de nombres

exemples de données - première colonne de nombre, deuxième colonne de nombre et colonne de total
Exemple de formule Excel pour additionner les colonnes à l'aide de la fonction SOMME
Exemple d'exemple de formule pour additionner les colonnes à l'aide du signe plus
Colonne totale remplie après avoir fait glisser la formule de somme vers le bas dans Excel
Ajout de nouvelles valeurs pour les colonnes du premier nombre et du deuxième nombre, montrant que Total serait vide pour cette ligne jusqu'à ce que vous fassiez glisser la formule vers le bas
exemples de données - première colonne de nombre, deuxième colonne de nombre et colonne de total

Étape 3 : créer un module dans VBA

Sélectionnez l'onglet Développeur dans le ruban
Sélectionnez Visual Basic sous l'onglet Développeur
Insérer un module
Volet Propriétés du Module1
Module1 renommé en volet Propriétés de l'exemple

Étape 4 : écrivez la macro

Afficher le code du module
Sub AjouterDeuxNombres() 

End  Sub
Nouvelle macro appelée AddTwoNumbers sans code pour le moment
Sub AddNumbers() 

'Déclare les variables 
Dim row_count As  Integer 
Dim row_count_without_header As  Integer 
Dim row_iterator As  Integer 
Dim row_number As  Integer 

'Obtenir le nombre total de lignes
 row_count = Sheet1.Cells(Sheet1.Rows.Count, 1 ). End (xlUp).Row 

'Obtenir le nombre total de lignes sans en-tête
 row_count_without_header = row_count - 1 

'Itérer/boucler sur les lignes 
For row_iterator = 1  To row_count_without_header 
    row_number = row_iterator +1
     Sheet1.Cells(row_number, 3 ) = Sheet1.Cells(row_number, 1 ) + Sheet1.Cells(row_number, 2 ) Itérateur 
suivant  End Sub

 
  1. Tout d’abord, déclarez les variables et leurs types de données que vous utiliserez. Dans cet exemple, j’ai utilisé quatre variables différentes.
  2. La variable row_count examine la première colonne pour voir le nombre total de lignes dans cette colonne. Cela nous aide à savoir combien de lignes devront être ajoutées. Je fais référence à Sheet1 dans le cas d’utilisation, car c’est ainsi que la feuille est nommée pour mes exemples de données. (Remarque : la logique utilisée pour obtenir cette valeur est très pratique. Gardez cela à l’esprit pour une utilisation future)
  3. La variable row_count_without_header soustrait un de row_count pour nous donner le nombre réel de lignes que nous devons additionner, puisque la première colonne est l’en-tête et n’a pas besoin d’être additionnée.
  4. La formule Sheet1.Cells prend deux arguments — le premier est le Row Index et le second est le Column Index . Au fur et à mesure que nous parcourons les lignes, nous incrémentons le row_number à chaque fois. Comme vous pouvez le voir dans la boucle For/Next , vous définissez la valeur de la colonne 3 égale à la valeur des colonnes 1 et 2 additionnées.
Macro AddTwoNumbers complète
Fermer l'éditeur VBA

Étape 5 : Exécutez la macro

Bouton Macros sous l'onglet Développeur
Fenêtre Exécuter la macro
Exemple de données avec la colonne de total maintenant remplie

Étape 6 : Tester la macro

Quatrième ligne supplémentaire pour échantillonner des données sans valeur pour le total
Les exemples de données avec une ligne supplémentaire et une colonne de total sont maintenant remplis
Données supprimées des deux lignes du milieu pour le total
Données d'échantillon complètes avec total

Étape 7 : Enregistrez votre classeur en tant que fichier prenant en charge les macros

Option d'enregistrement en tant que fichier xlsm
Retour en haut