Microsoft 365 Exécution conditionnelle d'une macro.

[PhilMarc]

Bonjour,

J'ai une macro destinée à un fichier Excel.

Je voudrais que cette macro ne s'exécute que si une certaine condition est remplie dans ce fichier.

Par exemple, la condition est portée par la cellule F8 de la feuille 5.

Je veux soit que la macro s'exécute si F8 <100, soit qu'elle ne s'exécute pas si F8>=100

Je suppose que je dois utiliser une InputBox, mais je ne maîtrise ni la syntaxe ni l'utilisation de cette dernière.

Merci de vos réponses.

 

[soan]

Bonjour PhilMarc,

Une InputBox ? pourquoi donc ? pas besoin :

Sub Essai()
  If [Feuil5!F8] >= 100 Then Exit Sub 'sortie, pas d'exécution !
  'placer ici le code à exécuter de la macro (car cas F8 < 100)
End Sub

soan

 

[soan]

Ajout : une InpuBox serait justifiée si tu devais entrer une donnée,
mais ce n'est pas le cas ici. 😉

soan

 

[soan]

Maintenant, si tu veux absolument utiliser une InputBox, je te propose ces 2 liens :

https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/inputbox-function

https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.inputbox

soan

 

[PhilMarc]

Bonjour PhilMarc,

Une InputBox ? pourquoi donc ? pas besoin :

Sub Essai()
  If [Feuil5!F8] >= 100 Then Exit Sub 'sortie, pas d'exécution !
  'placer ici le code à exécuter de la macro (car cas F8 < 100)
End Sub

soan

Bonjour Soan,
Merci pour ces réponses.
Je reviens un peu tard il est vrai, mais j'ai un peu délaissé le sujet ces derniers temps.
Donc la réponse est claire pour la question posée.
Toutefois, je vais étudier les deux liens proposés pour la mise en ouvre d'une InputBox, car ça peut toujours m'être utile.
A plus.