Discussion :

[KoloMenek]

Bonjour, je dois faire une fonction qui permet de tirer des informations par rapport à un mois et une année.
L'utilisateur devra entrer une année à l'exécution du script : retour = InputBox("Indiquez l'année :", "Sélection du mois pour le filtre", "Format : XXXX")
Je voulais faire une boucle for qui va de 1 à 12 (elle représentera les mois). For i = 1 To 12
Puis à l'interieur de cette boucle, je voudrai faire :
-Sélection de la feuille concernée
-Sélection de la case concernée
-Filtrage en fonction d'une date constituée de (i / retour)
-Comptage du nombre de cases non vide en prenant compte du filtre
-Ecrire les résultats dans une autre feuille.

Je suis un débutant dans excel et je n'arrive pas à constituer une date avec ces deux variables.

Merci d'avance pour votre aide.

[Philippe Tulliez]

Bonjour,
D'après mon interprétation de la lecture de ta demande, tu cherches à exporter des données suivant conditions (Mois et année)

Je ne peux que te conseiller de t'intéresser au filtre avancé d'excel (en VBA la méthode AdvancedFilter). Le critère se résume à une formule qui doit renvoyer VRAI ou FAUX et ensuite cela prend une ligne de code après avoir déclarer les plages de cellules concernées

A lire le cas échéant Les filtres avancés ou élaborés dans Excel

[KoloMenek]

Voici mon ancienne macro :

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
31
Sub test()
 For Each Sheet In ActiveWorkbook.Worksheets
    If Sheet.Name = "Macro" Then
        Application.DisplayAlerts = False
        Worksheets("Macro").Delete
        Application.DisplayAlerts = True
    End If
Next Sheet
    retour = InputBox("Indiquer le mois et l'année :", "Sélection du mois pour le filtre", "Format : XX/XXXX")
 
    Worksheets("DA").Range("$M:$M").AutoFilter Field:=13, Operator:= _
    xlFilterValues, Criteria2:=Array(1, retour)
 
    With ThisWorkbook
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Macro"
    End With
    Sheets("DA").Activate
    var_test = Worksheets("DA").Range("M:M").Cells.SpecialCells(xlCellTypeConstants).Count
    var_test2 = Worksheets("DA").Range("M:M").Application.WorksheetFunction.Subtotal(3, Range("M:M")) - 1
    'Activation de la feuille Macro
    Sheets("Macro").Activate
    'Sélection de la cellule A1
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Nombre total de TFT depuis le début:"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = var_test - 1
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Nombre total de TFT dans le mois saisis:"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = var_test2
End Sub

Elle marche très bien sauf que je dois mettre le mois et l'année à chaque fois.
Je voudrai remplacer cela par une boucle for où à chaque fois le mois change pour une année saisi par l'utilisateur.

[boisgontierjacques]

Bonjour,


Un exemple avec Filtre auto et Filtre élaboré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub filtreDateInputBox()
   d = InputBox("Date")
   If Val(Application.version) >= 12 Then
     [A5].AutoFilter Field:=5, Criteria1:=Format(d, "dd/mm/yyyy")
   Else
      [A5].AutoFilter Field:=5, Criteria1:=Format(d, "mm/dd/yyyy")
   End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub FiltreMoisAn()
    mois = 3: an = 2007
    ActiveSheet.Range("$A$5:$E$30").AutoFilter Field:=5, Operator:= _
        xlFilterValues, Criteria2:=Array(1, Format(DateSerial(an, mois, 1), "mm/dd/yyyy"))
End Sub

Boisgontier

[KoloMenek]

C'est parfait, ce morceau de code a résolu mon problème : xlFilterValues, Criteria2:=Array(1, Format(DateSerial(an, mois, 1), "mm/dd/yyyy"))

Merci beaucoup !!!

[KoloMenek]

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
Sub test()
 For Each Sheet In ActiveWorkbook.Worksheets
    If Sheet.Name = "Macro" Then
        Application.DisplayAlerts = False
        Worksheets("Macro").Delete
        Application.DisplayAlerts = True
    End If
Next Sheet
 
With ThisWorkbook
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Macro"
    End With
 
an = InputBox("Indiquer le mois et l'année :", "Sélection du mois pour le filtre", "Format : 20XX")
TFT_TOTAL = Worksheets("DA").Range("M:M").Cells.SpecialCells(xlCellTypeConstants).Count
Dim mois As Integer
 
 
For mois = 1 To 12
    Sheets("Macro").Activate
    Worksheets("DA").Range("$M:$M").AutoFilter Field:=13, Operator:= _
xlFilterValues, Criteria2:=Array(1, Format(DateSerial(an, mois, 1), "mm/dd/yyyy"))
    TFT_MOIS = Worksheets("DA").Range("M:M").Application.WorksheetFunction.Subtotal(3, Range("M:M"))
    Cells(mois, 1) = TFT_MOIS
    Next
 
    Cells(1, 2) = TFT_TOTAL - 1
End Sub

Cela ressemble à ça. Le seul problème est que maintenant à chaque fois qu'on passe par la boucle la valeur de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TFT_MOIS = Worksheets("DA").Range("M:M").Application.WorksheetFunction.Subtotal(3, Range("M:M"))

est 0.

je ne sais pas pourquoi

[BENNASR]

bonsoir kollou minnek !!
balise ton code svp (metrre entre #)
sans comprendre la finalité ni ta demande, je t'invite à regarder cette partie de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each Sheet In ActiveWorkbook.Worksheets
If Sheet.Name = "Macro" Then
Application.DisplayAlerts = False
Worksheets("Macro").Delete
Application.DisplayAlerts = True
End If
Next Sheet

je comprends si tu conditionne le traitement pour toute les feuilles ayant un nom différent de Macro mais si le nom est MACRO alors pas la peine de parcourir toutes les feuilles !!! il suffit d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
with Sheet("Macro") 
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
end with