Bonjour,

Je cherche à compléter mon calendrier (OngletS "MODELE").
La recherche se faisant dans l'ongletS depuis une date extraite de l'ongletJF "JoursFeries".

Un exercice simple, mais la fonction .Find ne le trouve pas ...

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim om As Worksheet
Dim g, j, k, l, m, n, o As Long
Dim Chemin, Source, OngletS, OngletJF, OngletVS As String
Dim ligne, colonne As Integer
Dim H_Lundi, H_Mardi, H_Mercredi, H_Jeudi, H_Vendredi As Long
 
 
ligne = ActiveCell.Row
colonne = ActiveCell.Column
Source = "Calendrier Modèle1.xlsm"
OngletS = "MODELE"
OngletJF = "JoursFeries"
OngletVS = "VacancesScolaires"
k = 0
g = 0
 
'Workbooks.Open Filename:=Chemin & Target
Sheets(OngletS).Select
Application.ScreenUpdating = False
 
Worksheets(OngletS).ScrollArea = ""
Worksheets(OngletS).Activate
 
'Vérifie que la date de l'onglet OngletJF est identique à celle se trouvant dans OngletS
DateF = ActiveWorkbook.Worksheets(OngletJF).Cells(12, 2).Value
Test = (DateF = ActiveWorkbook.Worksheets(OngletJF).Cells(12, 2).Value)
'Test est VRAI à l'excution du deboggage
'La valeur se trouve en [4,9]
DateFS = Cells(4, 9)
Test = (DateF = DateFS)
'Test est VRAI à l'excution du deboggage
 
Set Plage = Worksheets(OngletS).Range("I4:I34").Find(DateF, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=False, SearchFormat:=False)
If Plage Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = Plage.Row
col = Plage.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
Set om = Worksheets(OngletS)
 
'Valeur présente
Set Plage = om.Cells.Find(DateF, LookIn:=xlValues)
 
If Plage Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = Plage.Row
col = Plage.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
Je me posais la question si le format de la date pouvait entrer en compte, mais vous remarquerez que les lignes de test "Calcul de Test" valide les formats identiques....
Est-ce une erreur d'écriture sur l'expression de la fonction .Find ?
J'ai également lancé la macro sous Excel 2016 et sans succès.

Merci d'avance aux participants.

Voici à quoi ressemble mon calendrier
Nom : A.png Affichages : 222 Taille : 42,2 Ko