encore un soucis avec la fonction "find" sur une date

**patricktoulon** · 09/10/2015, 14h29

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é · 09/10/2015, 14h36

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** · 09/10/2015, 14h47

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

Invité · 09/10/2015, 14h52

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

**patricktoulon** · 09/10/2015, 15h00

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é · 09/10/2015, 15h10

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** · 09/10/2015, 15h14

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** · 09/10/2015, 15h19

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

**Marc-L** · 09/10/2015, 15h29

Bonjour, bonjour !

Comme souvent répété dans les discussions de ce forum,
Find fonctionne par défaut avec l'affichage texte si recherche dans les valeurs !

Si par contre la colonne ne contient pas de formules, utiliser Find en cherchant dans les formules
avec soit une date soit un entier long représentant la date !

Evidemment pour que cela fonctionne, ne pas oublier de paramétrer son argument LookIn, hein Patrick !
Si l'ami canadien DocMarti passe par ici, il va t'en remettre une couche ‼

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

**patricktoulon** · 09/10/2015, 15h42

salut Marc !!

oui bon ben moi je formate la colonne en texte

et je n'ai plus de soucis

sachant que c'est moi qui insert la date la veille avec "format" donc en string je n'ai pas a me soucier de cela hein marc !!!

il fallait simplement passer du format "standard" qui est automatique , a "texte" dans le menu format cellule

maintenant effectivement si c'etait un fichier récupéré ou autrement formaté il faudrait effectivement que je passe par une formule cdbl par exemple

je vais m'y interésser de plus près ca peut servir

je suis en train de refaire le fichier pour sebphyto mais en travaillant sur excel et non dans un htmldocument en memoire
donc tout en string et ca change pas mal de chose quand au procédé

bon je vais examiner une nouvelle fois vos réponses et mediter sur ce point
merci a tous

encore un soucis avec la fonction "find" sur une date [Toutes versions]

Macros et VBA Excel

Discussions similaires

Partager

Partager