Compter les cellules vides d'un tableau

Version imprimable

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:

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.

Bonjour,

Inutile d'utiliser une boucle lorsque une simple fonction Excel peut vous donner directement la solution. Dans votre cas, vous devriez nommer la cellule où vous auriez une fonction Nb.Si par exemple et si vous avez besoin de la valeur pour d'autres calculs, la récupérer via une variable par VBA.

Autrement, une solution paramétrable :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Sub TestDecompterLesCellulesVide()
 
Dim NbAvecNbSi As Long
Dim NbAvecCountA As Long
 
 
    NbAvecNbSi = NbCellulesVidesAvecNbSi(Sheets("Feuil1"), 1, 9)
    NbAvecCountA = NbCellulesVidesAvecCountA(Sheets("Feuil1"), 1, 9)
 
    MsgBox "Nombre avec Nb.Si : " & NbAvecNbSi & Chr(10) & "Nombre avec Count A : " & NbAvecCountA
 
 
End Sub
 
Function NbCellulesVidesAvecNbSi(ByVal FeuilleEtudiee As Worksheet, ByVal LigneDepart As Long, ByVal ColonneEtudiee As Long) As Long
 
Dim DerniereLigne As Long
Dim AireSelectionnee As Range
 
    Application.Volatile
 
    NbCellulesVidesAvecNbSi = 0
    With FeuilleEtudiee
         DerniereLigne = .Cells(.Rows.Count, ColonneEtudiee).End(xlUp).Row
         Set AireSelectionnee = .Range(.Cells(LigneDepart, ColonneEtudiee), .Cells(DerniereLigne, ColonneEtudiee))
         NbCellulesVidesAvecNbSi = WorksheetFunction.CountIf(AireSelectionnee, "")
         Set AireSelectionnee = Nothing
    End With
 
End Function
 
Function NbCellulesVidesAvecCountA(ByVal FeuilleEtudiee As Worksheet, ByVal LigneDepart As Long, ByVal ColonneEtudiee As Long) As Long
 
Dim DerniereLigne As Long
Dim AireSelectionnee As Range
 
    Application.Volatile
    NbCellulesVidesAvecCountA = 0
    With FeuilleEtudiee
         DerniereLigne = .Cells(.Rows.Count, ColonneEtudiee).End(xlUp).Row
         Set AireSelectionnee = .Range(.Cells(LigneDepart, ColonneEtudiee), .Cells(DerniereLigne, ColonneEtudiee))
         NbCellulesVidesAvecCountA = AireSelectionnee.Cells.Count - WorksheetFunction.CountA(AireSelectionnee)
         Set AireSelectionnee = Nothing
    End With
 
End Function

Vous pouvez également vous servir de ces fonctions directement dans Excel, mais elles sont inutiles si elles ne font pas plus que les simples fonctions Excel.

L'avantage ici, est d'aller chercher directement n'importe quelle colonne de n'importe quel onglet, en définissant l'onglet, la première ligne et la colonne choisie.

Sinon, servez-vous des tutoriels VBA et utilisez à fond l'enregistreur de macro pour apprendre la syntaxe.

Cordialement.

23/12/2016, 16h00
Waragnac

1 pièce(s) jointe(s)

Bonjour,

Merci pour votre réponse.

Par contre j'obtiens toujours 0...

J'ai tenté de réadapter votre code avec Countblank et j'ai la même chose (voir fichier en pièce jointe)

Cordialement.

Pièce jointe 230389
23/12/2016, 16h03
Philippe Tulliez

Bonjour,
La fonction NB.VIDE nativement présente dans les fonctions d'excel permet de calculer cela.
Exemple

Code:

=NB.VIDE(C2:C11)

Fonction que l'on peut insérer sans problème dans la ligne des totaux d'un tableau Excel (Insertion-Tableau)
Exemple pour la colonne Lbellé

Code:

=NB.VIDE([Libellé])
23/12/2016, 17h13
Waragnac

Bonjour Philippe,

Merci pour votre conseil.

Finalement après avoir repris le fichier, j'ai pu trouver le résultat escompté grâce à la méthode de Eric, en utilisant Countblank à la place de CountA

Merci :)

Cdt.

Bonjour,
un exemple à adapter (ne pas oublier de pointer sur la feuille voulu - cf faq du forum) :
Code:

1 2 3 4 5 6 Sub demo() Dim Der_L&, Nb_Cel_vides& Der_L = Cells(Rows.Count, 1).End(xlUp).Row Nb_Cel_vides = Application.CountBlank(Range("A1:A" & Der_L)) MsgBox Nb_Cel_vides End Sub

23/12/2016, 17h21
joe.levrai

Citation:

Envoyé par Waragnac

j'ai pu trouver le résultat escompté grâce à la méthode de Eric, en utilisant Countblank à la place de CountA

Bonjour,

c'est un peu normal, dans la mesure ou COUNTBLANK() et le nom anglais de la fonction "française" NB.VIDE :mrgreen:
23/12/2016, 17h36
Philippe Tulliez

Bonjour Joe,

Citation:

c'est un peu normal, dans la mesure ou COUNTBLANK() et le nom anglais de la fonction "française" NB.VIDE

Et c'est tellement mieux en VBA que de passer par une fonction native d'excel
Microsoft devrait vendre des version light d'excel avec juste un classeur et des feuilles sans aucune fonctionnalité, ni fonction et permettre aux utilisateurs de macroter
23/12/2016, 17h41
RyuAutodidacte

Re,
pour récupérer la formule dans une cellule pour VBA (le plus simple)
- Ouvrir la fenêtre d’exécution
- écrire par exemple (mettre la cellule contenant la formule) :

Code:

Debug.print Range("A1").Formula

- puis valider => la formule est dispo
- après l'adapter en VBA
23/12/2016, 17h51
joe.levrai

Il y avait autrefois le pack "starter" office avec des fonctionnalités réduites (pas de VBA et fonctionnalités avancées) et un bandeau publicitaire

Sinon, un Excel "à blanc", je prend un cahier de feuille A4 quadrillées si besoin :mrgreen:
Ou alors, un listview ? :aie:

Réinventons la roue ! Paraît qu'elle pourrait dans le meilleur des cas se mettre à "rouler" :mouarf:
24/12/2016, 02h48
Invité

Bonjour Philippe et Joe,

Vous avez raison, mais soyez indulgents. Sauf d'avoir une grosse "tronche", on a tous commencé comme ça, avant de se rendre compte en y travaillant, qu'on pouvait être plus simple et plus efficace. Moi en premier.

Amicalement.
24/12/2016, 11h43
joe.levrai

Bonjour Eric,

oh, pour ma part, il n'y avait absolument rien de sérieux ou de blessant, juste des sottises racontées après 40h de boulot sans repos :oops:

et je suis d'accord avec toi, il suffit d'aller lire mes premiers messages sur ce forum pour se rendre compte d'où je suis parti et par quels chemins tarés je passais pour des problèmes simples :zoubi:
24/12/2016, 11h54
Invité

Salut Joe,

Je ne me suis pas senti attaqué. Je pensais juste à la personne qui dépose son premier post et qui reçoit nos réponses.... :chin: :ccool:

Je salue Philippe et les autres contributeurs.

Alors repose toi bien et passe de bonnes fêtes.

Amicalement.
24/12/2016, 12h04
joe.levrai

Tu as néanmoins raison, notre échange avec Philippe pouvait s'interpréter négativement, ton intervention restaure la compréhension

alors :plusser: