Informations RangeEmpty

[Magic_Doctor]

Function RangeEmpty(vRange As Range) As Boolean
'Vérifie si une plage de cellules est entièrement vide ou pas
'Si la plage n'est pas entièrement vide --> FALSE (ou l'équivalent dans la langue locale)
'Si la plage est entièrement vide --> TRUE (ou l'équivalent dans la langue locale)

  RangeEmpty = (vRange.Count - Application.CountBlank(vRange) = 0)
 
End Function

 

[patricktoulon]

bonsoir
sérieux il faudra m'expliquer ou le calcul est nécessaire

Sub test()
MsgBox WorksheetFunction.CountA([A1:A10]) = 0
End Sub