Autres comment actualiser une fonction sur mon code VBA

[intibeh]

Salut le forum,

J'ai fait un fichier de calcul avec plusieurs feuilles. Toutes mes formules sont sous vba.
Le problème c'est que quand je modifie une valeur de la feuilles excel , les cellules en dépendant ne se modifie pas 🙁 malheureusement Il faut que je clique sur la cellule et que revalide la formule avec l'icone "entrer"

J'ai essayer d'utiliser la fonction .volatile mais malheureusement ca affiche des erreurs .de même pour les fonction .calculate et refresh all
aidez moi svp

A bientôt,

 

[sylvanu]

Bonjour Intibeh,
Auriez vous un fichier test ?
Car habituellement "Application.volatile" ne provoque pas d'erreur.

 

[soan]

Bonjour intibeh, sylvanu,

bienvenue sur le site XLD ! 🙂

regarde cette option :

soan

 

[Dranreb]

Bonjour.
La seule manière correcte de concevoir une fonction personnalisée c'est de lui transmettre en arguments tous ses antécédents sans exception !

 

[intibeh]

Merci beaucoup pour votre aide .mais malheureusement ca marche pas 🙁 . Voici un fichier test (j'ai pas mis aucune des fonctions d'actualisation . vous pouvez les mettre pour mieux comprendre le fichier )
Bien Amicalement

 

[sylvanu]

Bonjour Intibeh, le fil,
Dans la PJ j'ai mis une liste déroulante et votre fonction, et ça marche.
On choisit l'acte et la fonction se recalcule.

Je n'ai pas essayé de comprendre votre fichier, mais uniquement tester votre fonction sans rien modifier.

Ceci dit votre fonction se simplifierais beaucoup par l'utilisation de Select Case.

 

[intibeh]

Bonjour , merci Sylvan , mais ma fonction est ="nv_val_cl" Normalement lorsque je modifie la cellule D7 de "formulaire " , la cellule U 7 de ANPE change directement ,. mais ce n'est pas le cas .

 

[Dranreb]

Bonjour.
Votre Function nv_val_cl n'a pas d'argument prévu. Donc rien ne peut permettre à Excel de détecter la nécessité de la réévaluer.

 

[sylvanu]

😂 Celle là m'avait échappé.

@intibeh,
Remplacez par : Function nv_val_cl(ligne%) As Variant
et supprimer la ligne ligne = ActiveCell.Row
et vous passez en formule : =nv_val_cl(Ligne())