Lancement d'une maccro

Bonjour à toi aussi,
c'est une idée géniale.
Pour faire précisément ce que tu souhaites et selon tous les détails
que tu as fournis c'est certainemenrt la meilleure solution.

@+

lSteph

PAT0051 a utilisé son clavier pour écrire :

Je souhaite lancer différentes macros en fonction de la valeur (calculée)
d'une cellule
Merci de votre aide

--
- -

Bonjour Istep,
j'ai la méthode pour lancer les macros en fonction d'une valeur rentrée dans
une celule mais non calculé par une formule.......

Je souhaite lancer différentes macros en fonction de la valeur (calculée)
d'une cellule
Merci de votre aide

Bonjour Istep,
j'ai la méthode pour lancer les macros en fonction d'une valeur rentrée dans
une celule mais non calculé par une formule.......

Je souhaite lancer différentes macros en fonction de la valeur (calculée)
d'une cellule
Merci de votre aide

Bonsoir,

Je pense que si tu disais
- quelle méthode tu utilises
- ce que tu veux faire vraiment
- ...

les réponses gagneraient en pertinence et en précision.

Mais, peut-être que je ferais mieux de ne pas penser.

--
François L

Bonsoir,

Dans Thisworkbook, tu as un évènement 'sheetcalculate' qui est peut-être
une piste.

@+
FxM

Je souhaite lancer différentes macros en fonction de la valeur (calculée)
d'une cellule
Merci de votre aide

Voici la macro que j'utilise

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$O$23" Then
If Target = "B" Then MacroB
If Target = "TF" Then MacroTF
End If
End Sub

La valeur de la celule O23 est actuellement rentré manuellement
Je souhaite que la valeur de cette celule soit le résultat d'un calcul qui
enclenche une macro en fonction du resultat

Bonjour Istep,
j'ai la méthode pour lancer les macros en fonction d'une valeur rentrée dans
une celule mais non calculé par une formule.......

Je souhaite lancer différentes macros en fonction de la valeur (calculée)
d'une cellule
Merci de votre aide

Bonsoir,

Je pense que si tu disais
- quelle méthode tu utilises
- ce que tu veux faire vraiment
- ...

les réponses gagneraient en pertinence et en précision.

Mais, peut-être que je ferais mieux de ne pas penser.

--
François L

Voici la macro que j'utilise

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$O$23" Then
If Target = "B" Then MacroB
If Target = "TF" Then MacroTF
End If
End Sub

Re,

Bricolé vite fait...

Dans un module standard :
Public Sub test()
a = Sheets("Feuil1").[A1]
End Sub

Dans Feuil1 :
Private Sub Worksheet_Calculate()
If [A1] <> a Then
MsgBox "OUI"
test
End If
End Sub

Dans la cellule A1 de Feuil1 une formule quelconque

Normalement, on un bonjour à chaque fois que la valeur de A1 change,
mais pas à chaque calcul de la feuille.

--
François L

bonjour Pat0051 (c'est mieux ainsi)

il y a l'événement calculate de la feuille que tu pourrais utiliser,
en supposant que la formulle "Total" est en cellule A10

Private Sub Worksheet_Calculate()
Select Case Range("A10")
Case 1 To 5: MsgBox "action1"
Case 6 To 10: MsgBox "action2"
'etc.
End Select
End Sub


isabelle

Je souhaite lancer différentes macros en fonction de la valeur (calculée)
d'une cellule
Merci de votre aide

Bonjour,
Une petite question... Pourquoi faut-il le code dans un module standard ??
Merci par avance pour les explications.
Bon week-end.

"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
ehZPe1QBHHA.4672@TK2MSFTNGP02.phx.gbl...

Voici la macro que j'utilise

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$O$23" Then
If Target = "B" Then MacroB
If Target = "TF" Then MacroTF
End If
End Sub

Re,

Bricolé vite fait...

Dans un module standard :
Public Sub test()
a = Sheets("Feuil1").[A1]
End Sub

Dans Feuil1 :
Private Sub Worksheet_Calculate()
If [A1] <> a Then
MsgBox "OUI"
test
End If
End Sub

Dans la cellule A1 de Feuil1 une formule quelconque

Normalement, on un bonjour à chaque fois que la valeur de A1 change, mais
pas à chaque calcul de la feuille.

--
François L

Bonjour,
Si tu ne veux pas que cela se déclanche à tous bouts de champs
faudrait envisager seulement si o23 change lors du recalcul
pour savoir ce que contenait o23 il faut le fixer à l'ouverture du
classeur et au fur et à mesure des recalculs de o23 ainsi dans l'idée
mais non testé:

''''Dans un module standard:

Public mavar as string

'''''Dans thisworkbook:
Private sub workbook_open()
mavar=$o$23
end sub

''''dans le code de la feuille
Private Sub Worksheet_Calculate()
If mavar <> $o$23 then
mavar=$o$23
If mavar = "B" Then MacroB
If mavar = "TF" Then MacroTF
end if
end sub
''''''''''''''''''''''''''''''''''''


'attention toutefois à ce que le contenu de ces macros B ou TF ne soit
'pas de nature à modifier à nouveau la valeur de o23 sans quoi il
'faudra prévoir application.enableeventsúlse avant et true après
' S'il y a plus de deux occurence pour les valeurs de 023
'simplifier les if mavar par un Select case mavar

'Cordialement.
'lSteph

Voici la macro que j'utilise

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$O$23" Then
If Target = "B" Then MacroB
If Target = "TF" Then MacroTF
End If
End Sub

La valeur de la celule O23 est actuellement rentré manuellement
Je souhaite que la valeur de cette celule soit le résultat d'un calcul qui
enclenche une macro en fonction du resultat

Bonjour Istep,
j'ai la méthode pour lancer les macros en fonction d'une valeur rentrée
dans une celule mais non calculé par une formule.......

Je souhaite lancer différentes macros en fonction de la valeur (calculée)
d'une cellule
Merci de votre aide

Bonsoir,

Je pense que si tu disais
- quelle méthode tu utilises
- ce que tu veux faire vraiment
- ...

les réponses gagneraient en pertinence et en précision.

Mais, peut-être que je ferais mieux de ne pas penser.

--
François L

--
- -