Microsoft 365 utiliser la ligne +1 des lignes filtrées

pierrejean

XLDnaute Barbatruc

• 9 Août 2020

• #2

Bonjour usine à gaz

VB:

Sub FindingLastRow()
    Dim Plage As Range
    Set Plage = Range("b1:B" & Range("b65536").End(xlUp).Row).SpecialCells(xlVisible)
    x = Split(Plage.Address, "$")
    derlinvisible = x(UBound(x))
    If Range("B" & derlinvisible + 1) = "OK" Then Range("F9") = "OK"
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Août 2020

• #3

Bonjour PierreJean,
Merci pour ton code
Je vais tester et je te dirai
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Août 2020

• #4

Re PierreJean
ca ne fonctionne pas bien.
car si je filtre sur 2, il me donne tjrs "ok"
J'ai refait un fichier test que je joins,
lionel,

 

Pièces jointes

• derniereLigne+1_filtre.xlsm

  31 KB · Affichages: 1

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Août 2020

• #5

Re encore

Après re-test ça semble bon

VB:

Sub FindingLastRow_PierreJean()
    Dim Plage As Range
    Set Plage = Range("b1:B" & Range("b65536").End(xlUp).Row).SpecialCells(xlVisible)
    x = Split(Plage.Address, "$")
    derlinvisible = x(UBound(x))
    If Range("B" & derlinvisible + 1) = [f4] Then Range("F9") = [f4]
End Sub

Merci à toi
Je vais voir comment l'intégrer dans mon fichier de travail,
lionel,

 

Dernière édition: 9 Août 2020

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Août 2020

• #6

Je sais pourquoi je te confonds toujours avec un certain Robert.
Tu ressembles à mon frère malheureusement disparu auquel je pense très souvent
lionel,

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Août 2020

• #7

Étais-ce l'homme au neurone solitaire ????

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2020

• #8

Bonjour Lionel, Pierre,

Voyez dans le fichier joint cette fonction VBA (volatile) :

VB:

Function FindingLastRow$(colonne As Range)
Application.Volatile
If colonne(colonne.Count).End(xlUp)(2) = "OK" Then FindingLastRow = "OK"
End Function

Le code doit être impérativement dans un module standard.

Formule en F9 =FindingLastRow(B:B)

A+

 

Pièces jointes

• derniereLigne+1_filtre(1).xlsm

  16.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Août 2020

• #9

Re Gérard
Merci, je vais tester,
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2020

• #10

Ah je ne le croyais pas mais il n'est pas nécessaire que la fonction soit volatile, fichier (2) :

VB:

Function FindingLastRow$(colonne As Range)
If colonne(colonne.Count).End(xlUp)(2) = "OK" Then FindingLastRow = "OK"
End Function

 

Pièces jointes

• derniereLigne+1_filtre(2).xlsm

  16.8 KB · Affichages: 4

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Août 2020

• #11

Merci Gérard,
je vais tester

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Août 2020

• #12

Re-Gérard,
Comme toujours c'est nickel
%erci
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 16 Août 2020

• #13

Bonjour PierreJean, Bonjour Gérard, le Forum,
Je reviens sur ce fil car j'avais mal formulé mon besoin (une fois de plus)

Mon besoin revu est le suivant :
si je filtre sur 1 la ligne 16 devient visible
si je filtre sur 2 la ligne 24 devient visible
si je filtre sur 3 la ligne 32 devient visible
si je filtre sur 4 la ligne 39 devient visible

Pour l'exemple j'ai écrit : "OK - c'est bon - Pourquoi ? - Parce que"
mais dans mon classeur de travail elle sont vides
j'ai juste besoin qu'elles deviennent visibles.

J'ai continué à chercher mais je n'ai pas trouvé jusqu'à maintenant !
Auriez-vous la solution ?
Je joins le fichier test,
Avec mes remerciements,
Je vous souhaite un beau dimanche,
lionel,

 

Pièces jointes

• derniereLigne+1_filtre.xlsm

  17.4 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Août 2020

• #14

Bonjour Lionel,

Fichier (3) avec cette macro dans le code de la feuille :

VB:

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Rows(16).Hidden = Rows(15).Hidden
Rows(24).Hidden = Rows(23).Hidden
Rows(32).Hidden = Rows(31).Hidden
Rows(39).Hidden = Rows(38).Hidden
Application.EnableEvents = True
End Sub

La formule volatile en F2 est indispensable pour que le filtrage crée l'évènement Calculate.

A+

 

Pièces jointes

• derniereLigne+1_filtre(3).xlsm

  17.9 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Août 2020

• #15

En F2 on peut aussi utiliser la fonction SOUS.TOTAL qui n'est pas volatile, fichier (3 bis).

 

Pièces jointes

• derniereLigne+1_filtre(3 bis).xlsm

  18 KB · Affichages: 4

Vote positif 0 Vote négatif