Compter cellules pleines
Résolu
heyitsjusttiffany
Messages postés
86
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Compter cellules pleines
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Concatener deux cellules excel - Guide
- Afficher cellules masquées excel ✓ - Forum Excel
Erreur de compilation:
Instruction incorrecte à l'extérieur d'une procédure.
En revanche, la formule marche bien ;) !
Entre temps, j'ai continué de cherché en attendant une réponse et j'ai miraculeusement trouvé une formule (comme quoi quand on cherche sans espérer trouver, c'est bien à ce moment qu'on trouve la solution) :
Sub CountNonBlanks() 'Updateby20140310 Dim rng As Range Dim WorkRng As Range Dim total As Long On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each rng In WorkRng If Not IsEmpty(rng.Value) Then total = total + 1 End If Next MsgBox "There are " & total & " not blank cells in this range." End Subhttps://www.extendoffice.com/documents/excel/1559-excel-count-empty-or-nonblank-cells.htmlMais la formule est bien plus simple à retenir pour réutiliser à l'avenir, merci beaucoup !
Erreur de compilation:
Instruction incorrecte à l'extérieur d'une procédure.
Comme une formule est associée à une cellule, une instruction VBA doit être intégrée à une procédure, tu ne peux pas exécuter une ligne toute seule !