Fonction Evaluate dans VBA

Re,

pourtant chaque argument à une valeur de meme type ou pas

"Vous ne nous dites pas tout" (A R)

si votre fichier n'a pas de donnees confidentielles, mettez le a dispo en cliquant sur le lien suivant https://www.cjoint.com/

n'oubliez pas de copier/coller le lien cree

La description de l'erreur est : Incompatibilité de type

pourtant chaque argument à une valeur

x = Evaluate(plage1(i, 1) & critere & plage2(i, 1)) ==> Beug
x = Evaluate(plage1(i, 1) = plage2(i, 1)) ==> FONCTIONNE

Re,

vous ne repondez pas a la question que j'ai posee, ni a celle d'eriiic sur l'affichage de l'erreur 2015.

d'apres microsoft erreur 2015 est une erreur de excel2000 qui correspond a une erreur 13: incompatibilite de type. pour excel superieur a 2000

Avec excel2007-2010 (je n'ai plus excel2003)
j'arrive a visualise cette erreur 2015 par cette artifice:

'si une des deux valeurs est nulle alors x=erreur 2015
x = Evaluate(plage1(i, 1) & critere & plage2(i, 1))

Si vous voulez de l'aide, il faut y mettre un peu de bonne volonté

A+

plage1 et plage2 ont des valeurs numérique. et critere un texte.

plage1 est déclaré comme range car je fais reférence à une plage nommée dans excel.
plage2 est déclaré comme variant car j'utilise une petite macro pour récupérer certaines valeurs d'une zone.
critère est déclaré comme string et prend comme argument : "=", ">", "<",...

Voici la fonction

Function sommeplagesi(plage1 As Range, critere As String, Optional plage2 As Variant) As double

Dim i As Long
Dim sommeplage As double

sommeplage = 0

If UBound(plage2, 1) >= 1 Then
For i = 1 To UBound(plage2, 1)
If Evaluate(plage1(i, 1) = plage2(i, 1)) Then
sommeplage = plage2(i, 1) + sommeplage
Else
sommeplage = plage2(i, 1) * plage1(i, 1) + sommeplage
End If
Next i
Else
For i = 1 To UBound(plage1.Value, 1)
If Evaluate(plage1(i, 1).Value & critere) Then
sommeplage = sommeplage + plage1(i, 1)
End If
Next i
End If

sommeplagesi = sommeplage

End Function

à la place du égale dans Evaluate j'aimerai mettre : & critere &
==>
Evaluate(vplage1(i, 1) & critere & plage2(i, 1))

Bonjour,

quand vous avez l'erreur 2015, est-ce que vous avez une valeur nulle ou un caractere alphabetique dans une des deux variables plage1 et plage2

A+

Je suis sous Excel pro 2003 (sp3)

Re,

quel excel avez-vous??????

j'ai bien une chaine de caractère. J'ai même mis cstr() au cas où mais sans succès.

En gros :

Evaluate((plage1(i, 1) & "=" & plage2(i, 1))) ==> Beug : erreur 2015
Evaluate((plage1(i, 1) & critere & plage2(i, 1))) ==> Beug : erreur 2015
Evaluate((plage1(i, 1) = plage2(i, 1))) ==> fonctionne

J'ai essayé la procédure dans un nouveau classeur pour vous l'envoyez mais cela fonctionne correctement.
Et quand je vais la même chose dans mon classeur cela Beug.
Je ne comprend pas

Fethi

Bonjour,

un fichier exemple et le libellé du message serait un plus...
Déposer le fichier xls (réduit au nécessaire et anonymisé, avec les explications et éventuellement le résultat attendu) sur cjoint.com et coller ici le lien fourni.

eric

Bonjour,

j'ai essayer avec ce code et ca marche

Sub test1()
Dim plage1 As Range
Dim plage2 As Range

Set plage1 = Worksheets("feuil1").Range("A1:A10")
Set plage2 = Worksheets("feuil1").Range("B1:B10")

critere = ">"
For i = 1 To 10
    If Evaluate(plage1(i, 1) & critere & plage2(i, 1)) Then
        MsgBox "ok"
    Else
        MsgBox "pas ok"
    End If
Next i
End Sub

a voir