Fonction Private Sub Worksheet_Calculate

[Broch002]

Bonjour,
Je cherche depuis ce matin sur les forums et je ne trouve pas.
Voila mon problème, j'ai en C5 une formule RECHERCHEV, qui me renvoie un résultat. En fonction de ce résultat, différentes macros doivent ce lancent.
Exemple:
C5 = vide pas de lancement de macro
C5 = code x macro x doit ce lancer;
C5 = code Y macro Y correspondante.
etc...

1. Je ne connais pas la formule pour la valeur vide.
2. lorsque le code est renseigné, les macros tourne en boucle.

Voici ma formule.

Private Sub Worksheet_Calculate()
If [C5] = " " Then ""
If [C5] = "code x" Then Macro1
If [C5] = "code y" Then Macro2
If [C5] = "code z" Then Macro3
End Sub

C'est la première fois que j'utilise cette fonction, avant j'utilisais:
Private Sub Worksheet_Change, mais cela ne fonctionne pas avec le résultat d'une formule.

Merci de votre Aide.🙂

 

[Tatiana29]

Re : Fonction Private Sub Worksheet_Calculate

Et comme ca! ca marchera peut être
If [C5] = "" Then ""

 

[Pierrot93]

Re : Fonction Private Sub Worksheet_Calculate

Bonjour,

pas sûr d'avoir tout compris, pour sortir de la procédure si C5 est vide :

If [C5] = "" Then Exit Sub

bonne journée
@+

 

[Broch002]

Re : Fonction Private Sub Worksheet_Calculate

Merci,

En fait la cellule C5 n'es pas vide, elle est en erreur #N/A

Bonne journée

A+

 

[Pierrot93]

Re : Fonction Private Sub Worksheet_Calculate

Re,

tu parles de quel post ??? quel code ?

 

[Broch002]

Re : Fonction Private Sub Worksheet_Calculate

Re,

Voici le formule modifiée, mais elle plante toujours

Private Sub Worksheet_Calculate()
If [C5] = "#N/A" Then Exit Sub
If [C5] = "code x" Then Macro1
If [C5] = "code y" Then Macro2
If [C5] = "code z" Then Macro3
End Sub
@+

 

[Pierrot93]

Re : Fonction Private Sub Worksheet_Calculate

Re,

sur quelle ligne ?

 

[Pierrot93]

Re : Fonction Private Sub Worksheet_Calculate

Re,

pour tester si une cellule est en "erreur" :

If IsError([C5]) Then Exit Sub

 

[mutzik]

Re : Fonction Private Sub Worksheet_Calculate

bonjour à toutes et tous

If [C5] = "#N/A" Then Exit Sub
à remplacer et tester par
if iserror([C5]) then exit sub

un ptit bing avec Pierrot que je salue au passage ...

 

[Robert]

Re : Fonction Private Sub Worksheet_Calculate

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

Private test As Boolean
 
Private Sub Worksheet_Calculate()
If test = True Then Exit Sub
test = True
If IsError(Range("C5").Value) Then test = False: Exit Sub
If Range("C5").Value = "code x" Then Macro1
If Range("C5") = "code y" Then Macro2
If Range("C5").Value = "code z" Then Macro3
test = False
End Sub

 

[Broch002]

Re : Fonction Private Sub Worksheet_Calculate

Re,

Merci cela marche pour l'erreur.

Merci.

@+