en vba vérifier que ligne vide

Salut,

Une petite fonction VBA pour connaitre le nombre de cellule non vide
dans la/les lignes de ta sélection :

Function nbCelluleNonVide(x As Range)
nbCelluleNonVide = Application.CountA(Range(Rows(x.Row), Rows
(x.Row + x.Rows.Count - 1)))
End Function
Sub test()
MsgBox nbCelluleNonVide(Selection)
End Sub

Cordialement,

F.

Salut Pierre,

Quelque chose du genre :

Sub Vide_Pas_Vide()
If Application.CountA(ActiveCell.EntireRow) = 0 Then _
m = "Ligne vide." Else m = "Ligne non vide."
MsgBox m
End Sub

Serge


"Pierre CFI" <xxx_pierresalaun@wanadoo.fr> a écrit dans le message de news:
uVSR7ArbKHA.5576@TK2MSFTNGP02.phx.gbl...

re re bonjour

je selectionne une cell et je veux savoir si il n'y a pas une cell remplie
dans cette ligne
merci

Pierre CFI

merci



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de
news:3b1188ad-b8a6-4e5f-b2d3-ce115c94311e@u7g2000yqm.googlegroups.com...
Salut,

Une petite fonction VBA pour connaitre le nombre de cellule non vide
dans la/les lignes de ta sélection :

Function nbCelluleNonVide(x As Range)
nbCelluleNonVide = Application.CountA(Range(Rows(x.Row), Rows
(x.Row + x.Rows.Count - 1)))
End Function
Sub test()
MsgBox nbCelluleNonVide(Selection)
End Sub

Cordialement,

F.

bonjour Pierre,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Application.CountA(Rows(Target.Row)) & " cellule remplie sur
cette ligne"
End Sub

isabelle

Pierre CFI a écrit :

re re bonjour

je selectionne une cell et je veux savoir si il n'y a pas une cell
remplie dans cette ligne
merci

Pierre CFI