Discussion :

[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").

[informer]

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

[Patrice740]

Bonjour,

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 ?

[informer]

Merci beaucoup Patrice740 pour l'info !

[informer]

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 :

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
 
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 :

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
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