Discussion :

[chito79000]

Bonjour,

Voici mon code VBA pour filtrer et ensuite descendre d'une cellule mais comme vous pouvez le voir cela descend sur une cellule non visible et non sur la première cellule visible.

Code :

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

1
2
3
4
5
    Columns("AL:AL").Select
    Selection.AutoFilter
    ActiveSheet.Range("$AL$1:$AL$1073").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "12/31/2016")
    ActiveCell.Offset(1, 0).Selec

t

[parmi]

Bonjour,

Quelle est la raison de vouloir descendre à la première cellule visible ?
Ça pourrait influer sur la solution.

[chito79000]

Code :

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

1
2
3
4
5
6
7
8
9
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Offset(0, 7).Select
    ActiveCell.FormulaR1C1 = "=RC[-35]*(RC[-2]/RC[2])"
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row
    Range("AT2").AutoFill Destination:=Range("AT2:AT" & DernLigne)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=RC[-36]-RC[-1]"
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row
    Range("AU2").AutoFill Destination:=Range("AU2:AU" & DernLigne)

voici la suite de mon code !!

[parmi]

Y a-t-il une raison pourquoi tu inscris les formules seulement sur les cellules visibles ?
Ne pourrais-tu pas inscrire les formules avant de filtrer ?

Quoiqu'il en soit, tu peux faire une boucle en vérifiant si la ligne est "hidden" ou non.

Voici un exemple simple qui met une formule d'addition seulement sur les cellules visibles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim I As Long, Ligne As Long, nbLignes As Long
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row  'nombre de lignes de la plage
    For I = 2 To nbLignes
        If Rows(I).Hidden = False Then  'vérifie si la ligne n'est pas masquée par le filtre
            Ligne = I
            Exit For
        End If
    Next
 
    'inscrit la formule sur les cellules visibles
    Range("D2:D" & nbLignes).SpecialCells(xlCellTypeVisible).Formula = "=SUM(B" & Ligne & ":C" & Ligne & ")"

[chito79000]

Merci de votre temps.
C'est ce que j'ai fait d'abord les calculs puis le filtre merci de votre temps encore une fois.