Erreur avec cells.find

[Mytå]

Salut le Forum

Je ne trouve pas la solution

malgré plusieurs essai avec

LookIn:=Xlvalues ou matchcase:=true etc....

à vous de m'aider pour un coup de pouce....

Merci Mytå

 

[MichelXld]

Re : Erreur avec cells.find

bonjour cher Myta


Effectivement Cells.Find pose un soucis


En attendant tu peux essayer avec la fonction Match

Private Sub CommandButton1_Click()
Dim maDate As Long 'Date
Dim x As Integer
 
maDate = CDate(Sheets("Tirage").Range("W3"))
 
Repete:
 
On Error Resume Next
x = Application.WorksheetFunction.Match(maDate, Worksheets("Update").Columns(1), 0)
On Error GoTo 0
 
If x > 0 Then
    [B11] = Day(Worksheets("Update").Cells(x, 1))
    [B12] = Month(Worksheets("Update").Cells(x, 1))
    [B13] = Year(Worksheets("Update").Cells(x, 1))
    Exit Sub
Else
    maDate = maDate + 1
End If
 
GoTo Repete
 
End Sub

Un autre solution pour trouver la premiere date, par formule

=MIN(SI(Update!A1:A1000>0;Update!A1:A1000))

que tu pourras ensuite décomposer en jour / mois / année , dans ton classeur.


Bonne journée
MichelXld

 

[Mytå]

Re : Erreur avec cells.find

Salut le Forum

Merci MichelXLD pour ta solution,

je vais essayer de l'adapter car mes dates ne sont pas toujours
dans la colonne 1. (Les données viennent d'une requête Web)

Mytå

P.S. Je continue de chercher l'erreur du Cells.Find

 

[Pierrot93]

Re : Erreur avec cells.find

Bonsoir Myta, Michel

Il doit y avoir quelque chose que je n'ais pas saisie car si je met 21/12/2005 en W3, je retrouve bien la décomposition dans B11 12 13 comme indiqué dans ton fichier. (j'ai Excel 2003).

bonne soirée
@+

 

[MichelXld]

Re : Erreur avec cells.find

rebonsoir Myta, bonsoir Pierrot

en consultant le site contenant la source externe, je me demande si le problème ne viendrait pas d'un format Date anglais


à tester:

Repete:
 
Madate = Format(CDate(Sheets("Tirage").Range("W3").Value), "mm/dd/yyyy")
 
If Not Sheets("Update").Cells.Find(Madate) Is Nothing Then
    [B11] = Day(Sheets("Tirage").Range("W3"))
    [B12] = Month(Sheets("Tirage").Range("W3"))
    [B13] = Year(Sheets("Tirage").Range("W3"))
    Exit Sub
Else
    Sheets("Tirage").Range("W3") = Sheets("Tirage").Range("W3") + 1
End If
 
GoTo Repete

Bon week end
MichelXld

 

[Mytå]

Re : Erreur avec cells.find

Salut MichelXLD, Pierrot93 et le Forum

Avec ceci j'ai résolu mon problème

Private Sub CommandButton1_Click()
 
Dim MaDate As String
Dim MaCell As Range
 
Repete:
 
MaDate = Format(Sheets("Tirage").Range("W3"), "Short Date")
Set MaCell = Sheets("Update").Cells.Find(What:=CDate(MaDate),LookAt:=xlWhole)
 
If Not MaCell Is Nothing Then
[B11] = Day(Range("W3"))
[B12] = Month(Range("W3"))
[B13] = Year(Range("W3"))
Set MaCell = Nothing
Exit Sub
Else
Sheets("Tirage").Range("W3") = Sheets("Tirage").Range("W3") + 1
Set MaCell = Nothing
End If
 
GoTo Repete
 
End Sub

Pierrot93 met 01-01-2004 en w3 et lance la recherche tu auras 02-12-2005 comme résultat

Mytå

Correction du code erreur lors de la copie

 

[myDearFriend!]

Re : Erreur avec cells.find

Bonsoir Mytå, MichelXld, Pierrot93, le Forum,

Après quelques essais avec le code initial de ce fil, il me semble que le problème soit contourné également avec :

[SIZE=2][COLOR=NAVY]If Not[/COLOR] Sheets("Update").Cells.Find(Madate, [B]LookAt[/B]:=[B]xlWhole[/B]) [COLOR=NAVY]Is Nothing Then[/COLOR]
[/SIZE]

Je pense que l'origine du problème provient avant tout du type de donnée recherchée qui est une Date. Sauf erreur, l'affichage de "21/12/2005" est essentiellement dû au format de cellule, la "date" en interne étant représentée en réalité "38707", j'imagine que Find perd un peu pied dans ce cas...

Cordialement,

 

[Mytå]

Re : Erreur avec cells.find

Merci à vous tous

Mytå