Aide Inclure une date saise de départ et fin

[Magzonex]

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

 

[Pierrot93]

Re : Aide Inclure une date saise de départ et fin

Bonsoir,

pour renvoyer la valeur de ta variable dans une cellule :

Sheets("NomFeuille").Range("A1").value = dt1

bonne soirée
@+

 

[Magzonex]

Re : Aide Inclure une date saise de départ et fin

Merci beaucoup en plus que ses très simple

Good