RANGE.FIND ne fonctionne pas pour une DATE

Version imprimable

Voir 40 message(s) de cette discussion en une page

24/10/2019, 14h11
MarcelG

Salut,

Je croyais que la variable iLastcol désignait la dernière colonne.
Si ton champ de recherche ne comprend que des nombres, sous format date ou autre, il convient que celui-ci soit uniforme.
Dans le cas contraire, il faudrait, après la recherche, définir le format sur une cellule spécifique.
Quoi qu'il en soit, et c'est la base du processus que nous considérons avec Theze, il faut, avant la recherche, uniformiser le format du champ en "General" (ou autre "0").
24/10/2019, 15h20
informer

3 pièce(s) jointe(s)

Merci MarcelG,

Grâce à ton aide et celle de tous les autres contributeurs, ça avance, mais comment

CLng(#1/1/1900#) => 2
oRgSelect.NumberFormat = "General" sur $C$2 (01/01/1900) => 1

Pièce jointe 512894
Pièce jointe 512895
Pièce jointe 512898
24/10/2019, 15h34
Patrice740

Bonjour,

Citation:

Envoyé par informer

CLng(#1/1/1900#) => 2
oRgSelect.NumberFormat = "General" sur $C$2 (01/01/1900) => 1

C'est un très vieux bug connu d'Excel, les dates Excel ne sont en concordance avec celles du VBA qu'a partir du 1er mars 1900, parce qu'Excel considère que la veille est le 29 février 1900 (alors que 1900 n'est pas bissextile !!!).

EDIT : Dans Excel, les dates du 00/01/1900 au 29/02/1900 ne sont pas valides, elles sont décalées d'un jour, il suffit de mettre ces dates au format long pour s'en rendre compte.
As-tu vraiment besoin de date antérieure au 1er mars 1900 ?
24/10/2019, 15h46
informer

Merci beaucoup Patrice740 pour l'info !

Encore un grand merci à tous. J'en ai fini avec mon problème ;)

Pour ce que cela vaut et pour une éventuelle autre solution, ma routine de MAJ des plages de risques

Total
Ouverts
Clos
Réalisés

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
public Function fHistoriser
 
    Set oRgRiskMatrix = oShtVersion.Range("h3:k8") '-> plage 6x4
 
    lLastRow = oShtGraphe.Range("a" & oShtGraphe.Range("a:a").Rows.Count).End(xlUp).Row
    lLastCol = oShtGraphe.Cells(3, oShtGraphe.Columns.Count).End(xlToLeft).Column - 1
 
    Set oRgSelect = oShtGraphe.Range(Cells(3, 2), Cells(3, lLastCol)): Debug.Print "oRgSelect.Address = " & oRgSelect.Address
    oRgSelect.NumberFormat = "General"
 
    dDate = Date
    Set oRgFind = oRgSelect.Find(What:=CLng(dDate), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
    If Not oRgFind Is Nothing Then
        oRgSelect.NumberFormat = "m/d/yyyy"
        Set oRgFind = oRgFind.Resize(lLastRow, 1):
        If fSetValue(oRgFind, oRgRiskMatrix, dDate) = True Then GoTo End_
    End If
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Function fSetValue(poRgTarget As Range, poRgSource As Range, pdDate As Date) As Boolean
 
    Dim oRg As Range
    Dim bFind As Boolean
    Dim i As Integer
 
    bFind = False
 
    i = 1
    For Each oRg In poRgTarget.Rows
       Debug.Print oRg.Address
       If oRg.NumberFormat = "m/d/yyyy" Then
           oRg.Resize(6, 1).Value = poRgSource.Columns(i).Value
           bFind = True
           i = i + 1
       End If
    Next
 
Exit_:
    fSetValue = bFind    
End Function

Voir 40 message(s) de cette discussion en une page