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

[Usine à gaz]

Bonjour à toutes et à tous

Compter les cellules vides, c'est bon :
en E1 :
=SI(NB.VIDE(G7:G20)+NB.VIDE(J7:M20)+NB.VIDE(R7:S20)>0;"vide "&NB.VIDE(G7:G20)+NB.VIDE(J7:M20)+NB.VIDE(R7:S20);"OK")

Je voudrais compter jusqu'à la dernière ligne NON vide.
Pourriez-vous m'aider ?
Grand merci

Je joins un petit fichier test.
Un grand merci à toutes et à tous
Et je continue mes recherches...

 

[sylvanu]

Bonjour Lionel,
Un essai en PJ avec :

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

 

[job75]

Bonjour Lionel, sylvanu,

Formule en E1 :

=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+

 

[Usine à gaz]

Bonjour Lionel,
Un essai en PJ avec :

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

Bjr sylvanu
Je te remercie pour ta fonction.
C'est bon

 

[Usine à gaz]

Bonjour Lionel, sylvanu,

Formule en E1 :

=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+

Bonjour Gérard
Merci pour ta formule.
Elle est nickel.

 

[Usine à gaz]

Re-Bjr

Les 2 solutions sont bonnes et j'avance par étape.
Dernière étape si vous voulez bien encore m'aider :

Partant du principe qu'il ne pourra y avoir des cellules vides que sur la ligne en cours de traitement

Je voudrais que s'il y a 1 ou plusieurs cellules vides, qu'il ne puisse pas être possible de cliquer ailleurs que sur la ligne où les cellules sont vides,
Autrement dit : que tout soit bloqué sauf la ligne où sont les vides jusqu'à remplissage des cellules vide.

En cas, je remets le classeur tests qui a vos 2 solutions.

Encore merci

 

[Usine à gaz]

Re-Bjr
J'ai trouvé :

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à

 

[Efgé]

Bonjour à tous

Re-Bjr
J'ai trouvé :

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à

Juste pour rire ; clique sur l'intersection entre les lignes et les colonnes

Cordialement

 

[Usine à gaz]

Bjr Efgé
Effectivement, si clic sur une intersection, ça ne fontionne pas. Grrr !!!
Il y a un moyen de l'éviter ?

 

[Efgé]

Re

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

Cordialement

 

[Usine à gaz]

Re

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

Cordialement

Merci