private sub depuis le résultat d'une formule

4 réponses

gilles

05/07/2006 à 18:33

bonjour
j'aimerai qu'une procédure se déclenche selon le résultat d'une formule
je ne trouve pas quelle private sub utiliser
par ex: si en A1 j'ai la formule suivante:
-- =si(B1=1;1;0)
si 1 apparait en A1 en tant que eésultat, ma macro se déclenche
j'ai essayé avec les codes du fichier évent.xls trové par le biais du forum
private sub
Worksheet_Activate"
SelectionChange"
Worksheet_SelectionChange"

Aucun ne marche
Est-ce que calculate marcherait?

Merci à ceusses qui peuvent m'aider la dessus

en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...

4 réponses

05/07/2006 à 18:55

Bonsoir Gilles,
Ceci devrait faire l'affaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If ActiveSheet.Cells(1, 1).Value = 1 Then Call MaMacro

End Sub

Cordialement
RV

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

bonjour
j'aimerai qu'une procédure se déclenche selon le résultat d'une formule
je ne trouve pas quelle private sub utiliser
par ex: si en A1 j'ai la formule suivante:
-- =si(B1=1;1;0)
si 1 apparait en A1 en tant que eésultat, ma macro se déclenche
j'ai essayé avec les codes du fichier évent.xls trové par le biais du
forum
private sub
Worksheet_Activate"
SelectionChange"
Worksheet_SelectionChange"

Aucun ne marche
Est-ce que calculate marcherait?

Merci à ceusses qui peuvent m'aider la dessus

en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...

Youky

05/07/2006 à 18:58

1 click avec le bouton droit de la souris sur la page consernée et
Visualiser le code
copie ceci dans la fentre blanche
Youky

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then MsgBox "Salut" 'ou then Nomdetamacro
End Sub

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

bonjour
j'aimerai qu'une procédure se déclenche selon le résultat d'une formule
je ne trouve pas quelle private sub utiliser
par ex: si en A1 j'ai la formule suivante:
-- =si(B1=1;1;0)
si 1 apparait en A1 en tant que eésultat, ma macro se déclenche
j'ai essayé avec les codes du fichier évent.xls trové par le biais du
forum
private sub
Worksheet_Activate"
SelectionChange"
Worksheet_SelectionChange"

Aucun ne marche
Est-ce que calculate marcherait?

Merci à ceusses qui peuvent m'aider la dessus

en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...

Youky

05/07/2006 à 19:12

Re:
attention l'appel de ta macro se fait tant que A1=1
donc ta macro doit faire en sorte que A1 retombe sur
un autre chiffre.
Sinon elle est appelée à chaque changement de valeur dans ta page
Youky

"Youky" a écrit dans le message de news:
%

1 click avec le bouton droit de la souris sur la page consernée et
Visualiser le code
copie ceci dans la fentre blanche
Youky

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then MsgBox "Salut" 'ou then Nomdetamacro
End Sub

"gilles" a écrit dans le message de
news:
bonjour
j'aimerai qu'une procédure se déclenche selon le résultat d'une formule
je ne trouve pas quelle private sub utiliser
par ex: si en A1 j'ai la formule suivante:
-- =si(B1=1;1;0)
si 1 apparait en A1 en tant que eésultat, ma macro se déclenche
j'ai essayé avec les codes du fichier évent.xls trové par le biais du
forum
private sub
Worksheet_Activate"
SelectionChange"
Worksheet_SelectionChange"

Aucun ne marche
Est-ce que calculate marcherait?

Merci à ceusses qui peuvent m'aider la dessus

en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...

gilles

06/07/2006 à 13:40

Bonjour YOUKY et RV
Je viens de me connecter
j'essaie ça de suite
Merci encore
gilles
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...

Bonsoir Gilles,
Ceci devrait faire l'affaire:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If ActiveSheet.Cells(1, 1).Value = 1 Then Call MaMacro

End Sub

Cordialement
RV

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

bonjour
j'aimerai qu'une procédure se déclenche selon le résultat d'une formule
je ne trouve pas quelle private sub utiliser
par ex: si en A1 j'ai la formule suivante:
-- =si(B1=1;1;0)
si 1 apparait en A1 en tant que eésultat, ma macro se déclenche
j'ai essayé avec les codes du fichier évent.xls trové par le biais du
forum
private sub
Worksheet_Activate"
SelectionChange"
Worksheet_SelectionChange"

Aucun ne marche
Est-ce que calculate marcherait?

Merci à ceusses qui peuvent m'aider la dessus

en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...

private sub depuis le résultat d'une formule

4 réponses

Veuillez sélectionner un problème