VBA Fonction première cellule non vide

R

Raja

XLDnaute Accro

• 11 Septembre 2008

• #2

Re : VBA Fonction première cellule non vide

Bonjour tototiti2008,

Essaye le code suivant :

Code:

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

 

Dernière édition: 11 Septembre 2008

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Septembre 2008

• #3

Re : VBA Fonction première cellule non vide

Bonjouir Tototiti, Raja, bonjour le forum

une autre propositin :

Code:

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

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 11 Septembre 2008

• #4

Re : VBA Fonction première cellule non vide

Robert à dit:

Bonjouir Tototiti, Raja, bonjour le forum

une autre propositin :

Code:

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

Cliquez pour agrandir...

Chapeau, Robert

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Septembre 2008

• #5

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 :

 

Pièces jointes

• Classeur1.xls

  32 KB · Affichages: 133
• Classeur1.xls

  32 KB · Affichages: 153
• Classeur1.xls

  32 KB · Affichages: 146

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Septembre 2008

• #6

Re : VBA Fonction première cellule non vide

Bonjour Robert,

Magnifique,

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

Merci beaucoup à tous

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Septembre 2008

• #7

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

Cliquez pour agrandir...

A+
kjin

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Septembre 2008

• #8

Re : VBA Fonction première cellule non vide

Bonjour Tototiti,

Essaies ceci:

Code:

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

 

Vote positif 0 Vote négatif