Informations RangeEmpty

Magic_Doctor · 26 Avril 2021

VB:

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 · 5 Mai 2021

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

VB:

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

Informations RangeEmpty

Magic_Doctor

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires