Compter toutes les cellules non vides sauf celles barrées

[CouleurCourriel]

Bonjour,
Je souhaite comptabiliser le nombre de cellule non vide d'une liste sauf ceux dont j'ai barré les noms ou mis un signe distinctif.

J'ai essayé "=NBVAL(D5:35)-NBVAL(D5:35<>"-")"
"=NBVAL(D5:35)-NB.SI(D5:35;"-")"
et "=NBVAL(D5:35<>"-")"

J'ai également remplacé le "-" par "*" et "1" mais cela ne fonctionne pas.
Est-ce possible avec une formule excel ou dois-je passer par le VBA que je ne connais absolument pas ?
Mon fichier en pj.

Merci de vos réponses,

CC

 

[Lone-wolf]

Bonjour CouleurCourriel

@CouleurCourriel

C'est juste pour te dire de supprimer l'un message, tu l'as créé 2 fois.
ICI : compter-toutes-les-cellules-non-vides

 

[pierrejean]

Bonjour CouleurCourriel

Salut Lone-Wolf

Avec une fonction personnalisée (Vba)

 

[CouleurCourriel]

Bonjour pierrejean,
Merci, c'est exactement ça ! Sauf que ça ne fonctionne pas si je récupère cette formule dans un autre fichier excel...
Faut-t-il "débloquer" quelque chose ???

 

[pierrejean]

Re
Il faut copier la fonction dans le Module1 des fichiers
Touches Alt +F11 pour aller dans l’éditeur Vba
Cliquer ensuite sur Module1
Copier la fonction
Répéter avec l'autre fichier et coller la fonction
En cas de problème ne pas hésiter a revenir

 

[Lone-wolf]

Bonjour pierrejean 🙂

Sans avoir vu la fonction de pierrejean, à mettre dans un module standard.

Function NonBarré(plage As Range) As Integer
Dim cel As Range, temp
    Application.Volatile True
    For Each cel In plage
        If cel.Font.Strikethrough = False And cel <> vbNullString Then _
        temp = temp + 1: NonBarré = temp
    Next cel
End Function

Clique sur FX > Fonctions personnalisées

 

[CouleurCourriel]

Super ! Merci pierrejean !

Mais pour aider d'autres, car j'ai dû insérer le Module1 (absent) dans mon fichier, soit :
- Alt+F11 -ou onglet "développeur", puis "visual basic"-
- Onglet "insertion"
- puis "module" et là, coller la formule :
Function nb_pas_barre(zone)
For Each cel In zone
If cel.Value <> "" And cel.Font.Strikethrough = False Then
nb = nb + 1
End If
Next
nb_pas_barre = nb
End Function

 

[CouleurCourriel]

Merci à Lone-wolf pour son rajout (auquel je ne comprends rien 😵 )

 

[Lone-wolf]

Re

Ah Bon?! 😵. Pourtant elle est casiment identique à celle de pierrejean. 😕

 

[CouleurCourriel]

Re

Ah Bon?! 😵. Pourtant elle est casiment identique à celle de pierrejean. 😕

Sans doute ! Mais je ne connais pas VBA... je me suis contentée de copier-coller !

Bon, maintenant, comment fait-t-on pour noter la conversation en "résolue" ?

 

[Lone-wolf]

Re

Tout en haut de ton 1er message, tu as une liste déroulante(outils). Clique dessus > modifier le message.

 

[CouleurCourriel]

Re

Tout en haut de ton 1er message, tu as une liste déroulante(outils). Clique dessus > modifier le message.

Dans cette liste, j'ai : "modifier le titre" ou "ajouter un sondage". Je fais quoi avec ça 😉 ?

 

[Staple1600]

Bonsoir le fil, le forum

Parce qu'un fil n'est jamais vraiment résolu 😉
Une autre fonction personnalisée

Function NBSPEC(r As Range)
Dim c As Range, cpt&
For Each c In r
cpt = cpt + (Len(c) And Not c.Font.Strikethrough)
Next
NBSPEC = cpt
End Function

 

[Lone-wolf]

Bonsoir CouleurCouriel, Jean Marie

Dans cette liste, j'ai : "modifier le titre" ou "ajouter un sondage". Je fais quoi avec ça 😉 ?

Je te laisse réfléchir 😎. Mon gamin, aurait tout de suite compris quoi faire.

 

[CouleurCourriel]

Bonsoir CouleurCouriel, Jean Marie



Je te laisse réfléchir 😎. Mon gamin, aurait tout de suite compris quoi faire.

Merci pour cette aide... je me sens moins minable...