Lancer automatiquement une macro

J

jp14

XLDnaute Barbatruc

• 12 Décembre 2007

• #2

Re : Lancer automatiquement une macro

Bonsoir
Une question pour pouvoir répondre

A quel moment la macro doit se lancer ?
A l'ouverture du fichier
A la suite d'un calcul
Sur ordre de l'opérateur


JP

 

Vote positif 0 Vote négatif

J

Jojoe

XLDnaute Nouveau

• 12 Décembre 2007

• #3

Re : Lancer automatiquement une macro

Merci de t'intéresser à mon piti souci ! 🙂

La macro doit se lancer à la suite d'une condition si. Si le résultat de ma cellule est égal à "Faible", alors je lance la macro1 sinon je lance la macro2.

Suis-je plus clair ? 😀

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 12 Décembre 2007

• #4

Re : Lancer automatiquement une macro

Bonsoir

Il faut utiliser une macro évènementielle
Ci dessous une macro trouvée sur le site

Code:

Private Sub Worksheet_Calculate()
Dim VAL
VAL = Sheets("Feuil1").Range("C4").Value

If VAL = 1 Then
Application.Run macro:="RESULTAT1"

ElseIf VAL = 2 Then
Application.Run macro:="RESULTAT2"
End If

End Sub

Attention une macro sera lancé chaque fois qu'il y aura un nouveau calcul.

JP

 

Vote positif 0 Vote négatif

J

Jojoe

XLDnaute Nouveau

• 12 Décembre 2007

• #5

Re : Lancer automatiquement une macro

Wahoouuu ! 🙂
C'est nickel ! Juste ce que je cherchais ! Mici beaucoup beaucoup !

 

Vote positif 0 Vote négatif

J

Jojoe

XLDnaute Nouveau

• 13 Décembre 2007

• #6

Re : Lancer automatiquement une macro

Je remonte mon message parce que je voudrais ajouter après l'éxécution de la première macro, l'éxécution d'une seconde macro en fonction de la valeur d'une nouvelle cellule.

Donc je veux faire ça :

Private Sub Worksheet_Calculate()
Dim VAL1
VAL1 = Sheets("Feuil1").Range("C4").Value

If VAL1 = 1 Then
Application.Run macro:="RESULTAT1"

ElseIf VAL1 = 2 Then
Application.Run macro:="RESULTAT2"
End If

Puis ça :

Dim VAL2
VAL2 = Sheets("Feuil1").Range("Z4").Value

If VAL2 = 1 Then
Application.Run macro:="RESULTAT3"

ElseIf VAL2 = 2 Then
Application.Run macro:="RESULTAT4"
End If

End Sub

Le souci c'est que je ne sais pas comment écrire dans VBE le code qui permette de faire ces 2 opérations à la suite.

Quelqu'un a-t-il une idée ?

Merci d'avance de vos réponses ! 🙂

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 13 Décembre 2007

• #7

Re : Lancer automatiquement une macro

bonjour

Private Sub Worksheet_Calculate()
Dim VAL1, VAL2

VAL1 = Sheets("Feuil1").Range("C4").Value
VAL2 = Sheets("Feuil1").Range("Z4").Value

If VAL1 = 1 Then
Application.Run macro:="RESULTAT1"
ElseIf VAL1 = 2 Then
Application.Run macro:="RESULTAT2"
End If

If VAL2 = 1 Then
Application.Run macro:="RESULTAT3"
ElseIf VAL2 = 2 Then
Application.Run macro:="RESULTAT4"
End If

End Sub

 

Vote positif 0 Vote négatif

J

Jojoe

XLDnaute Nouveau

• 13 Décembre 2007

• #8

Re : Lancer automatiquement une macro

mutzik à dit:

bonjour

Private Sub Worksheet_Calculate()
Dim VAL1, VAL2

VAL1 = Sheets("Feuil1").Range("C4").Value
VAL2 = Sheets("Feuil1").Range("Z4").Value

If VAL1 = 1 Then
Application.Run macro:="RESULTAT1"
ElseIf VAL1 = 2 Then
Application.Run macro:="RESULTAT2"
End If

If VAL2 = 1 Then
Application.Run macro:="RESULTAT3"
ElseIf VAL2 = 2 Then
Application.Run macro:="RESULTAT4"
End If

End Sub

Cliquez pour agrandir...

Merci ! Je teste cela de suite ! 😉

Edit : C'est ok ! Me voilà paré grace à tous vos conseils ! 🙂

 

Dernière édition: 13 Décembre 2007

Vote positif 0 Vote négatif