AutoFilter avec sélection dans autre colonne

Version imprimable

Bonjour à tous,
Alors je débute en VBA : j'ai un tableau de facture avec leurs dates et leurs montants (donc 2 colonnes) et j'aimerais pouvoir trier par exemple par mois, pour ensuite additionner les montants sur le mois sélectionné.

J'ai un souci sur la sélection des montants correspondants au mois sélectionné;

Voici comment je filtre la période souhaité (code trouvé sur le forum) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub SelectPeriode() Dim rng As Range Dim rngUsed As Range Dim strCrit1 As String Dim strCrit2 As String Dim Date1 As Variant Dim Date2 As Variant ' date de début de période; Date1 = DateValue("2009/01/01") ' date de fin de période; Date2 = DateValue("2009/01/31") ' Comme la méthode AutoFilter de l'objet Range ne travaille qu'avec le format US des dates ' il faut traduire nos dates et les mettre en texte pour les critères... strCrit1 = ">=" & CStr(Month(Date1)) & "/" & CStr(Day(Date1)) & "/" & CStr(Year(Date1)) strCrit2 = "<=" & CStr(Month(Date2)) & "/" & CStr(Day(Date2)) & "/" & CStr(Year(Date2)) With Worksheets("Feuil2") Set rngUsed = .UsedRange .AutoFilterMode = False ' Cette ligne assume que les dates sont dans la nième colonne de la plage (Field:=n) rngUsed.AutoFilter Field:=2, Criteria1:=strCrit1, Operator:=xlAnd, Criteria2:=strCrit2
Ensuite comment puis-je sélectionner dans la colonne 1 les montants concernés puisque rngUsed est la range de la colonne 2 -> la colonne des dates...
Le but étant ensuite de faire le montant total (somme) des factures.

Merci d'avance :)

16/06/2009, 15h42
aalex_38
bonjour,

Citation:

'Ensuite comment puis-je sélectionner dans la colonne 1 les montants concernés puisque rngUsed est la range de la colonne 2

Deux exemples soit avec cells soit avec offset:
Code:

1 2 3 4 5 Dim rngUsed As Range Set rngUsed = Range("B1") MsgBox Cells(rngUsed.Row, rngUsed.Column - 1) MsgBox rngUsed.Offset(0, -1) End Sub

Merci pour la réponse rapide,
Le souci est que mon rngUsed désigne une colonne avec plusieurs lignes :

Code:

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
With Worksheets("Pieces")
        Set rngUsed = .UsedRange
        .AutoFilterMode = False
 
        ' Cette ligne assume que les dates sont dans la nièmr colonne de la plage (Field:=n)
        rngUsed.AutoFilter Field:=25, Criteria1:=strCrit1, Operator:=xlAnd, Criteria2:=strCrit2
 
 
        ' rng ne contiendra désormais que les cellules visibles dans la colonne des dates
        Set rng = rngUsed.SpecialCells(xlCellTypeVisible)
 
 
        ' Plus besoin du filtre...
        .AutoFilterMode = False
    End With
 
   rngfinal = rng.Offset(0, -1) 'Problème ici !'
 
 
    'Somme les valeurs sélectionnées
    total = WorksheetFunction.Sum(rngfinal)
    Worksheets("FirstTab").Range("H4").Value = "FUCK"
    Worksheets("FirstTab").Range("H4").Value = total
 
End Sub

Merci d'avance

Salut MasterChief78 et le forum

Citation:

Alors je débute en VBA : j'ai un tableau de facture avec leurs dates et leurs montants (donc 2 colonnes) et j'aimerais pouvoir trier par exemple par mois, pour ensuite additionner les montants sur le mois sélectionné.

une simple formule suffirait, mais si tu veux le faire par macro, donne au moins toute la macro.

Citation:

Ensuite comment puis-je sélectionner dans la colonne 1 les montants concernés puisque rngUsed est la range de la colonne 2 -> la colonne des dates...
Le but étant ensuite de faire le montant total (somme) des factures.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim X As Double Dim Date1 As Date Dim Date2 As Date Date1 = #1/1/2009# Date2 = #10/1/2009# AutoFilterMode = False [A1:B1].CurrentRegion.AutoFilter Field:=2, Criteria1:=">=" & Date1, Operator:=xlAnd _ , Criteria2:="<=" & Date2 X = WorksheetFunction.Sum(Range("A1:B1").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible)) End Sub
fera le total des cellules de la colonne A dont la date en B sera comprise entre le 1/1/2009 <= date <= 10/1/2009
A+

Alors merci pour votre réponse,
Le souci que j'ai maintenant c'est que ma somme donne zéro, alors que je constate sur Excel que le tri effectué est correct;
Voici ma macro :

Code:

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 CalculCAMensuel()
 
Dim X As Double
Dim Date1 As Date
Dim Date2 As Date
Dim strDate1 As String
Dim strDat2 As String
 
' date de début de période;
Date1 = DateValue("2009/01/01")
' date de fin de période;
Date2 = DateValue("2009/01/31")
 
 
' Comme la méthode AutoFilter de l'objet Range ne travaille qu'avec le format US des dates
'   il faut traduire nos dates et les mettre en texte pour les critères...
strDate1 = CStr(Month(Date1)) & "/" & CStr(Day(Date1)) & "/" & CStr(Year(Date1))
strDate2 = CStr(Month(Date2)) & "/" & CStr(Day(Date2)) & "/" & CStr(Year(Date2))
 
AutoFilterMode = False
 
Sheets("Pieces").Select
 
[U2:V2].CurrentRegion.AutoFilter Field:=21, Criteria1:=">=" & strDate1, Operator:=xlAnd _
        , Criteria2:="<=" & strDate2
 
X = WorksheetFunction.Sum(Range("U2:V2").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible))
MsgBox X
Worksheets("FirstTab").Range("H4").Value = X
 
End Sub

Merci pour votre aide

17/06/2009, 11h55
aalex_38

Que te donne le code suivant ?

msgbox

Code:

Range("U2:V2").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible).count