Première cellule vide dans colonne filtrée

[mico]

Bonsoir le forum

Après plusieurs essais sans résultat je sollicite votre aide.
Voici mon problème, j'aimerais trouver la première cellule vide dans une colonne qui est filtrée.
Le problème c'est que je ne sais pas comment faire pour qui me trouve la première cellule vide mais uniquement de la zone filtrée.

merci d'avance
A+

 

[myDearFriend]

Bonsoir mico, le Forum.


Si j'ai bien compris la question, ci-joint un exemple qui pourrait peut-être représenter une solution...

Public Sub RechVide()
Dim maPlage As Range
Dim C As Range
Dim Lmax As Long
Dim Colonne As Integer
   'Colonne à traiter (à adapter)
   Colonne = 1
   'Recherche de la première cellule vide visible
   With ActiveSheet
      Lmax = .Cells(65536, Colonne).End(xlUp).Row
      Set maPlage = .Range(.Cells(1, Colonne), .Cells(Lmax, Colonne))
      For Each C In maPlage.SpecialCells(xlCellTypeVisible)
         If C.Value = "" Then
            MsgBox "La première cellule vide (visible) en colonne " & Colonne & " est en ligne " & C.Row
            Exit For
         End If
      Next C
   End With
End Sub


Cordialement.

Didier_mDF

 

[mico]

Bonjour Didier, le forum

Merci pour ton aide je vais essayer de mettre en pratique ton code

A+