Microsoft 365 ranger valeur en fonction de la date dans une cellule

[gothc]

Bonjour le forum j'ai besoin de votre aide
je cherche à ranger des valeurs en fonction de la date en c5 sur ma feuil2
je laisse un fichier joint
Merci de votre aide

 

[mapomme]

Bonsoir @gothc,

Si j'ai bien compris, voir fichier.

 

[gothc]

Bonjour le forum oupss tu as mal compris je cherche à ranger les valeurs de la feuil1 sur la feuil 2 en fonction de la date de la feuil1 C5 par une macro

Merci de votre aide

 

[Dranreb]

Bonjour.
Dans le module Fezuil2 :

Option Explicit
Private Sub Worksheet_Activate()
   Dim TDon(), TRés(1 To 1, 1 To 10), C As Long
   TDon = Feuil1.[C5:P20].Value
   For C = 1 To 5
      TRés(1, C) = TDon(12, C + 9)
      TRés(1, C + 5) = TDon(16, C + 9)
      Next C
   Me.[B2:K2].Offset(TDon(1, 1) - Me.[A2].Value, 0).Value = TRés
   End Sub

 

[gothc]

Merci Merci je fais le test

 

[gothc]

Bonjour je viens de faire le test le fichier fonctionne encore merci a vous
bonne journée 😎

 

[mapomme]

Bonjour,

Celui qui n'a rien compris retente le coup 😀 . Cliquez sur le bouton Hop!

edit : bonjour @Dranreb

 

[gothc]

Merci
mapomme j'aime bien ta version
Bonne journée à toi