Discussion :

[John81]

Bonjour,

J'ai essayé de créer une fonction personnalisée me permettant de déterminer si une valeur est présente ou non dans une plage. voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
Function ESTPRESENT(TEXTE As String, PLAGE As Range) As Boolean
 
If PLAGE.Find(TEXTE) Is Nothing Then
    ESTPRESENT = False
Else
    ESTPRESENT = True
End If
 
End Function

Cette fonction marche bien en VBA. Mais lorsque j'utilise cette fonction personnalisée sur une feuille de calcul, je sélectionne ma plage et le résultat est systématiquement "FAUX".
Est-ce que qqn sait pourquoi?
Merci de votre aide. John81

[ucfoutu]

Bonjour,

Commence par nous montrer la formule mise dans ta cellule.

[John81]

Code :

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

=ESTPRESENT(H2;A:A)

[mercatog]

J'ai refais ta fonction, j'ai testé; si la valeur de H2 (en entier) existe en colonne A;->vrai

Code :

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

1
2
3
4
5
Public Function ESTPRESENT(TEXTE As String, PLAGE As Range) As Boolean
 
ESTPRESENT = IIf(PLAGE.Find(Trim(TEXTE)) Is Nothing, False, True)
 
End Function

[ucfoutu]

Oui...
Et il serait bon de forcer le calcul systématique par

Code :

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

Application.volatile

[mercatog]

Je crois le Application.Volatile n'est pas nécessaire
ou je me trompe

[John81]

C'est bizarre mais chez moi ça me donne toujours la valeur "FAUX"

[ucfoutu]

C'est bizarre mais chez moi ça me donne toujours la valeur "FAUX"

Ah...
Et tu dis que si tu utilises la même fonction en lui passant une plage et un texte depuis VBA (et pas depuis une cellule, en formule) , tout va par contre bien ?

Etrange, en effet....

Je n'ai pas les moyens, en ce moment, d'essayer, mais il n'est pas impossible que nous nous trouvions devant un autre cas de figure de carence de "grattage" conjoint entre deux équipes (celle d'EXCEL et celle de VB).

Va jeter un coup d'oeil à cette discussion qui n'a pas passionné les foules, apparemment (et pourtant ....) :
http://www.developpez.net/forums/d83...o/#post4766914
Cela ne résoudra pas ton problème, qui demeure toutefois intéressant (décidément) si tu confirmes la différence de réaction entre depuis VBA et depuis une cellule...

[mercatog]

Rien à voir avec le bug du CheckSpelling
ci-joint fichier test

[ucfoutu]

Bonjourt, Mercatog,

Comme dit souvent : je n'ouvre jamais un xls non écrit par moi !
Et je ne pourrais de toutes ùmanières pas le faire en ce moment...
Dis-nous simplement :
1) que te retourne la cellule concernée par la formule ?
2) as-tu fait le même appel de fonction, mais en VBA (depuis, par exemple, un bouton de commande, en lui passant les paramètres attendus) ?
Les deux retours sont-ils les mêmes ?
Si le 1er retourne FAUX et le second VRAI, c'est le même type de bug (très exactement le même) !

EDIT :
Ta réponse va être importante, Mercatog, principalement si les deux retournent VRAI (et tu seras alors gentil de nous préciser la version d'Excel).

[mercatog]

Bonsoir Ucfoutu;
Je sais, le fichier a été destiné à John
Excel 2003:

Code :

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

1
2
3
4
5
6
Option Explicit
Public Function ESTPRESENT(TEXTE As String, PLAGE As Range) As Boolean
 
ESTPRESENT = IIf(PLAGE.Find(Trim(TEXTE)) Is Nothing, False, True)
 
End Function

Dans une feuille je mets en H2: "toto"
en C2 =ESTPRESENT(H2;A:A)
en C3: =ESTPRESENT(" toto ";A:A)
je mets ce code

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Range("D2").Value = ESTPRESENT(Range("H2").Value, Columns(1))
Range("D3").Value = ESTPRESENT("toto", Columns(1))
End Sub

Le résultat est le même!

[ucfoutu]

Merci énormément, Mercatog,

A John, maintenant :
- Quelle est ta version de EXCEL ?
- la plage "prospectée" contient-elle bien au moin une cellule avec la chaîne recherchée ?
- Nous confirmes-tu deux réactions différentes selon que l'on appelle depuis une cellule (fonction personalisée en formule) ou depuis VBA (en passant les mêmes paramètres) ?
Ta réponse est également importante ....

Bon...
J'ai mis en route Excel sur une autre machine, pour y voir clair
Excel 2007
===>>> pas de bug non plus ! ça marche bien ...

Attendons maintenant John ...