Bonjour à tous,

j'ai un tableau sous forme de base de donnée, avec des dates, des temps etc.
J'ai inscrits mes noms de colonne en ligne A, je souhaiterais qu'il me fasse la somme des valeurs restantes en colonne P.

2eme question: pourquoi lorsque je rentre des dates dans ma macro il me les mets au format americain et prends francais.

Voilà mon code, nécessité à me dire s'il y a moyen de faire plus court

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub daterec()
Dim Message, Titre, réponse, dde, dfin
 
Titre = "Date de début"
Message = "Entrez la date du début au format jj/mm/aaaa :"
dialogue: dde = InputBox(Message, Titre)
 
If dde <> Format(dde, "dd/mm/yyyy") Then
réponse = MsgBox("Votre date n'est pas valide! Recommencez ?", 4)
    If réponse = vbYes Then GoTo dialogue Else Exit Sub
End If
 
Titre = "Date de fin"
Message = "Entrez la date dde fin au format jj/mm/aaaa :"
dialogue2: dfin = InputBox(Message, Titre)
 
If dfin <> Format(dfin, "dd/mm/yyyy") Then
réponse = MsgBox("Votre date n'est pas valide! Recommencez ?", 11)
    If réponse = vbYes Then GoTo dialogue2 Else Exit Sub
End If
 
dde = Format(dde, "dd/mm/yyyy")
dfin = Format(dfin, "dd/mm/yyyy")
Range("t20") = dde
Range("t21") = dfin
 
Selection.AutoFilter Field:=3, Criteria1:=">=" & dde, Operator:=xlAnd, Criteria2:="<=" & dfin
 
 
End Sub