Discussion :

[gentyjp]

Bonjour ,

J'ai un problème avec Find, qui marche lorsque j'appelle la fonction en debug, mais pas en calcul automatique.

1/ Je déroule la fonction Test dans l'éditeur VBA, la fonction Test2 fonctionne correctement, la date passée en argument est trouvée

2/ Dans une cellule de ma 5ième feuille, je mets =Test2(B3;"Date2010"). La date contenue dans B3 n'est pas trouvée, bien que sa valeur soit bien présente dans la plage "Date2010"

Si quelqu'un avait une piste ...

Merci !!!

PS: je viens de rajouter un fichier de test

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
19
20
21
22
23
24
25
26
27
28
 
Sub Test()
   Dim i As Double
   i = Test2(ThisWorkbook.Sheets(5).Range("B3"), "Date2010")
End Sub
 
Function Test2(dateDebut As Date, sPlageDate As String) As Double
   Application.Volatile
 
   Test2 = 14
   Dim rCellTest As Range
   For Each rCellTest In Range(sPlageDate)
      ' pour vérification de la plage
      Debug.Print "Date " & rCellTest
   Next rCellTest
 
   Dim rCellDebut As Range
   Set rCellDebut = Range(sPlageDate).Find(What:=dateDebut, lookat:=xlWhole)
 
   If (rCellDebut Is Nothing) Then
      Debug.Print "Date non trouvée dans la plage " & sPlageDate & " Debut : " _
                  & dateDebut
      Exit Function
   End If
 
   Test2 = 15
 
End Function

[gentyjp]

Réponse trouvée sur un autre forum, en précisant le format ça marche même en volatile.

Mmouaih ...

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
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Sub Test()
  Dim i As Double
  i = Test2(ThisWorkbook.Sheets(1).Range("D2"), Range("Date2010"))
End Sub
 
Function Test2(dateStart As Date, rRangeDate As Range) As Double
  Application.Volatile
 
  Test2 = 14
  Dim rCellTest As Range
  For Each rCellTest In rRangeDate
    ' to check the range content
    Debug.Print "Date " & rCellTest
  Next rCellTest
 
  Dim rCellStart As Range
  Set rCellStart = rRangeDate.Find(What:=Format(dateStart, rRangeDate.Cells(1).NumberFormat), _
                                          lookat:=xlWhole, LookIn:=xlValues)
 
  If (rCellStart Is Nothing) Then
    Debug.Print "Date not found in range date : " _
                & dateStart
    Exit Function
  Else
    Debug.Print "Date found " & rCellStart
  End If
 
  Test2 = 15
 
End Function

[LabChNe]

Salut gentyjp;

Je confirme, j'ai le même problème que toi.
Je remarque qu'en exécutant le code pas à pas que la méthode find retrouve la valeur recherché.
Mais en exécutant le programme normalement, la méthode find plante.

Je vais suivre les réponses et chercher de mon côté.
Tu me tiens en corant de ton côté.

++

LabChNe

[LabChNe]

J'essaye de chercher une valeur dans un autre classeur, récupérer une donnée e t revenir sur le premier classeur.

Avec une synthaxe abituelle:

Code :

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

1
2
3
4
5
Workbooks("classeur2").Activate
Worksheets("Feuil1").Activate
With Range("B:B")
Set c=.Find(ValeurRecherché, LookIn:=xlValues)
'....

En exécutant le programme pas à pas, la éthode Find trouve la valeur recherché sans problème.
Maintenant, en appelant le programme par bouton la méthode Find plante.
J'ai même essayé de changer et de mettre:

Code :

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

Set c=Workbooks("classeur2").Sheets(1).Range("B1:B900").Find(ValeurRecherché, LookIn:=xlValues)

Ca ne marche pas, j'ai intégré les données du deuxième classeur dans le premier et puis là ca marche.

Je ne sais pas si quelqu'un a une explication, qu'est ce qui fait que la méthode find entre deux classeurs retourne une valeur Nothing.

Merci, +++

LabChNe

[fring]

Bonjour,

Ceci fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Sh As Worksheet, Cel As Range, ValRech As String
 
Set Sh = Workbooks("Source.xls").Sheets(1)
ValRech = "toto"
 
Set Cel = Sh.Columns("A").Find(ValRech)
If Not Cel Is Nothing Then
    MsgBox "La valeur recherchée a été trouvée dans la cellule " & Cel.Address(0, 0)
Else
    MsgBox "La valeur recherchée n'a pas été trouvée"
End If
 
End Sub