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
 

Fichiers joints

gothc

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

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas