Vba : chercher dans lignes filtrées
Usgpa
-
Le Pingou Messages postés 12656 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12656 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Grâce à cette procédure, je récupère dans un userform, les donnée de la dernière ligne dont la colonne I n'est pas remplie. Cependant je voudrais que cette recherche se contente des lignes que j'ai filtré auparavant.
Procédure de recherche :
Private Sub Userform_initialize()
Dim x As Integer
x = Sheets("Archive Cessions").Cells(65536, 9).End(xlUp).Row + 1
TextBox1 = Range("F" & x).Value
TextBox2 = Range("C" & x).Value
TextBox3 = Range("D" & x).Value
TextBox4 = Range("G" & x).Value
TextBox5 = Range("H" & x).Value
Procédure de Filtrage :
Sheets("Archive Cessions").Range("F:F").AutoFilter Field:=6, Criteria1:=ComboBox1.Value
Quelqu'un a-t-il la solution ?
Grâce à cette procédure, je récupère dans un userform, les donnée de la dernière ligne dont la colonne I n'est pas remplie. Cependant je voudrais que cette recherche se contente des lignes que j'ai filtré auparavant.
Procédure de recherche :
Private Sub Userform_initialize()
Dim x As Integer
x = Sheets("Archive Cessions").Cells(65536, 9).End(xlUp).Row + 1
TextBox1 = Range("F" & x).Value
TextBox2 = Range("C" & x).Value
TextBox3 = Range("D" & x).Value
TextBox4 = Range("G" & x).Value
TextBox5 = Range("H" & x).Value
Procédure de Filtrage :
Sheets("Archive Cessions").Range("F:F").AutoFilter Field:=6, Criteria1:=ComboBox1.Value
Quelqu'un a-t-il la solution ?
A voir également:
- Vba : chercher dans lignes filtrées
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
2 réponses
Bonjour,
Une solution possible, essayez le code suivant :
Une solution possible, essayez le code suivant :
Set Plage = [_filterdatabase].Offset(1).Resize(, 1) Set Plage = Plage.Resize(Plage.Count - 1).SpecialCells(xlCellTypeVisible) MsgBox "Nombre de lignes affichées = " & Plage.Count MsgBox "Première ligne affichée = " & Plage.Row Plage(Plage.Count).Select MsgBox "Dernière ligne affichée = " & Plage.SpecialCells(xlCellTypeLastCell).Row
