Discussion :

[Mario Martel]

Voici une description de l'application:
- À partir de quelques Feuilles-Sources de travail, je génère la semaine de travail d'un livreur dans un Calendrier.
- Pour chaque livraison, des informations sont affichées dans une cellule et aussi dans les commentaires de celle-ci, dont le nom de la Feuille-Source et la Date.
- Dans les Feuilles-Sources, j'ai plein d'informations pour chacune des livraisons.
- Je désire à partir du Calendrier, en cliquant sur une cellule, accéder à la Source des données.

Mon problème:
J'extrait des commentaires d'une cellule, le nom de la Feuille-Source et la date.
J'accède à cette feuille, mais je ne réussi pas me positionner sur la date donnée avec la fonction Find.

Le format de date dans les Feuilles sources jjj aaaa-mm-jj. Extrait de la variable Commentaire, "aaaa-mm-jj"

Ma macro:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Retracer la Source
Dim Commentaire, Feuille As String
Dim Pos As Integer
Dim DateZ As Date
 
 If ActiveCell.Address <> Range("SemaineDébutant").Address Then
    Commentaire = ActiveCell.Comment.Text
    Pos = InStr(1, Commentaire, Chr$(10))
    Feuille = Left$(Commentaire, Pos - 1)
    DateZ = CDate(Mid$(Commentaire, Pos + 1, 10))
    If IsDate(DateZ) Then
       Worksheets(Feuille).Activate
       Cells.Find(What:=DateZ, LookAt:=xlPart).Activate
    End If
 End If
End Sub

Merci à l'avance de l'attention que vous porterez à ma demande.

[Mario Martel]

J'ai finalement trouvé...

À Cells.Find(What:=DateZ, LookAt:=xlPart).Activate, j'ai ajouté le nom de la feuille. Donc:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Retracer la Source
Dim Commentaire, Feuille As String
Dim Pos As Integer
Dim DateZ As Date
 
 If ActiveCell.Address <> Range("SemaineDébutant").Address Then
    If Not ActiveCell.Comment Is Nothing Then
       Commentaire = ActiveCell.Comment.Text
       Pos = InStr(1, Commentaire, Chr$(10))
       Feuille = Left$(Commentaire, Pos - 1)
       DateZ = CDate(Mid$(Commentaire, Pos + 1, 10))
       If IsDate(DateZ) Then
          Worksheets(Feuille).Activate
          Worksheets(Feuille).Cells.Find(What:=DateZ, LookAt:=xlPart).Activate
       End If
    End If
 End If
End Sub