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
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