Comment récupérer la première cellule non vide et la valeur de toutes les lignes dynamiques vba

Question

Set rngFound = Rows(5).Find("*", Cells(Columns.Count, 5), xlFormulas, , xlByColumns, xlNext) 

Le code ci-dessus donne l'erreur de décalage de type 13.

vous prie de nous ce que je fais mal, ou suggère une autre méthode de faire la même chose.

Answer 1

Essayez le code ci-dessous, des explications à l'intérieur les commentaires de code:

Dim rngFound As Range 
Dim LastCol As Long 
Dim nonBlankCell As Variant 

With Worksheets("Sheet1") ' <-- modify to your sheet's name 
    ' -- get last column in a specific row by using the Find function -- 
    Set rngFound = .Rows(5).Find(What:="*", Lookat:=xlPart, LookIn:=xlFormulas, _ 
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) 

    If Not rngFound Is Nothing Then ' Find was successful 
     LastCol = rngFound.Column ' get last Column with data 
     nonBlankCell = rngFound.Value 
    End If 

End With 

Answer 2

Remplacer Cells(Columns.Count, 5) avec Cells(5, Columns.Count).End(xlToLeft) pour obtenir

Set rngFound = Rows(5).Find("*", Cells(5, Columns.Count).End(xlToLeft), xlFormulas, , xlByColumns, xlNext) 

Essayez cette

Sub Find_Cell() 
    Dim rngFound As Range 
    Set rngFound = ThisWorkbook.Sheets("Sheet1").Rows(5).Find(What:="*", LookIn:=xlValues) 

    If rngFound Is Nothing Then 
     MsgBox "All cells are blank." 
    Else 
     MsgBox "First Cell Address: " & rngFound.Address 
     MsgBox "First Cell Value: " & rngFound.Value 
    End If 
End Sub 

Si vous voulez aussi trouver cellule non vide ayant une formule équivalant à vide puis au lieu de LookIn:=xlValues utiliser LookIn:=xlFormulas