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
Philippe
Salut,
on peut faire ça : Ligne = 3 ' première ligne de données Colonne = 9 ' colonne
Do Ligne = Ligne + 1 Loop Until Rows(Ligne).EntireRow.Hidden = False And Cells (Ligne, Colonne) = "" Cells(Ligne, Colonne).Select
Philippe.
-----Message d'origine----- En VBA, quelle ligne de code utiliser pour que le curseur se retrouve à la prochaine ligne libre lors de l'utilisation du filtre automatique ? .
Salut,
on peut faire ça :
Ligne = 3 ' première ligne de données
Colonne = 9 ' colonne
Do
Ligne = Ligne + 1
Loop Until Rows(Ligne).EntireRow.Hidden = False And Cells
(Ligne, Colonne) = ""
Cells(Ligne, Colonne).Select
Philippe.
-----Message d'origine-----
En VBA, quelle ligne de code utiliser pour que le curseur
se retrouve à la prochaine ligne libre lors de
l'utilisation du filtre automatique ?
.
on peut faire ça : Ligne = 3 ' première ligne de données Colonne = 9 ' colonne
Do Ligne = Ligne + 1 Loop Until Rows(Ligne).EntireRow.Hidden = False And Cells (Ligne, Colonne) = "" Cells(Ligne, Colonne).Select
Philippe.
-----Message d'origine----- En VBA, quelle ligne de code utiliser pour que le curseur se retrouve à la prochaine ligne libre lors de l'utilisation du filtre automatique ? .
michdenis
Bonjour Hardy,
2 Procédures,
la première te donne la dernière ligne de ton filtre automatique... Mais attention, la ligne suivante n'est pas nécessairement une ligne vide.
Suppose que tu obtiens la ligne 25 , la 26 ième ligne peut être occupé par d'autres données ...non répertorié par ton critère du filtre.
La deuxième procédure te donne la première ligne disponible à la fin de ton tableau comportant un filtre automatique.
'--------------------- Sub dernièreLigne() Dim Rg As Range, R As Long
Set Rg = Range("_FilterDataBase").SpecialCells(xlCellTypeVisible) Set Rg = Rg.Areas(Rg.Areas.Count) R = Rg(Rg.Rows.Count).Row Msgbox R End Sub
'--------------------- Sub dernièreLigne1() Dim Rg As Range, R As Long
Set Rg = Range("_FilterDataBase")
R = Rg(Rg.Rows.Count).Row + 1
End Sub '---------------------
Salutations!
"HARDY" a écrit dans le message de news:b46b01c43751$10af2950$ En VBA, quelle ligne de code utiliser pour que le curseur se retrouve à la prochaine ligne libre lors de l'utilisation du filtre automatique ?
Bonjour Hardy,
2 Procédures,
la première te donne la dernière ligne de ton filtre automatique... Mais attention, la ligne suivante n'est pas
nécessairement une ligne vide.
Suppose que tu obtiens la ligne 25 , la 26 ième ligne peut être occupé par d'autres données ...non répertorié par ton
critère du filtre.
La deuxième procédure te donne la première ligne disponible à la fin de ton tableau comportant un filtre automatique.
'---------------------
Sub dernièreLigne()
Dim Rg As Range, R As Long
Set Rg = Range("_FilterDataBase").SpecialCells(xlCellTypeVisible)
Set Rg = Rg.Areas(Rg.Areas.Count)
R = Rg(Rg.Rows.Count).Row
Msgbox R
End Sub
'---------------------
Sub dernièreLigne1()
Dim Rg As Range, R As Long
Set Rg = Range("_FilterDataBase")
R = Rg(Rg.Rows.Count).Row + 1
End Sub
'---------------------
Salutations!
"HARDY" <ahardy@chello.fr> a écrit dans le message de news:b46b01c43751$10af2950$a001280a@phx.gbl...
En VBA, quelle ligne de code utiliser pour que le curseur
se retrouve à la prochaine ligne libre lors de
l'utilisation du filtre automatique ?
la première te donne la dernière ligne de ton filtre automatique... Mais attention, la ligne suivante n'est pas nécessairement une ligne vide.
Suppose que tu obtiens la ligne 25 , la 26 ième ligne peut être occupé par d'autres données ...non répertorié par ton critère du filtre.
La deuxième procédure te donne la première ligne disponible à la fin de ton tableau comportant un filtre automatique.
'--------------------- Sub dernièreLigne() Dim Rg As Range, R As Long
Set Rg = Range("_FilterDataBase").SpecialCells(xlCellTypeVisible) Set Rg = Rg.Areas(Rg.Areas.Count) R = Rg(Rg.Rows.Count).Row Msgbox R End Sub
'--------------------- Sub dernièreLigne1() Dim Rg As Range, R As Long
Set Rg = Range("_FilterDataBase")
R = Rg(Rg.Rows.Count).Row + 1
End Sub '---------------------
Salutations!
"HARDY" a écrit dans le message de news:b46b01c43751$10af2950$ En VBA, quelle ligne de code utiliser pour que le curseur se retrouve à la prochaine ligne libre lors de l'utilisation du filtre automatique ?
