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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Août 2020

• #2

Bonsoir @gothc,

Si j'ai bien compris, voir fichier.

 

Pièces jointes

• gothc- Rangervaleurs- v.xlsx

  43.5 KB · Affichages: 5

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 2 Août 2020

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Août 2020

• #4

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

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 2 Août 2020

• #5

Merci Merci je fais le test

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 2 Août 2020

• #6

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Août 2020

• #7

Bonjour,

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

edit : bonjour @Dranreb

 

Pièces jointes

• gothc- Ranger valeurs- v2.xlsm

  51 KB · Affichages: 6

Dernière édition: 2 Août 2020

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 2 Août 2020

• #8

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

 

Vote positif 0 Vote négatif