Discussion :

[patricktoulon]

bonjour a tous
j'ai encroe un soucis avec find sur une date
j'ai essayé plusieur facon de l'aborder mais rien n'y fait il semblerait que find renvoie quand meme nothing
le but de cette macro et de copier des ligne si la date n'existe pas dans le sheets archive /rien faire si elle existe

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
32
33
Sub archivages()
    Dim donné, arrivée, cel As Range, ligarriv As Range
    With Sheets(1)
        arrivée = .Range("B3:F3").Value
        donné = Array(Format(.Range("B4"), "dd/mm/yyyy"), .Range("B7"), .Range("B6"), .Range("B9"), .Range("B8"), .Range("B5"))
        Set r1 = .Range("A18:k18")
        Set r2 = .Range("A26:k26")
        Set r3 = .Range("A27:k27")
        Set Rng = Application.Union(r1, r2, r3)
    End With
    Set ligne = Sheets("archive").Columns("A:A").Find(CDate(Sheets(1).Range("B4").Value))
    'Sheets("archive").Columns("A:A").Find(Sheets(1).Range("B4").Value, lookat:=xlWhole)
    ' Sheets("archive").Columns("A:A").Find(Format(Sheets(1).Range("B4").Value, "dd/mm/yyyy"))
    If ligne Is Nothing Then
        Rng.Copy
        Set plage_dest = Sheets("archive").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Resize(3, 11)
        plage_dest.PasteSpecial Paste:=xlPasteValuesAndNumberFormats    'voir Enum ci-dessous
        Sheets("archive").Cells(Rows.Count, 1).End(xlUp).Offset(3, 0).Resize(1, 6) = donné
    End If
    Set cel = Sheets("archive").Columns("A:A").Find(Format(Sheets(1).Range("B2"), "dd/mm/yyyy"))
    If Not cel Is Nothing Then
        Set ligarriv = cel.Offset(0, 17).Resize(1, 5)
        ligarriv = arrivée
    End If
    lig = Sheets("archive").Cells(Rows.Count, "G").End(xlUp).Row
    With Sheets("archive").Range("A" & lig & ":Aw" & lig).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .Weight = xlThick
    End With
    'MFC
    'MsgBox ligarriv.Address
End Sub

[Invité]

Bonjour Patrick,
toujours au format international!

Code :

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

MyFormat="yyyy-mm-dd"

Code :

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

donné = Array(Format(.Range("B4"),MyFormat), .Range("B7"), .Range("B6"), .Range("B9"), .Range("B8"), .Range("B5"))

Code :

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

 Set ligne = Sheets("archive").Columns("A:A").Find(format(Sheets(1).Range("B4").Value,MyFormat))

Code :

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

Set cel = Sheets("archive").Columns("A:A").Find(Format(Sheets(1).Range("B2"), MyFormat))

[patricktoulon]

re
ok robert sauf que a m'arrange pas ce format
tu as une idée pour conserver ce format ?

[Invité]

c'est transparent pour toi, excel comprendra "dd/mm/yyyy" (paramètre régional!)

[patricktoulon]

bon j'ai trouvé mais c'est quand meme curieux

la veille je place la date en string avec format

exemple;

Code :

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

sheets(1).range("A10")=format("20/10/2015")

le lendemain je fait

Code :

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

sheets(1).colum("A:A").find(format("20/10/2015"))

ca me renvoie nothing

par contre si je formate la colonne au format voulue la oui ca fonctionne

j'en conclu donc que le format de la cellule n'est pas identique a celui affiché malgré l'insertion de la date avec format

donc si je veux garder ce format visible et reel il faut que je formate la colonne ou voir meme la cellule dynamiquement par la suite
soit la veille

Code :

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

1
2
sheets(1).range("A10")=format("20/10/2015")
sheets(1).range("A10").numberformat="dd/mm/yyyy"

et le find trouve

[Invité]

Code :

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

1
2
3
Range="01/02/1015")
donne "02/01/2015"
alors que range="2015/02/01" donne "01/02/2015"

c'est pour cela que le format internationale est de rigueur!
les dates coté XLS sont vues en fonction des paramétrés régionaux,
coté VBA comme des date américaines!

le format internationale, oblige Excel à cogiter!
find("01/02/215") fera chercher "02/01/2015" alors que find("2015-02-01") fera cherche "01/02/2015"

[patricktoulon]

bon finalement c'est bien un probleme de format (affiché/reel)
et meme en formatant la colonne en placant format(blala,"dd/mm/yyyy") j'obtiens le format international

j'ai donc mis toute la colonne au format text
et apres insertion au format que je veuxle find trouve avec le meme format

[patricktoulon]

re

le format internationale, oblige Excel à cogiter!
find("01/02/215") fera chercher "02/01/2015" alors que find("2015-02-01") fera cherche "01/02/2015"

désolé Robert mas ca n'est absolument pas le cas chez moi
si j'ai en regional "09/10/2015" dans la colonneA et qe je fai un find("2015/10/09") le find me done nothing