Discussion :

[bratak67]

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 , 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

PS : Je sais que la version Office2000 commence à dater, mais le client est très attaché à son Office 2000 , et le client est roi

[Daniel.C]

Bonjour,

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

[bratak67]

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 :

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
 
   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 :

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
 
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

[joe.levrai]

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 :

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
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)

[vinc_bilb]

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 :

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

Function testf() As Integer

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
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

[Daniel.C]

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

Code :

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

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.