XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide

sylvanu à dit:

Bonjour Lionel,
Un essai en PJ avec :

Code:

Function Vides()
Dim T, DL, i, Plage, N
Application.Volatile
DL = [E100000].End(xlUp).Row
T = Array(7, 10, 11, 12, 13, 16, 18, 19)
For i = 0 To 7
    Set Plage = Range(Cells(7, T(i)), Cells(DL, T(i)))
    N = N + Application.CountIfs(Plage, "")
Next i
If N = 0 Then Vides = "" Else Vides = "Attention! " & N & " cellule(s) vide(s)."
End Function

Cliquez pour agrandir...

job75 à dit:

Bonjour Lionel, sylvanu,

Formule en E1 :

Code:

=SIERREUR("Vide "&EXP(LN(NB.VIDE(INDIRECT("G7:G"&EQUIV(9^9;E:E)))+NB.VIDE(INDIRECT("J7:M"&EQUIV(9^9;E:E)))+NB.VIDE(INDIRECT("R7:S"&EQUIV(9^9;E:E)))));"OK")

A+

Cliquez pour agrandir...

Usine à gaz à dit:

Re-Bjr 🙂
J'ai trouvé :

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Application.EnableEvents = True
If Not Intersect(R, Range("e6:s30000")) Is Nothing And R.Count = 1 Then
    If [e1] > 0 Then
    ActiveSheet.Cells(Rows.Count, "e").End(xlUp)(1).Select
    End If
End If
End Sub

Merci d'avoir été là 🙂

Cliquez pour agrandir...

Efgé à dit:

Re

VB:

If Not Intersect(R, Range("e6:s30000")) Is Nothing And R.CountLarge = 1 Then

Cordialement

Cliquez pour agrandir...