Je ne trouve un moyen de faire marche ce code pour m'afficher le resultat

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

7presentation1.pptx (77.98 Ko)

Bonjour et bienvenue,

Merci de joindre un classeur Excel et non une image d'une plage de cellules dans un fichier PowerPoint.

Cdlt.

Merci de votre retour rapide. Voici le classeur Excel.

3aide.xlsx (13.39 Ko)

Bonjour,

Une poposition à étudier.

Les données ont été mises sous forme de tableau (structuré).

ALT F8, puis exécuter la procédure.

A te relire.

Cdlt.

6jemmy.xlsm (22.70 Ko)
Public Sub Macro001()
Dim lo As ListObject, strDate As String
    strDate = InputBox("Insert date in format dd/mm/yyyy", "user date", Format(Date, "dd/mm/yyyy"))
    If Not IsDate(strDate) Then Exit Sub
    Set lo = ActiveSheet.ListObjects(1)
    strDate = Format(CDate(strDate), "m/d/yyyy")
        With lo
        If .ShowAutoFilter Then .AutoFilter.ShowAllData
            .Range.AutoFilter field:=1, Criteria2:=Array(1, strDate), Operator:=xlFilterValues
            .Range.AutoFilter field:=2, Criteria1:="Rouge"
            .Range.AutoFilter field:=10, Criteria1:="<>"
        End With
End Sub

Jean Eric merci de votre retour. Je suis en train d'essayer la macro.

Cordialemet,

La macro ne filtre que par rapport au rouge. C'est à dire que si je séléctionne une date correspondant à une couleur par exemple verte, ça va toujour m'afficher le resultat d'une sélection par rapport à la couleur rouge. Donc j'étais entrain de voir comment je peux contourner ça pour que la selcetion corresponde bien à la date de la couleur choisit. D'où le temps pris pour répondre. Je n'ai pas voulu recourir à la facilité en revnant rapidement avec une réponse négative mais là je suis bloqué de nouveau..

Re,

La procédure correspond à ta procédure revisitée !?

Alors que veux tu faire réellement ?

Cdlt.

Bonsoir Jean Eric,

Réellement, je cherche à ce que la macro puisse me donner le nombre total de "1" dans la colonne des "1" par rapport à la date qu'elle m'aurait déjà demandé préalablement de saisir. Là elle m'affiche bien des "1" dans la colonne crée à cet effet mais pas le total des "1". Voila au point où j'en suis....

Bonjour,

Ton fichier en retour.

Cdlt.

3jemmy.xlsm (23.69 Ko)

Bonjour Jean Eric,

Merci de votre aide. Problème résolu.

Rechercher des sujets similaires à "trouve moyen marche code afficher resultat"