Discussion :

[breweryfr]

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

[EricDgn]

Bonjour,

Cela ne résoudra sans doute pas le problème mais il faut quand même savoir que chaque variable doit être déclarée. Extrait de cette page:

Dans l’instruction suivante, les variables intX, intY et intZ sont déclarées avec le type Integer.
Dim intX As Integer, intY As Integer, intZ As Integer.

Dans l’instruction suivante, intX et intY sont déclarées avec le type Variant ; et seule intZ est déclarée avec le type Integer.
Dim intX, intY, intZ As Integer.

Cordialement.

[breweryfr]

Bonjour EricDgn,

Dans notre cas, les variables de définition de la matrice et de données à rechercher ont bien été déclarées.
Ce programme a été modifié en fonction de l'avancement du développement pour rechercher l'origine de mon problème. Et au final, il sera épuré...

Les dates sont calculées et je pensais que c'était l'origine du problème, jusqu'à ce que j'effectue les lignes de Test pour valider que le contenu était bien pris en compte et non la formule appliquée.

Merci pour ce retour.

[EricDgn]

Bonjour,

Oui, la recherche des dates ne se fait convenablement que sur les cellules où les dates sont présentées au format standard, càd jj/mm/aaaa. Expliqué sur ce post. En attaché, un petit exemple pour voir cela.

Cordialement.

[breweryfr]

Merci je vais étudier le fichier joint....et je reviens aussitôt.

[breweryfr]

Du fichier joint je comprends que :
- la valeur de la cellule H1 sera stockée dans la variable v au format #jj/mm/aaaa# affichée en K1 selon le format d'affichage défini.
- et que find trouvera uniquement la variable déclarée au format #jj/mm/aaaa# dans la matrice A1:E5...

Dans mon cas, il faudrait que je transpose la matrice calendrier au bon format pour effectuer la recherche.
Par exemple:
Plage = Range(A1:E5)
Plage.NumberFormat = "mm/dd/yyyy"
et ma recherche se fera uniquement sur la Plage pour trouver le bon adressage...dans l'onglet traité.