Première cellule vide dans colonne filtrée

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

Bonjour Didier, le forum

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

A+