Erreur de compilation : projet ou bibliotheque introuvable

Bonjour a tous,

J'ai "phénomène" étrange.

J'ai fichier Excel avec des macro qui fonctionnait très bien jusqu' a maintenant.

Hier, je l'ouvre et den voulant utiliser le fichier, par exemple changer un ingredient ou bien reinitialiser le tableau, j'ai des messages d'erreur qui apparaissent sur le code, du type de celui ci-dessous.

ça semble localiser sur cette partie du code (module 2). Ce sont des fonctions que j'utilise dans mon tableau. J'ai recuperer le code sur le net.

Il me selectionne le a= par exemple sur la fonction RechTous. J'ai eu aussi le même message d'erreur avec le left de la fonction ConcatPlage2 selectionné (cf capture d''ecran ci-dessous).

Pourriez vous m'aider svp a comprendre pk ça ne fonctionne plus et comment solutionner ce probleme?

Je vous joins le fichier

En vous remerciant par avance

Bastien

Function RechVTous(v, champRech As Range, ChampRetour As Range, separateur)
  a = champRech
  temp = ""
  For i = 1 To champRech.Count
    If a(i, 1) = v Then
        temp = temp & ChampRetour(i) & separateur
    End If
  Next i
  RechVTous = Left(temp, Len(temp) - Len(separateur))
End Function

Function ConcatPlage(plage As Range, contenant As String, séparateur As String) As String
    Dim rep As String, c As Range
    For Each c In plage
        If InStr(c.Value, contenant) > 0 Then
            rep = rep & c.Value & séparateur
        End If
    Next c
    ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function

Function ConcatPlage2(plage As Range, séparateur As String) As String
    Dim rep As String, c As Range
    For Each c In plage
        If c.Value > 0 Then
            rep = rep & c.Value & séparateur
        End If
    Next c
    ConcatPlage2 = Left(rep, Len(rep) - Len(séparateur))
End Function
image image image

Bonjour,

Un seul conseil, mets "Option Explicit" en début de module et définit tes variables

Après on en reparle

@+

Hello

J'ai ajouté option explicit mais ça n'a pas resolut le probleme :-(

J'ai finalement choisit de coder directement dans une macro la concatenation

Bonne journée a tous

Rechercher des sujets similaires à "erreur compilation projet bibliotheque introuvable"