Erreur compilation !!!!!!

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Pastoutnet
Membre habitué
Membre habitué
Messages : 68
Inscrit le : 30 août 2018
Version d'Excel : 2013

Message par Pastoutnet » 13 janvier 2019, 22:24

Bonjour,

Néophyte en VBA.... :bof:

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)

1190 Application.Volatile
1200 tmp2 = tmp.Formula
1210 tmp3 = Replace(tmp2, "+", "")
1220 nb_cells = Len(tmp2) - Len(tmp3) + 1
1230 If tmp = "" Then nb_cells = 0

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
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'080
Appréciations reçues : 698
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 13 janvier 2019, 22:49

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 !  :wink:

dhany
Avatar du membre
Pastoutnet
Membre habitué
Membre habitué
Messages : 68
Inscrit le : 30 août 2018
Version d'Excel : 2013

Message par Pastoutnet » 13 janvier 2019, 23:02

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
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'080
Appréciations reçues : 698
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 13 janvier 2019, 23:06

merci pour ton retour !  :D

bonne soirée à toi aussi !  :trfl:

dhany
Avatar du membre
Pastoutnet
Membre habitué
Membre habitué
Messages : 68
Inscrit le : 30 août 2018
Version d'Excel : 2013

Message par Pastoutnet » 14 janvier 2019, 00:00

C'est un minimum ..... et une question d'éducation ! ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Erreur de compîlation
    par cfn3cfn » 28 août 2016, 14:50 » dans Excel - VBA
    8 Réponses
    141 Vues
    Dernier message par cfn3cfn
    29 août 2016, 07:16
  • erreur de compilation
    par r4944 » 30 mars 2016, 21:40 » dans Excel - VBA
    8 Réponses
    247 Vues
    Dernier message par r4944
    6 avril 2016, 22:31
  • Erreur de compilation
    par mvsr49 » 31 août 2016, 19:15 » dans Excel - VBA
    15 Réponses
    391 Vues
    Dernier message par mvsr49
    1 septembre 2016, 22:56
  • Erreur de compilation
    par johan87 » 7 mars 2017, 16:01 » dans Excel - VBA
    2 Réponses
    105 Vues
    Dernier message par johan87
    7 mars 2017, 16:24
  • Erreur de compilation
    par Florian53 » 19 octobre 2017, 08:57 » dans Excel - VBA
    6 Réponses
    111 Vues
    Dernier message par Florian53
    19 octobre 2017, 11:38
  • Erreur de Compilation
    par Bernard17 » 1 octobre 2019, 19:31 » dans Excel - VBA
    4 Réponses
    47 Vues
    Dernier message par Bernard17
    2 octobre 2019, 07:39