Fonction vba : ne met pas à jour automatiquement le résultat !!!?

[bubu4343]

Bonjour,

J'ai créé une fonction qui renvoie un résultat dans une cellule (et qui prend en paramètre d'autre cellules de la feuille).
Le problème c'est que le résultat de ma fonction ne se met pas à jour (quand je modifie d'autres cellules relatives à cette fonction). je suis obligé de sélectionner ma cellule et de faire "enter" pour qu'elle recalcule.

Comment puis procéder pour le recalcule automatique de cette fonction ?
Merci

 

[Grand Chaman Excel]

Re : Fonction vba : ne met pas à jour automatiquement le résultat !!!?

Bonjour,

Pour que ta formule se recalcule, tu doit mettre Application.Volatile dans ta fonction.
Consulte l'aide Excel à ce sujet.

A+

 

[bubu4343]

Re : Fonction vba : ne met pas à jour automatiquement le résultat !!!?

slt et merci.
J'ai bien mis Application.Volatile au début de ma fonction.
En faite c'est une fonction qui compte les cellules d'une certaine couleur et quand je modifie la couleur des cellules, ça ne marche pas!!!!!

 

[Grand Chaman Excel]

Re : Fonction vba : ne met pas à jour automatiquement le résultat !!!?

Bonjour,
Je crois que le fait de changer de couleurs de cellules, ne force pas automatiquement le recalcul de ta fonction.
Tu peux contourner ce problème en ajoutant le code suivant dans ton onglet :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Calculate
End Sub

Ainsi, ta fonction sera recalculée chaque fois que tu changeras de cellules.
Attention, ça peut vite ralentir ton classeur si tu as plusieurs formules dedans.

A+

 

[mutzik]

Re : Fonction vba : ne met pas à jour automatiquement le résultat !!!?

bonjour,

si elle doit changer de couleur, c'est pour une raison bien précise, je suppose
et grâce à cette raison bien précise, il est facile de compter sans créer une fonction pour cela
avec un fichier sans données confidentielles, cela serait plus facile de t'aider

 

[Lericounet06]

Bonjour,

j'ai le même soucis et je n'arrive pas à automatiser ma VGA (code ci-dessous) :

General (en haut) CompterCouleur (en haut)

Function CompterCouleur(PlageCouleur As Range, Couleur As Range)

Dim CodeCouleur As Integer
Dim NbrCouleur As Integer

CodeCouleur = Couleur.Interior.ColorIndex
Set CCell = PlageCouleur
For Each CCell In PlageCouleur
If CCell.Interior.ColorIndex = CodeCouleur Then
NbrCouleur = NbrCouleur + 1
End If
Next CCell
CompterCouleur = NbrCouleur


End Function


Pouvez-vous m'aider ?

Merci

 

[Modeste geedee]

Bonjour,

j'ai le même soucis et je n'arrive pas à automatiser ma VGA (code ci-dessous) :

General (en haut) CompterCouleur (en haut)

Function CompterCouleur(PlageCouleur As Range, Couleur As Range)

Dim CodeCouleur As Integer
Dim NbrCouleur As Integer

CodeCouleur = Couleur.Interior.ColorIndex
Set CCell = PlageCouleur
For Each CCell In PlageCouleur
If CCell.Interior.ColorIndex = CodeCouleur Then
NbrCouleur = NbrCouleur + 1
End If
Next CCell
CompterCouleur = NbrCouleur


End Function


Pouvez-vous m'aider ?

Merci

Bonsour
Peut-être ajouter une instruction : volatile

Et/ou forcer le recalcul F9

 

[Lericounet06]

Bonsour
Peut-être ajouter une instruction : volatile

Et/ou forcer le recalcul F9

Salut Modeste geedee,

oui j'ai essayé de mettre "Application.volatile"
mais çà ne fonctionne pas ou je la place pas comme il faut.

 

[Modeste geedee]

Salut Modeste geedee,

oui j'ai essayé de mettre "Application.volatile"
mais çà ne fonctionne pas ou je la place pas comme il faut.

Bonsour
Pour qu'il y ait un recalcul il faut un changement de valeur !
Un changement de couleur manuel n'affecte pas les valeurs.