Discussion :

[AAZRO]

Bonjour,

J'ai codé une fonction VBA ci-jointe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Montant(Genre As String, Cde As String) As Double
Dim Debut As String
Dim DL As Integer
Montant = 0
Debut = Left(Cde, 1)
Select Case Genre
Case "Commandé"
    DL = ThisWorkbook.Worksheets("Cmdes-SIGRED_2007").Range("A65536").End(xlUp).Row
    Set Table = ThisWorkbook.Worksheets("Cmdes-SIGRED_2007").Range("A1:J" & DL)
    On Error Resume Next
    Montant = WorksheetFunction.VLookup(Cde, Table, 4, False)
....

J'ai mis cette fonction sur mon perso, la fonction marche bien, mais lorsque j'applique un filtre sur le fichier Cmdes-SIGRED_2007, la fonction ne recherche pas dans les cellules masquées par le filtre.
Est ce du à la fonction Vlookup ou bien faut-il forcer le calcul sur les cellules masquées donc comment faire?

Je vous remercie de votre aide
AAZRO

[Pierre Fauconnier]

Bonjour

Ce n'est pas vlookup qui pose problème, mais la valeur de DL. En effet

Code :

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

1
2
 
DL = ThisWorkbook.Worksheets("Cmdes-SIGRED_2007").Range("A65536").End(xlUp).Row

agit comme le raccourci clavier CTRL+ Flèche haut et s'arrête donc à la première cellule visible en remontant...

Dès lors, DL "loupe" toutes les cellules masquées se trouvant sous la dernière cellule visible...

Je te propose la fonction suivante:

Code :

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

1
2
3
4
5
6
7
8
9
 
Function DerniereLigne(Colonne As Integer) As Long
    Dim i As Long
    For i = 65536 To 1 Step -1
        If Cells(i, Colonne) <> "" Then Exit For
    Next i
    DerniereLigne = i
 
End Function

à utiliser comme ceci:

Code :

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

1
2
3
4
 
...
DL = Dernierligne(A)
...

Ok?

[AAZRO]

Bonjour,

Merci c'est bien la formule DL qui ne prenait pas en compte les cellules masquées.

AAZRO