Utilisation de find dans une "function"

Version imprimable

25/05/2015, 11h26
bratak67

Utilisation de find dans une "function"

Bonjour,

Actuellement je travaille pour un client qui utilise encore Excel 2000
J'ai un classeur excel qui fonctionne très bien sur 2003 et supérieur, mais sur 2000 certaines macros ne fonctionnent pas.

Après plusieurs tests :mur:, j'ai trouvé l'origine des erreurs :
- Dans un "Sub" , la fonction find retourne bien la cellule que j'attends
- la même recherche find dans un "function" me retourne systématiquement Nothing

Apparemment ce problème n'apparaît que sur 2000 , puisque le même fichier mais ouvert avec 2003 répond correctement

Est-ce qu'il y a une astuce, qui m'aurait échappé, pour utiliser la fonction find dans un "function" d'Excel 2000

Merci d'avance à celui qui pourra stopper mon arrachage de cheveux :fou:

PS : Je sais que la version Office2000 commence à dater, mais le client est très attaché à son Office 2000 , et le client est roi :aie:
25/05/2015, 11h35
Daniel.C

Bonjour,

Est-ce que tu peux publier le code de la fonction ?

1 pièce(s) jointe(s)

Bonjour Daniel et merci de ton intervention,

J'ai un fichier très simple, je l'ai attaché à la discussion, qui contient deux fois la même recherche une fois sous forme de Sub et une autre sous forme de Function

Dans Excel 2003 ma cellule A1 contient "3" ( valeur que j'attends effectivement puisque la chaine est contenu dans "C3") alors que sous Excel 2000 elle contient "0".
Dans les deux versions, le "bouton 1" me retourne "3"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub test() Dim Cellule As Range With Range("C:C") Set Cellule = .Find(What:="test", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) End With If Cellule Is Nothing Then MsgBox "Not found" Else MsgBox Cellule.Row End If End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Function testf() Dim Cellule As Range With Range("C:C") Set Cellule = .Find(What:="test", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) End With testf = 0 If Cellule Is Nothing Then MsgBox "Not found" Else testf = Cellule.Row End If End Function

Bonjour,

je n'ai pas Xl2000, dur dur d'être sûr d'une solution

as-tu testé en utilisant un argument dans ta fonction ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function testf(NbCol As Long)
 
   Dim Cellule As Range
 
   With Columns(NbCol)
      Set Cellule = .Find(What:="test", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
   End With
 
   testf = 0
 
   If Cellule Is Nothing Then
    MsgBox "Not found"
   Else
       testf = Cellule.Row
   End If
 
End Function

avec en A1 : =testf(3)

Bonjour,

Le type retourné par la fonction testf n'est pas spécifié ..... je ne sais pas si c'est gênant sur les versions précédentes mais je le forcerai ....

Code:

Function testf() As Integer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Columns(NbCol)
      Set Cellule = .Find(What:="test", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
   End With
 
   testf = 0
 
   If Cellule Is Nothing Then
' Peut-être rajouter celà
    Set Cellule = .Find(What:="test", LookIn:=xlFormula, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
   End If
 
If Cellule Is Nothing Then
   MsgBox "Not found"
   Else
       testf = Cellule.Row
End If

J'ai trouvé un cas analogue sur internet (avec les mêmes colonnes ?). Le contournement est le suivant :
Code:

1 2 3 Dim Plage As Range Set Plage = Range("C:C") Set Cellule = Plage.Find(What:="test", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
Ca ne coûte rien d'essayer.

26/05/2015, 11h33
bratak67

Merci à vous pour vos différentes propositions.

Ajouter un argument, forcer le type de retour de la fonction , rechercher dans xlformula ou utiliser Columns(3) au lieu de Range(c:c) ne résolvent malheureusement pas le problème.

Quant à la solution de Daniel je l'avais également trouvé sur le Net, je viens de la retester mais sans succès

:arf: Je continue de chercher....

J'ai fait des tests complémentaires,

J'ai crée une Sub qui fait une recherche et qui affiche en MsgBox la cellule trouvée ==> OK
J'ai crée une fonction qui fait juste un appel à cette même Sub et là ==> KO, la MsgBox ne retourne jamais rien

==> J'en conclus qu'il est impossible de faire une recherche .find depuis une function sous Xl-2000 !!! 8O

Je vais donc revoir tout mon code pour qu'il soit compatible Xl-2000 :aie:

Bonjour,

Essaie encore, en précisant le nom de la feuille en paramètre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function testf(Ws As String) As Long
 
   Dim Cellule As Range
 
   With Sheets(Ws).Range("C:C")
      Set Cellule = .Find(What:="test", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
   End With
 
   testf = 0
 
   If Cellule Is Nothing Then
    MsgBox "Not found"
   Else
       testf = Cellule.Row
   End If
 
 
 
End Function

Ce qui donne, par exemple : "=testf("Feuil1")"

26/05/2015, 19h20
bratak67

Malheureusement , c'est un des premiers tests que j'ai fait, que je viens de refaire... sans succès

En tout cas, je vous remercie tous pour vos interventions