Sub ouvrir()
With ActiveSheet.UsedRange
UserForm1.TextBox1 = Evaluate("SUM(ISNUMBER(" & .Columns(1).Address & ")*ISBLANK(" & .Columns(2).Address & "))")
UserForm1.Show
End With
End Sub
Salut Job 75Fichier (2) avec NB.SI.ENS (CountIfs) c'est nettement plus simple :
VB:Sub ouvrir() UserForm1.TextBox1 = Application.CountIfs([A:A], "<>", [B:B], "=") UserForm1.Show End Sub