Erreur incompatibilité de type avec une fonction

Résolu
louloubru Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
louloubru Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai un problème qui devient récurrent dans tout ce que j'essaie de faire : excel me signale une "incompatibilité de type". Je ne parviens pas à trouver l'incompatibilité en question.

Je testai cette procédure : 
Sub Test()
Range("F2").Value = Application.Sum(Range(RefCell(Sheets("Evènements"), "coucou")).EntireColumn)
End Sub

RefCell étant une fonction que j'ai créé et qui se trouve si dessous (il y avait peut-être plus simple mais ça fonctionne !) :

'Fonction qui trouve la référence de la cellule contenant la valeur (TEXT !) cherchée (fonctionne uniquement pour une seule occurrence de la valeur) 
Function RefCell(MonTableau As Range, Text As String)
    Dim MaCellule As Range
    For Each MaCellule In MonTableau
        If InStr(1, MaCellule, Text) = 1 Then
            RefCell = MaCellule.Address
            Exit Function
        End If
    Next MaCellule
End Function

L'objectif est de faire la somme de toutes les valeurs d'une colonne, en donnant la plage dans laquelle doit se trouver la colonne et son nom (donc valeur dans sa première cellule).
Je souhaiterais ensuite faire une boucle me permettant d’exécuter cela sur une liste de feuilles mais on va y aller étape par étape.

Merci par avance pour votre aide !

2 réponses

Réponse 1 / 2
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
Bonjour,
tu écris 
MonTableau As Range
et tu lui envoies le nom d'une feuille dans tes arguments 
Sheets("Evènements")
une feuille n'est pas un range à mon avis ton incompatibilité de type se trouve ici..
1
louloubru Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup,
j'ai changé Range en Worksheets mais ça ne fonctionne pas non plus ...
Toujours erreur de compatibilité de type.

Je remets le code :

Fonction : 

Function RefCell(MonTableau As Worksheets, Text As String)
    Dim MaCellule As Range
    For Each MaCellule In MonTableau
        If InStr(1, MaCellule, Text) = 1 Then
            RefCell = MaCellule.Address
            Exit Function
        End If
    Next MaCellule
End Function




Procédure utilisant la fonction : 

Sub Test()
Range("F2").Value = Application.Sum(Range(RefCell(Sheets("Evènements"), "zrfz")).EntireColumn)
End Sub




Merci par avance !
0
Réponse 2 / 2
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
une base comme celle ci me semble plus correct : 
Function RefCell(varSheet As Worksheets, Text As String)
    Dim MonTableau As Range

    MonTableau=Worksheets(varsheet).Range("A1:A10") 'à toi de définir la plage correcte

    For Each Cell In MonTableau
        If InStr(1, Cell, Text) = 1 Then
            RefCell = Cell.Address
            Exit Function
        End If
    Next 
End Function
1
louloubru Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
C'est tout bon merci !
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses
erreur 13 incompatibilité de type VBA excel
monalisach -
monalisach -

2 réponses
Erreur exécution 13 : incompatibilité de type
Belinos -
yg_be -

9 réponses
Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses