Renvoyer des valeurs en fonction d'une date

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim DC As Date 'déclare la variable DC (Date Cherchée)
Dim OP As Worksheet 'déclare la variable OP (Onglet Portfolio)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim DT As Date 'déclare la variable DT (Date Trouvée)

If Target.Address <> "$C$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en C1, sort de la procédure
range("A3:A" & Application.Rows.Count).ClearContents 'efface d'éventuelles anciennes données
If Target.Value = "" Then Exit Sub 'si C1 est effacée, sort de la procédure
DC = DateSerial(Year(Target.Value), Month(Target.Value), Day(Target.Value)) 'définit la date cherchée DC
Set OP = Worksheets("Portfolio") 'définit l'onglet OP
TV = OP.Range("A12").CurrentRegion 'définit le tableau des valeurs TV
For I = 4 To UBound(TV, 1) 'boucle sur toutes les ligne I du tableau des valeurs (en partant de la 4ème)
    DT = DateSerial(Year(TV(I, 1)), Month(TV(I, 1)), Day(TV(I, 1))) 'définit la date trouvée DT (donnée en colonne 1 de la ligne de la boucle)
    If DT = DC Then 'condition : si les dates correspondent
        Range("A3").Resize(UBound(TV, 2),1).Value = application.transpose(Application.Index(TV, I)) 'renvoie dans A3 redimensionnée la ligne I du tableau des valeurs TV
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim DC As Date 'déclare la variable DC (Date Cherchée)
Dim OP As Worksheet 'déclare la variable OP (Onglet Portfolio)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim K As Integer 'déclare la variable K (incrément)
Dim DT As Date 'déclare la variable DT (Date Trouvée)
Dim TT() As Variant 'déclare la variable TT (Tableau des Tickers)

If Target.Address <> "$C$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en C1, sort de la procédure
Range("A2:A" & Application.Rows.Count).ClearContents 'efface d'éventuelles anciennes données
If Target.Value = "" Then Exit Sub 'si C1 est effacée, sort de la procédure
DC = DateSerial(Year(Target.Value), Month(Target.Value), Day(Target.Value)) 'définit la date cherchée DC
Set OP = Worksheets("Portfolio") 'définit l'onglet OP
TV = OP.Range("A12").CurrentRegion 'définit le tableau des valeurs TV
K = 1 'initialise la variable K
For I = 4 To UBound(TV, 1) 'boucle 1 : sur toutes les ligne I du tableau des valeurs (en partant de la 4ème)
    'définit la date trouvée DT (donnée en colonne 1 de la ligne de la boucle)
    DT = DateSerial(Year(TV(I, 1)), Month(TV(I, 1)), Day(TV(I, 1)))
    If DT = DC Then 'condition 1 : si les dates correspondent
        For J = 1 To UBound(TV, 2) 'boucle 2 : sur toutes les colonnes J du tableau des valeurs TV
            If TV(I, J) <> "" Then 'condition 2 : si la donnée ligne I colonne J de TV n'est pas vide
                ReDim Preserve TT(1 To 1, 1 To K) 'redimensionne le tableau des tickers TT
                TT(1, K) = TV(2, J) 'récupère dans la ligne 1 colonne K de TT, la donnée en ligne 2 colonne J de TV
                K = K + 1 'incrémente K (ajoute une colonne au tableau des tickers TT)
            End If 'fin de la condition 2
        Next J 'prochaine colonne de la boucle 2
        Exit For 'sort de la boucle 1
    End If 'fin de la condition 1
Next I 'prochaine ligne de la boucle 1
'si K est supérieure à 1, renvoie dans la cellule A2 redimensionnée le tableau TT transposé
If K > 1 Then Range("A2").Resize(UBound(TT, 2), 1).Value = Application.Transpose(TT)
End Sub

Range("C14:Z14").Select
Selection.copy
Worksheets("Sheet2").Activate
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A1").PasteSpecial(Transpose:=True)

Range("C14:Z14").copy
Worksheets("Sheet2").Paste Destination := Worksheets("Sheet2").Range("A1").PasteSpecial(Transpose:=True)

select

activate