Compter toutes les cellules non vides sauf celles barrées

Lone-wolf

XLDnaute Barbatruc

• 20 Juin 2018

• #2

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Juin 2018

• #3

Bonjour CouleurCourriel

Salut Lone-Wolf

Avec une fonction personnalisée (Vba)

 

Pièces jointes

• calendrier_2018.xls

  50.5 KB · Affichages: 19

Vote positif 0 Vote négatif

CouleurCourriel

XLDnaute Nouveau

• 20 Juin 2018

• #4

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 ???

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Juin 2018

• #5

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Juin 2018

• #6

Bonjour pierrejean 🙂

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

VB:

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

 

Vote positif 0 Vote négatif

CouleurCourriel

XLDnaute Nouveau

• 20 Juin 2018

• #7

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

 

Vote positif 0 Vote négatif

CouleurCourriel

XLDnaute Nouveau

• 20 Juin 2018

• #8

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Juin 2018

• #9

Re

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

 

Vote positif 0 Vote négatif

CouleurCourriel

XLDnaute Nouveau

• 20 Juin 2018

• #10

Lone-wolf à dit:

Re

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

Cliquez pour agrandir...

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" ?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Juin 2018

• #11

Re

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

 

Vote positif 0 Vote négatif

CouleurCourriel

XLDnaute Nouveau

• 20 Juin 2018

• #12

Lone-wolf à dit:

Re

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juin 2018

• #13

Bonsoir le fil, le forum

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

VB:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Juin 2018

• #14

Bonsoir CouleurCouriel, Jean Marie

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

CouleurCourriel

XLDnaute Nouveau

• 21 Juin 2018

• #15

Lone-wolf à dit:

Bonsoir CouleurCouriel, Jean Marie



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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif