Discussion :

[tatayer_42]

Bonjour,
J'ai vu plusieurs sujets traitant de cela mais je n'ai pas trouvé ma réponse.
J'ai un fichier Excel contenant un fonction écrite dans un module VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function ConcatVLookUp(ByVal ValRecherche, _
                       ByVal TabMatrice As Range, _
                       ByVal IndexCol, _
              Optional ByVal blnConcat As Boolean = False, _
              Optional ByVal Separateur = ";") As Variant
 
' Permet une recherchev sur des caractères génériques
'
Dim c As Range
Dim coll As Collection
Set coll = New Collection
Application.Volatile
 
For Each c In TabMatrice.Cells
    If c.Value Like ValRecherche Then
    On Error Resume Next
        coll.Add c.Offset(0, IndexCol).Value, CStr(c.Offset(0, IndexCol).Value)
       If Err.Number = 0 Then
        ConcatVLookUp = ConcatVLookUp & Separateur & c.Offset(0, IndexCol).Value
       End If
    On Error GoTo 0
        If Not blnConcat Then Exit For
    End If
Next c
ConcatVLookUp = Mid(ConcatVLookUp, Len(Separateur) + 1)
 
Set c = Nothing
End Function

Je travaille sur MAC OS X version 10.4.10 PPC G5 avec Excel 2004.
Quand je crée un fichier vierge et que je met cette fonction, je peux l'utiliser sans soucis et enregistrer mon document.
Par contre, quand je veux le réouvrir, après avoir cliquer sur "Activer les macros", Excel plante...
Y aurailt-il une commande dans ce bout de code non compatible sur MAC? (bizarre vu que cela marche la 1ere fois)
Ou autre chose?
Merci par avance de votre aide.

[kiki29]

Salut, sans chercher plus loin supprime Application.Volatile

[tatayer_42]

Bonjour kiki29 et merci pour ta réponse.
Mais malheureusement (pour moi) cela ne change rien.
Je me demande si c'est bien dû à une incompatibilité entre plateforme. Si le problème ne vient pas de là je ne vois pas d'où il vient.
En essayant de lire le rapport d"erreur généré par Excel on apprend pas grand chose.

[tatayer_42]

Je viens de tester sous Windows avec Excel 2003 et ca fonctionne
Donc je vais devenir fou