Excel et VBA NB.VIDE

...dans se cas ; COUNTIF 

heu ce n'est pas countblank ?

et bien merci le pingou je ne savais pas que de taper la formule dans une cellule en l'enregistrant nous donnait le code VBA mais c'est noté ;)

Bonjour,
A la suite de toute cette littérature, je me permets de proposer la mienne qui n'est que la correction de la votre.

Private Sub Worksheet_Calculate()
Dim z As Long
z = WorksheetFunction.CountBlank(Range("A1:A999"))
End Sub

Il faut savoir que CountBlank est une fonction, donc il est nécessaire d'utiliser l'expression WorksheetFunction devant la fonction et pour l'argument plage vous le donnez sous forme Range("A1:A999").

Si tu veux en B1 : =NB.VIDE(A1:A999) inscrit en VBA ce que t'as donné l'enregistreur de macro :

ActiveCell.FormulaR1C1 = "=COUNTBLANK(RC[-1]:R[999]C[-1])" 

Pour l'utiliser ensuite, tu peux stocker le résultat dans une variable Integer :

Dim nbvid as integer
ActiveCell.FormulaR1C1 = "=COUNTBLANK(RC[-1]:R[999]C[-1])" 
nbvid = ActiveCell.Value

En ce qui concerne le code que je t'ai donné précédemment, je ne comprends vraiment pas pourquoi cela ne fonctionne pas chez toi...

"l'indice n'appartient pas à la sélection". Quel code as tu utilisé? Le 1er ou le 2ème?

cf post 10. C'est la meilleure solution. Tu passes par une cellule de ton classeur (B1 ou n'importe qu'elle autre AZ23658...), stocke sa valeur dans une variable et efface la cellule...

Essaie ceci :

Sub nbvide()
Dim z As Long
Dim derlig As Integer
derlig = Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Row
z = derlig - Sheets("Feuil1").Range("A1:A" & derlig).Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Tu sais, si tu nous demandais ce que tu désires de manière plus complète, peut être existe t'il une méthode plus globale pour réaliser ton fichier. D'ailleurs, sur ton sujet "macro excel triage..." Michel_m te présente une solution fort utile qui pourrait être la base d'un nouveau départ pour ce sujet ici......

Oui il y a effectivement deux solutions. Soit passer par une formule dans une cellule (la dernière ou une autre peu importe), soit passer directement en VBA par un simple calcul : nbre de cell total - nbre de cell non vide. Informatifien semble donner la préférence à cette deuxième méthode, finalisons là.
Attention au code que j'ai donné plus haut :

Sub nbvide()
Dim z As Long
Dim derlig As Integer
derlig = Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Row
z = derlig - Sheets("Feuil1").Range("A1:A" & derlig).Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Il me semble que la partie en gras ne fonctionne qu'une fois ou nécessite l'enregistrement du classeur au préalable. Donc :

Sub nbvide()
Dim z As Long
Dim derlig As Integer
derlig = Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Row
ActiveWorkbook.Save
z = derlig - Sheets("Feuil1").Range("A1:A" & derlig).Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

il arrive... Laisse le finaliser, tu verras ton sujet remonter dans mes interventions (enfin dans les tiennes aussi...)