Comment exécuter une macro en fonction de la valeur d’une cellule dans Excel ?
Supposons que vous ayez plusieurs macros dans votre classeur et que vous souhaitiez les exécuter en fonction de la valeur d’une cellule. Dans cet article, nous explorons différentes situations que vous pourriez rencontrer au quotidien avec Excel.
Exécuter ou déclencher une macro si la valeur d’une cellule est supérieure ou inférieure à une valeur spécifique à l’aide d’un code VBA
Par exemple, si la valeur de la cellule A1 est comprise entre 10 et 50, exécutez macro1 ; si elle est supérieure à 50, exécutez macro2. Pour accomplir cette tâche dans Excel, appliquez le code VBA suivant.
1. Cliquez avec le bouton droit sur l’onglet de la feuille dans laquelle vous souhaitez exécuter la macro en fonction de la valeur d’une cellule, puis choisissez Afficher le code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic pour Applications qui s’ouvre, copiez et collez le code suivant dans le module vierge :
Code VBA : exécuter une macro si la valeur de la cellule est supérieure ou inférieure à :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Remarque: dans le code ci-dessus :
A1est la cellule contenant la valeur spécifique à partir de laquelle vous souhaitez exécuter la macro ;
Case 10 To 50: Macro1: cela signifie que si la valeur est comprise entre 10 et 50, Macro1 est exécutée ;
Case Is > 50 : Macro2 : cela signifie que si la valeur est supérieure à 50, Macro2 est exécutée.
Veuillez adapter ces noms de macro et ces critères à vos besoins. Vous pouvez également ajouter davantage de critères en suivant la structure Case.
2. Fermez ensuite cette fenêtre de code. Désormais, lorsque vous saisissez une valeur comprise entre 10 et 50 dans la cellule A1, Macro1 sera déclenchée ; si la valeur saisie est supérieure à 50, Macro2 sera exécutée.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Exécuter ou déclencher une macro si la cellule La valeur est égale à un texte spécifique à l’aide d’un code VBA
Si vous souhaitez déclencher une macro en fonction d’un texte spécifique saisi dans une cellule — par exemple, exécuter macro1 lorsque « Delete » est saisi et macro2 dès que « Insert » est tapé — le code suivant vous sera particulièrement utile.
1. Cliquez avec le bouton droit sur la feuille dans laquelle vous souhaitez exécuter la macro en fonction de la valeur d’une cellule, puis choisissez Afficher le code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic pour Applications qui s’ouvre, copiez et collez le code suivant dans le module vierge :
Code VBA : exécuter une macro si la valeur de la cellule correspond à un texte spécifique
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Remarque : dans le code ci-dessus, «Delete» et «Insert» correspondent aux textes des cellules à partir desquels vous souhaitez exécuter des macros, et Macro1 et Macro2 sont les macros à exécuter en fonction du texte. Adaptez-les à vos besoins.
2. Enregistrez ensuite ce code et fermez cette fenêtre. Désormais, dès que vous saisissez le texte « Delete » dans la cellule A1, la macro1 est déclenchée ; si vous saisissez « Insert », c’est la macro2 qui s’exécute.
Articles associés :
Comment exécuter une macro automatiquement dès qu’une cellule est modifiée dans Excel ?
Comment exécuter automatiquement une macro avant l’impression dans Excel ?
Comment exécuter une macro selon la valeur choisie dans une liste déroulante dans Excel ?
Comment exécuter une macro en cliquant sur un lien hypertexte dans Excel ?
Comment exécuter une macro dès qu’une feuille est sélectionnée dans un classeur ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels