Erreur compilation

Bonjour,

Néophyte en VBA....

J'ai mis au point mon fichier Excel avec ma tour.... Il fonctionne comme espérait !

Je le copie sur mon ordi portable et là dès que je l'ouvre, j'ai un message d'erreur:

"Erreur de compilation

Projet ou bibliothèque introuvable"

En cours de développement, je l'avais déjà mis sur ce portable et il n'y avait pas eu de souci. Mais serait-ce possible que l'origine de l'erreur se trouve dans une autre macro écrite depuis ?

Le code en question:

Function nb_cells(tmp As Range)

End Function

Dans la ligne 1200, tmp2= est surligné.

Mon ignorance en VBA me laisse interloqué mais si quelqu'un pouvait me donner une explication, je prendrais avec plaisir et moulte remerciements !

Merci d'avance

Bonjour Pastoutnet,

je te propose ce code VBA :

Option Explicit

Function nb_cells(tmp As Range) As Integer
  Application.Volatile
  If tmp = "" Then Exit Function
  Dim tmp2$, tmp3$
  tmp2 = tmp.Formula
  tmp3 = Replace$(tmp2, "+", "")
  nb_cells = Len(tmp2) - Len(tmp3) + 1
End Function

note qu'au départ, nb_cells vaut déjà 0 implicitement ; donc c'est inutile de mettre If tmp = "" Then nb_cells = 0

surtout qu'il vaut bien mieux mettre ce test dès le début de la fonction et pas à la fin !

dhany

Merci beaucoup dhany...

Ca fonctionne parfaitement

Le code que j'avais auparavant ne m'avait pas causé de pb jusqu'à maintenant !

Pour la fin de la phase de mise au point, j'ai remis à zéro tous mes tableaux; le pb a surgi après: effet de cause à effet ?

En tout cas, je ne comprend pas pourquoi, mais c'est tout bon !

Bonne soirée

Cordialement

merci pour ton retour !

bonne soirée à toi aussi !

dhany

C'est un minimum ..... et une question d'éducation !