Fonction VBA qui revoit #VALEUR!

Bonjour,

J'ai certaines cellules dans une feuille Excel qui font appelle à une fonction VBA.
Lorsque je passe sur un autre classeur et que j'y lance un code VBA puis que je reviens sur le classeur avec la fonction, celle-ci revoit #VALEUR!

Exemple: cellule "A1" =Get_Val()

Code:

---

1 2 3

Public Function Get_Val() As String Get_Val = "Pour test" End Function

---

la cellule "A1" affiche #VALEUR!

Mon classeur est en calcule automatique.
Dans le "Centre de gestion de la confidentialité" d'Excel, les macros VBA sont activées.
"Accès approuvé au modèle d’objet du projet VBA" est coché.

J'arrive à résoudre ce problème:
-en cliquant dans la barre de formule puis en validant (entrée) chaque cellule
-en convertissant chaque colonne de ma feuille (onglet Donnée/Convertir/Terminer)

Mes classeurs on un nombre important de cellules remplies (5000/feuille) , le nombre de cellules affichant #VALEUR! est 100.
J'ai beaucoup de cellules fusionnées, donc "Convertir" ne fonctionne pas/mal.

J'observe ce problème sur plusieurs classeurs, même à partir d'un nouveau.

Connaissez-vous une option à cocher ou autre qui me permettrais de résoudre ce problème ?

Merci

Salut

Essaie d'ajouter

Code:

---

Application.volatile True

---

au début du code de ta fonction.

Ça force le recalcule des cellules qui contiennent cette fonction... par contre ça le force à chaque modification d'une cellule de la feuille... et donc s'il y a beaucoup de cellules avec cette fonction, ça peut provoquer des lenteurs.

Essaie déjà pour voir si ça résout ton problème

[Edit]
J'ai testé chez moi (Office 365) mais même sans Volatile, je n'ai pas de problème, tu n'aurais pas une macro dans ton 2ème fichier qui mettrait le bazars?
[/Edit]

++
Qwaz

Salut, ajoute ceci dans ThisWorkbook:

Code:

---

1 2 3

Private Sub Workbook_Activate() Application.CalculateFullRebuild End Sub

---

Cela force un recalcul complet de toutes les cellules à chaque activation du classeur.
Les cellules fusionnées posent souvent problème, utilise plutôt Format > Alignement > Centrer sur plusieurs colonnes

Citation:

---

Envoyé par Franc

Les cellules fusionnées posent souvent problème, utilise plutôt Format > Alignement > Centrer sur plusieurs colonnes

---

Ah ben je connaissais pas cette fonction! Je te remercie :)

++
Qwaz

Cette solution fonctionne parfaitement:

Citation:

---

Envoyé par Franc

Salut, ajoute ceci dans ThisWorkbook:

Code:

---

1 2 3

Private Sub Workbook_Activate() Application.CalculateFullRebuild End Sub

---

---

celle là ne fonctionne pas dans mon cas:

Code:

---

Application.volatile True

---

Merci de vos aides.

Bonjour lucasgaetan

Avant de dire "ça ne fonctionne pas", il faudrait commencer par comprendre ce que font les instructions :roll:

"Application.Volatile" recalcule la fonction à chaques modifications dans le classeur

"Application.CalculateFullRebuild" force le classeur entier à recalculer ces formules,
mais attention, placé dans l'évènement "Activate", cela ne se fera qu'à l'activation du classeur... après plus rien :lol:

Donc pour moi, l'instruction la plus sûre reste la 1ère

Bonjour ExcelTastic,

Je n'ai pas dis que ça ne fonctionnait pas, j'ai dis "celle là ne fonctionne pas dans mon cas".
La nuance est que quand j'arrive d'un 2eme classeur, puis que je reviens sur mon 1er, les cellules ne sont plus valide.
D'où l'intérêt de la procédure Workbook_Activate.

Mais j'ai bien noté ta fonction et j'ai même commencé à la déployer.

Merci encore.