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

gothc

XLDnaute Occasionnel
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
 

Pièces jointes

  • Rangervaleurs.xlsx
    42.2 KB · Affichages: 14

Dranreb

XLDnaute Barbatruc
Bonjour.
Dans le module Fezuil2 :
VB:
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
 

Discussions similaires

Réponses
4
Affichages
193

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG