Bonjour,
Je demande à ce code de me faire un pop up du total de "1" dans une colonne mais qu'il me demande la date d'abord. Puis chifferer toutes les couleurs de toutes les dates en cette même période. Mais celle-ci bloque presque à toutes les ligne et si j'en modifie une c'est une autre qui ne va pas. Je suis encore débutant en Excel macro.
Si vous pourriez m'aider. Pour voir un peu à quoi ressemble le tableau je vous l'ai mis en pièce jointe.
Merci par avance.
CODE :
Public strDate As Date
Sub macro001()
Call UserDate
Range("H1").Select
ActiveSheet.Range("$A$1:$AN$1281").AutoFilter Field:=8, Operator:= _
xlFilterValues, Criteria1:=Array(1, strDate)
Range("I1").Select
ActiveSheet.Range("$A$1:$AN$1281").AutoFilter Field:=9, Criteria1:="Rouge"
Range("Q1").Select
ActiveSheet.Range("$A$1:$AN$1281").AutoFilter Field:=17, Criteria1:="<>"
Donnée = Range("BA1").Value
End Sub
Public Sub UserDate()
Dim strDate As String
strDate = InputBox("Insert date in format dd/mm/yyyy", "User date", Format(Now(), "dd/mm/yyyy"))
If IsDate(strDate) Then
strDate = Format(CDate(strDate), "dd/mm/yyyy")
MsgBox strDate
Else
MsgBox "Wrong date format"
End If
End Sub