Aide Inclure une date saise de départ et fin

  • Initiateur de la discussion Initiateur de la discussion Magzonex
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Magzonex

XLDnaute Junior
Bonjour je vous montre mon code

Sub bilan()
Dim x As Integer
Dim dt1 As Date, dt2 As Date
dt1 = InputBox("date debut")
dt2 = InputBox("date fin")

With Sheets("BD")
For x = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
If .Range("B" & x) >= dt1 And .Range("B" & x) <= dt2 Then
Sheets("Bilan").Range("a1") = Sheets("Bilan").Range("a1") + .Range("CC" & x)
Sheets("Bilan").Range("b1") = Sheets("Bilan").Range("b1") + .Range("CD" & x)
Sheets("Bilan").Range("C1") = Sheets("Bilan").Range("C1") + .Range("CE" & x)
Sheets("Bilan").Range("D1") = Sheets("Bilan").Range("D1") + .Range("CF" & x)
Sheets("Bilan").Range("E1") = Sheets("Bilan").Range("E1") + .Range("CG" & x)
Sheets("Bilan").Range("F1") = Sheets("Bilan").Range("F1") + .Range("CH" & x)
Sheets("Bilan").Range("G1") = Sheets("Bilan").Range("G1") + .Range("CI" & x)
Sheets("Bilan").Range("H1") = Sheets("Bilan").Range("H1") + .Range("CJ" & x)
Sheets("Bilan").Range("I1") = Sheets("Bilan").Range("I1") + .Range("CK" & x)
Sheets("Bilan").Range("J1") = Sheets("Bilan").Range("J1") + .Range("CL" & x)
Sheets("Bilan").Range("K1") = Sheets("Bilan").Range("K1") + .Range("CM" & x)
Sheets("Bilan").Range("L1") = Sheets("Bilan").Range("L1") + .Range("CN" & x)
Sheets("Bilan").Range("M1") = Sheets("Bilan").Range("M1") + .Range("CO" & x)
Sheets("Bilan").Range("N1") = Sheets("Bilan").Range("N1") + .Range("CP" & x)
Sheets("Bilan").Range("O1") = Sheets("Bilan").Range("O1") + .Range("CQ" & x)
Sheets("Bilan").Range("P1") = Sheets("Bilan").Range("P1") + .Range("CR" & x)
Sheets("Bilan").Range("Q1") = Sheets("Bilan").Range("Q1") + .Range("CS" & x)
Sheets("Bilan").Range("R1") = Sheets("Bilan").Range("R1") + .Range("CT" & x)
Sheets("Bilan").Range("S1") = Sheets("Bilan").Range("S1") + .Range("CU" & x)
Sheets("Bilan").Range("T1") = Sheets("Bilan").Range("T1") + .Range("CV" & x)
Sheets("Bilan").Range("V1") = Sheets("Bilan").Range("V1") + .Range("CB" & x)



End If
Next x
End With
End Sub

j'aimerais saisir la date de début et la date de fin pour quel s'inscrive dans une page donnée a la cellule que je veux.

tout marche bien pour saisir les date mais rien a faire pour les affichers a un endroit

merci beaucoup
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
3 K
Réponses
5
Affichages
799
Retour