Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Yvan
Bonjour Eric.
Ceci par exemple afficherait le N° de la première ligne visible dans la feuille qui vient d'être activée. A priori pas d'interet, je sais, c'est juste pour l'exemple.
Dans ton application tu remplace me par l'objet worksheet qui t'interesse(wks, ActiveWorksheet, ou autre chose)
Private Sub Worksheet_Activate() Dim i As Integer i = 1 While Me.Rows(i).Hidden i = i + 1 Wend MsgBox (i) End Sub
Salut. @+
Bonjour à tous, J'ai un filtre et je veux récupérer le numéro de la première ligne non masquée. Merçi pour votre aide. Eric
Bonjour Eric.
Ceci par exemple afficherait le N° de la première ligne visible dans la
feuille qui vient d'être activée. A priori pas d'interet, je sais, c'est
juste pour l'exemple.
Dans ton application tu remplace me par l'objet worksheet qui
t'interesse(wks, ActiveWorksheet, ou autre chose)
Private Sub Worksheet_Activate()
Dim i As Integer
i = 1
While Me.Rows(i).Hidden
i = i + 1
Wend
MsgBox (i)
End Sub
Salut. @+
Bonjour à tous,
J'ai un filtre et je veux récupérer le numéro de la première ligne non
masquée.
Merçi pour votre aide.
Eric
Ceci par exemple afficherait le N° de la première ligne visible dans la feuille qui vient d'être activée. A priori pas d'interet, je sais, c'est juste pour l'exemple.
Dans ton application tu remplace me par l'objet worksheet qui t'interesse(wks, ActiveWorksheet, ou autre chose)
Private Sub Worksheet_Activate() Dim i As Integer i = 1 While Me.Rows(i).Hidden i = i + 1 Wend MsgBox (i) End Sub
Salut. @+
Bonjour à tous, J'ai un filtre et je veux récupérer le numéro de la première ligne non masquée. Merçi pour votre aide. Eric
papou
Bonjour Avec ceci ça devrait marcher : Dim Tblo As Range Set Tblo = ActiveSheet.Cells.SpecialCells(xlCellTypeVisible) MsgBox Tblo.Areas(2).Row
Cordialement Pascal
"" a écrit dans le message news:
Bonjour à tous, J'ai un filtre et je veux récupérer le numéro de la première ligne non masquée. Merçi pour votre aide. Eric
Bonjour
Avec ceci ça devrait marcher :
Dim Tblo As Range
Set Tblo = ActiveSheet.Cells.SpecialCells(xlCellTypeVisible)
MsgBox Tblo.Areas(2).Row
Cordialement
Pascal
"eric.labordere@saint-gobain.com" <elric@SG.com> a écrit dans le message
news: 98333EE5-2A85-47C1-88A6-1881DD7DC08D@microsoft.com...
Bonjour à tous,
J'ai un filtre et je veux récupérer le numéro de la première ligne non
masquée.
Merçi pour votre aide.
Eric
Bonjour à tous, J'ai un filtre et je veux récupérer le numéro de la première ligne non masquée. Merçi pour votre aide. Eric
papou
Eric Attention, la mienne fonctionnera uniquement si la 1ère ligne visible à l'issue du filtre n'est pas la ligne 2. Donc je crois qu'il est préférable de prendre la méthode de Thierry (ru-th)
Cordialement Pascal
"" a écrit dans le message news:
Les 2 variantes fonctionnent Merci à vous Eric
Bonjour à tous, J'ai un filtre et je veux récupérer le numéro de la première ligne non masquée. Merçi pour votre aide. Eric
Eric
Attention, la mienne fonctionnera uniquement si la 1ère ligne visible à
l'issue du filtre n'est pas la ligne 2.
Donc je crois qu'il est préférable de prendre la méthode de Thierry (ru-th)
Cordialement
Pascal
"eric.labordere@saint-gobain.com" <elric@SG.com> a écrit dans le message
news: 82B8C26D-A066-4D3F-9E53-7ABF3E84ABF1@microsoft.com...
Les 2 variantes fonctionnent
Merci à vous
Eric
Bonjour à tous,
J'ai un filtre et je veux récupérer le numéro de la première ligne non
masquée.
Merçi pour votre aide.
Eric
Eric Attention, la mienne fonctionnera uniquement si la 1ère ligne visible à l'issue du filtre n'est pas la ligne 2. Donc je crois qu'il est préférable de prendre la méthode de Thierry (ru-th)
Cordialement Pascal
"" a écrit dans le message news:
Les 2 variantes fonctionnent Merci à vous Eric
Bonjour à tous, J'ai un filtre et je veux récupérer le numéro de la première ligne non masquée. Merçi pour votre aide. Eric
AV
Pourquoi pas une petite formule.... ?
Plage A1:A100 (A1 est l'étiquette de colonne) matricielle > validation par ctrl+maj+entrée