Bonjour,

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub Bouton10_Cliquer()
var_test = WorksheetFunction.CountBlank(Range("H2:H900"))
    MsgBox var_test & (" Retours vides")
 
End Sub

J'aimerais que le comptage se fasse jusque et y compris la dernière ligne remplie. (Ex. : Si il n'y a que 700 lignes remplies, tout le tableau ne doit pas être pris en compte)



Autre code qui pose problème :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub FACTURES_Bouton10_Cliquer()
var_test = WorksheetFunction.CountIf(Range("G2:G900"), "" & ("E2:E900"), "<>")
    MsgBox var_test & (" Retours vides")
 
End Sub
(Je me suis basé sur une formule Excel NB.SI.ENS)

Le comptage doit se faire si la colonne G est vide et si la colonne E n'est pas vide

J'aimerais également que le comptage se fasse jusque et y compris la dernière ligne remplie.

Ex. : Si il n'y a que 700 lignes remplies, tout le tableau ne doit pas être pris en compte.



Merci.

Bonne journée