Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Condition avec cellule contenant une formule ?

Condition avec cellule contenant une formule ?

9 réponses
Avatar
Guy72
Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient "ok", (il
n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG45=100;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient "ok", (il
n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy



Avatar
Daniel
Version corrigée (la 1ere se déclenche à chaque recalcul :
Dans un module :
Public Res
et la macro :
Private Sub Worksheet_Calculate()
If [A1] = "ok" And Res <> "ok" Then MsgBox "Ta Macro"
Res = "ok"
End Sub
Daniel
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient "ok",
(il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy







Avatar
Guy72
Bonsoir Daniel
Je te remercie de m'avoir répondu et de ton aide.
Je fait un test et je te rappelle
A+
Cordialement
Guy

"Daniel" a écrit dans le message de news:

Version corrigée (la 1ere se déclenche à chaque recalcul :
Dans un module :
Public Res
et la macro :
Private Sub Worksheet_Calculate()
If [A1] = "ok" And Res <> "ok" Then MsgBox "Ta Macro"
Res = "ok"
End Sub
Daniel
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient "ok",
(il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy











Avatar
Guy72
Re
Je te joins mon fichier d'essai car j'avoue que je ne comprend rien.
http://cjoint.com/?lwu3JuMhCT
Cordialement
Guy


"Guy72" a écrit dans le message de news:

Bonsoir Daniel
Je te remercie de m'avoir répondu et de ton aide.
Je fait un test et je te rappelle
A+
Cordialement
Guy

"Daniel" a écrit dans le message de news:

Version corrigée (la 1ere se déclenche à chaque recalcul :
Dans un module :
Public Res
et la macro :
Private Sub Worksheet_Calculate()
If [A1] = "ok" And Res <> "ok" Then MsgBox "Ta Macro"
Res = "ok"
End Sub
Daniel
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient "ok",
(il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy















Avatar
Daniel
un exemple de test de A1.
http://cjoint.com/?lwvC6PNhJd
Daniel
"Guy72" a écrit dans le message de news:

Re
Je te joins mon fichier d'essai car j'avoue que je ne comprend rien.
http://cjoint.com/?lwu3JuMhCT
Cordialement
Guy


"Guy72" a écrit dans le message de news:

Bonsoir Daniel
Je te remercie de m'avoir répondu et de ton aide.
Je fait un test et je te rappelle
A+
Cordialement
Guy

"Daniel" a écrit dans le message de news:

Version corrigée (la 1ere se déclenche à chaque recalcul :
Dans un module :
Public Res
et la macro :
Private Sub Worksheet_Calculate()
If [A1] = "ok" And Res <> "ok" Then MsgBox "Ta Macro"
Res = "ok"
End Sub
Daniel
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient "ok",
(il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy



















Avatar
Guy72
Quand j'ai mis "ok" ou 20 , c'est simplement pour monter que un texte ou un
nombre ne me gênais pas.
La formule est donc =SI(S1 ;"ok";"").
Il faut,que j'obtienne le son du fichier "grille.wav" (dans le même dossier
que le fichier "sonore") par un résultat automatique (par exemple 20)
Fichier son ci-joint
http://cjoint.com/?lwweje33gT
Cordialement
Guy

"Daniel" a écrit dans le message de news:

un exemple de test de A1.
http://cjoint.com/?lwvC6PNhJd
Daniel
"Guy72" a écrit dans le message de news:

Re
Je te joins mon fichier d'essai car j'avoue que je ne comprend rien.
http://cjoint.com/?lwu3JuMhCT
Cordialement
Guy


"Guy72" a écrit dans le message de news:

Bonsoir Daniel
Je te remercie de m'avoir répondu et de ton aide.
Je fait un test et je te rappelle
A+
Cordialement
Guy

"Daniel" a écrit dans le message de news:

Version corrigée (la 1ere se déclenche à chaque recalcul :
Dans un module :
Public Res
et la macro :
Private Sub Worksheet_Calculate()
If [A1] = "ok" And Res <> "ok" Then MsgBox "Ta Macro"
Res = "ok"
End Sub
Daniel
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient
"ok", (il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy























Avatar
Daniel
http://cjoint.com/?lwwvgN68HO
Daniel
"Guy72" a écrit dans le message de news:

Quand j'ai mis "ok" ou 20 , c'est simplement pour monter que un texte ou
un nombre ne me gênais pas.
La formule est donc =SI(S1 ;"ok";"").
Il faut,que j'obtienne le son du fichier "grille.wav" (dans le même
dossier que le fichier "sonore") par un résultat automatique (par exemple
20)
Fichier son ci-joint
http://cjoint.com/?lwweje33gT
Cordialement
Guy

"Daniel" a écrit dans le message de news:

un exemple de test de A1.
http://cjoint.com/?lwvC6PNhJd
Daniel
"Guy72" a écrit dans le message de news:

Re
Je te joins mon fichier d'essai car j'avoue que je ne comprend rien.
http://cjoint.com/?lwu3JuMhCT
Cordialement
Guy


"Guy72" a écrit dans le message de news:

Bonsoir Daniel
Je te remercie de m'avoir répondu et de ton aide.
Je fait un test et je te rappelle
A+
Cordialement
Guy

"Daniel" a écrit dans le message de news:

Version corrigée (la 1ere se déclenche à chaque recalcul :
Dans un module :
Public Res
et la macro :
Private Sub Worksheet_Calculate()
If [A1] = "ok" And Res <> "ok" Then MsgBox "Ta Macro"
Res = "ok"
End Sub
Daniel
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient
"ok", (il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy



























Avatar
Guy72
Merci Daniel, c'est tout à fait ça.
Excuse moi, mais j'ai du m'expliquer comme un pied.
Meri encore
A+
Cordialement
Guy

"Daniel" a écrit dans le message de news:

http://cjoint.com/?lwwvgN68HO
Daniel
"Guy72" a écrit dans le message de news:

Quand j'ai mis "ok" ou 20 , c'est simplement pour monter que un texte ou
un nombre ne me gênais pas.
La formule est donc =SI(S1 ;"ok";"").
Il faut,que j'obtienne le son du fichier "grille.wav" (dans le même
dossier que le fichier "sonore") par un résultat automatique (par exemple
20)
Fichier son ci-joint
http://cjoint.com/?lwweje33gT
Cordialement
Guy

"Daniel" a écrit dans le message de news:

un exemple de test de A1.
http://cjoint.com/?lwvC6PNhJd
Daniel
"Guy72" a écrit dans le message de news:

Re
Je te joins mon fichier d'essai car j'avoue que je ne comprend rien.
http://cjoint.com/?lwu3JuMhCT
Cordialement
Guy


"Guy72" a écrit dans le message de news:

Bonsoir Daniel
Je te remercie de m'avoir répondu et de ton aide.
Je fait un test et je te rappelle
A+
Cordialement
Guy

"Daniel" a écrit dans le message de news:

Version corrigée (la 1ere se déclenche à chaque recalcul :
Dans un module :
Public Res
et la macro :
Private Sub Worksheet_Calculate()
If [A1] = "ok" And Res <> "ok" Then MsgBox "Ta Macro"
Res = "ok"
End Sub
Daniel
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient
"ok", (il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy































Avatar
Guy72
Bonjour Fredo
Sympa de m'envoyer ces macros, j'aimerais bien le voir fonctionner,ça
m'intéresserais certainement.
Mais, je n'y arrive pas, il y a beaucoup de texte rouge.

ça y est, il n'y a plus de texte rouge (tous ce qui est Private ça a l'air
d'aller) ?
Pour la macro "gamme" j'ai reculé les lignes (apparemment plus de remarques
du "Débogueur") ?
Quant à la macro "Sub jouer_la_N_gamme()" (là j'ai des remarques du
"Débogueur") :
ça me met en jaune " Sub jouer_la_N_gamme()" et en bleu "midiOutOpen"
J'avoue que je ne sais pas quoi faire.
Cordialement
Guy


--
Cordialement
Guy
"Daniel" a écrit dans le message de news:

Essaie (A1 étant la cellule contenant la formule) :

Private Sub Worksheet_Calculate()
If [A1] = "ok" Then MsgBox "toto"
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonsoir
Je voudrais faire démarrer ma Macro quand la cellule A1 contient "ok",
(il n'y a "ok" qu'avec la formule suivante) : Formule dans A1
=SI(BG450;"ok";"")
Mais ma macro ne démarre que si je met ok manuellement.
Si il y a la formule ça ne fonctionne pas.
Que faut il faire pour éviter ce problème ?
Merci de votre aide.
Cordialement
Guy