Test Ligne Vide

tototiti2008

XLDnaute Barbatruc

• 18 Juillet 2008

• #2

Re : Test Ligne Vide

bonjour denioo,

que veux-tu en faire, de tes cellules vides ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Juillet 2008

• #3

Re : Test Ligne Vide

bonjour a tous

tu peux t'inspirer de ceci:

Code:

Sub test()
n = 1
x = Application.WorksheetFunction.Sum(Range("A" & n & ":IV" & n))
If x = 0 Then MsgBox ("ligne " & n & " est vide")
End Sub

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 18 Juillet 2008

• #4

Re : Test Ligne Vide

Bonjour,

Par formule : =NBVAL(1:1)=0
teste si la ligne 1 est vide et renvoie VRAI ou FAUX

abcd

 

Vote positif 0 Vote négatif

D

deniooo

XLDnaute Occasionnel

• 18 Juillet 2008

• #5

Re : Test Ligne Vide

Je viens d'implémenter cette solution :

Code:

MsgBox Application.WorksheetFunction.CountA(Range("2:2"))

Merci pour votre aide !

 

Vote positif 0 Vote négatif