VBA Fonction première cellule non vide

[tototiti2008]

Bonjour à tous,

j'aimerais déterminer la cellule où se trouve la première cellule non vide (contenant une valeur fixe ou une formule) d'une feuille.
j'ai bien essayé avec les SpecialCells mais justement, il faut choisir entre valeur fixe et formule.

alors j'ai fait la fonction PremCellNonVide (voir fichier joint) qui renvoie l'adresse de la première cellule non vide, mais comme elle est basée sur une boucle, je me demandais s'il n'y avait pas une façon plus simple et plus optimisée de le faire...

Merci d'avance de vos commentaires

 

[Raja]

Re : VBA Fonction première cellule non vide

Bonjour tototiti2008,

Essaye le code suivant :

Sub PremCellNonVide()
  For Each c In Cells
    If c <> "" Then
      MsgBox (c.Address)
      Exit For 'Sortie du boucle si on trouve une cellule non vide
    End If
  Next
End Sub

 

[Robert]

Re : VBA Fonction première cellule non vide

Bonjouir Tototiti, Raja, bonjour le forum

une autre propositin :

Sub Macro2()
MsgBox "Première cellule non vide en " & ActiveSheet.UsedRange.Cells(1).Address(0, 0)
End Sub

 

[Raja]

Re : VBA Fonction première cellule non vide

Bonjouir Tototiti, Raja, bonjour le forum

une autre propositin :

Sub Macro2()
MsgBox "Première cellule non vide en " & ActiveSheet.UsedRange.Cells(1).Address(0, 0)
End Sub

Chapeau, Robert

 

[tototiti2008]

Re : VBA Fonction première cellule non vide

Bonjour Raja,

merci de ton intérêt. Mon "problème" vient du fait que sur une feuille vide, ma fonction est un peu lente... malheureusement, la tienne encore plus.

je viens d'améliorer la mienne mais si quelqu'un connait une combinaison de SpecialsCells, End ou Find magique qui me donne un résultat rapide, je suis preneur

ma version améliorée :

 

[tototiti2008]

Re : VBA Fonction première cellule non vide

Bonjour Robert,

Magnifique,

eh oui, UsedRange, je l'avais oublié celui là.

Merci beaucoup à tous

 

[kjin]

Re : VBA Fonction première cellule non vide

Bonjour,

Sub Macro1()
With Sheets(1).UsedRange
If .Cells(1, 1) <> "" Then
MsgBox .Cells(1, 1).Address
Else
MsgBox Sheets(1).UsedRange.End(xlToRight).Address
End If
End With
End Sub

A+
kjin

 

[Guest]

Re : VBA Fonction première cellule non vide

Bonjour Tototiti,

Essaies ceci:

Function AdressePremiereCelluleNonVide() As String
Dim c As Range
    Set c = Cells.Find(What:="*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
    If Not c Is Nothing Then AdressePremiereCelluleNonVide = c.Address
End Function

A bientôt