XL 2013 Macro lorsque la valeur d'une cellule calculée est supérieur à une autre

TOM801282

XLDnaute Nouveau
Bonjour à tous,

Etant débutant en visual, j'aimerai savoir s'il est possible d'activer une macro, disons macro1, lorsque la valeur d'une cellule calculée (B3 par exemple) devient supérieure ou égale à une autre cellule (B5 par exemple).
Ci-joint un fichier excel pour expliquer ce que je souhaite exécuter.

Merci beaucoup et bonne journée:)
 

Pièces jointes

  • Expl.xlsx
    9.6 KB · Affichages: 23
  • Expl.xlsx
    9.6 KB · Affichages: 19
Dernière modification par un modérateur:

thebenoit59

XLDnaute Accro
Re : Macro lorsque la valeur d'une cellule calculée est supérieur à une autre

Bonjour Tom801282.
Sans te dire de bêtise, il me semble que ce n'est pas possible avec des calculs automatiques.
Il faudrait que les calculs soit en mode manuel pour que nous puissions déclencher une procédure.
Mais peut-être ai-je tord.
 

youky(BJ)

XLDnaute Barbatruc
Re : Macro lorsque la valeur d'une cellule calculée est supérieur à une autre

Bienvenu TOM,
Il faut jouer avec l'événement sur la Sheet,
Fait un click sur l'onglet Feuil1 en bas avec le bouton droit de la souris, choisit "Visualiser le code"
copie ceci

Private Sub Worksheet_Calculate()
If [B3] > [B5] Then macro1
End Sub

A savoir ici c'est en Calculate que la macro1 sera lancée.
Tu as différent choix que tu verras en combobox en haut à droite de la fenêtre du code.

Attention aussi si macro1 écrit des données dans l'onglet le Calculate sera de nouveau exécuté, pour éviter cela on utilise

Application.EnableEvents = False
'écriture dans l'onglet
Application.EnableEvents = True

cela pour neutraliser l'événement
Bonne continuation
Bruno
 

youky(BJ)

XLDnaute Barbatruc
Re : Macro lorsque la valeur d'une cellule calculée est supérieur à une autre

Re:
Attention le code donné n'est pas à mettre dans un module, il est à mettre dans le code de la feuille.
Je viens de tester et le calculate ne se fait pas toujours cela dépend du changement
Dans ce fichier j'ai mis en événement Change
Bruno
 

Pièces jointes

  • Expl.xlsm
    14.9 KB · Affichages: 19
  • Expl.xlsm
    14.9 KB · Affichages: 15

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390