Problème avec Find lors d'une éxécution automatique

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:

---

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

---

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

Mmouaih ...:?

Code:

---

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

---

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

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:

---

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:

---

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

Bonjour,

Ceci fonctionne

Code:

---

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

---