commande pour trouver la seconde ligne vide

[brice]

Bonjour,

lorsque l'on crée un userform ma commande pour trouver la première ligne vide est :
numLigneVide = ActiveSheet.Columns(1).Find("").Row

mais existe t-il une commande ou une astuce pour trouver la seconde ligne vide?

Merci

 

[JNP]

Re : commande pour trouver la seconde ligne vide

Bonjour Brice ,
Attention, si la dernière recherche a été faite à l'envers, tu risque des surprises ...

SearchOrder:=xlNext

me paraitrait prudent ...
Pour la suite, regarde du côté de FindNext .
Bonne soirée

 

[pierrejean]

Re : commande pour trouver la seconde ligne vide

Bonjour brice

numLigneVide = ActiveSheet.Columns(1).Find("").Row
deuxiemelignevide = ActiveSheet.Range("A" & numLigneVide + 1 & ":A" & Application.Rows.Count).Find("").Row

Edit: Salut Jean Noel

 

[Pierrot93]

Re : commande pour trouver la seconde ligne vide

BOnjour à tous,

si au moins une cellule est vide dans la colonne :

Dim x As Range
With ActiveSheet.Columns(1)
    Set x = .Find("", .Find("", , xlValues, xlWhole, , , False), xlValues, xlWhole, , , False)
End With
If Not x Is Nothing Then MsgBox "2ème cellule vide sur la ligne : " & x.Row

bonne soirée
@+

Edition : enlevé les "columns" et utilisé le bloc "with"

 

[brice]

Re : commande pour trouver la seconde ligne vide

Merci à tous pour vos réponses, j'ai opté pour la solution de Pierre jean^^