Bonjour à tous,

Je suis un archi débutant sur VBA, je m'y suis mis seulement à cause de mon dernier boulot. J'aurais besoin de votre aide car je cherche à compter les cellules vides de la colonne I de mon tableau jusqu'à la dernière ligne de ce dernier, sans succès. Voici le code que j'ai déjà tapé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CpteCellulesVides()
 
Dim i As Integer
Dim dernligne As Integer
dernligne = Range("I" & Rows.Count).End(xlUp).Row
 
WorksheetFunction.CountBlank (Range("i:I"))
For i = 2 To dernligne
 If IsEmpty Cells(i, 9).Value Then
 i = i + 1
 End If
 
Next
 
Cells(13;25).Value = WorksheetFunction.CountBlank(Range("i:I"))
 
 
End Sub
Ce code est probablement du grand n'importe quoi mais je n'arrive pas à grand chose sur VBA pour l'instant.
Qui plus est If IsEmpty Cells ne semble pas être une formule correcte...
Le logiciel me renvoie "objet requis" sans aller plus loin.

D'avance merci à vous.