Nombre de cellules dont le texte n'est pas barré Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 3 mars 2019, 11:50

bonjour;
je voudrais comptabiliser le nombre dont le contenu n'est pas barré,
cordialement
somme-sauf-si-cellule-barree-temp.xlsm
(13.5 Kio) Téléchargé 17 fois
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'151
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 3 mars 2019, 12:02

Bonjour,

une proposition (à mettre dans un module),
edit : compte les cellules dont le contenu est barré, Il faut ajouter application.volatile (comme indiqué dans la réponse de oyobrans (que je salue), car un changement de format de cellule ne provoque pas le recalcul)
Function somcond(r)
    For Each c In r
        If c.Font.Strikethrough Then ctr = ctr + 1
    Next c
    somcond = ctr
End Function
Modifié en dernier par h2so4 le 3 mars 2019, 12:32, modifié 1 fois.
Avatar du membre
oyobrans
Membre impliqué
Membre impliqué
Messages : 1'051
Appréciations reçues : 18
Inscrit le : 27 septembre 2013
Version d'Excel : 2016

Message par oyobrans » 3 mars 2019, 12:12

Bonjour,

Avec Application.Volatile pour que la formule soit recalculée automatiquement, et cellule.Font.Strikethrough = False pour que ce soit bien les cellules non barrées qui soient totalisées.
Public Function somcond(plage As Range)
    Application.Volatile
    Dim cellule As Range, compteur%
    For Each cellule In plage
        If cellule.Font.Strikethrough = False Then compteur = compteur + 1
    Next cellule
    somcond = compteur
End Function
Cordialement.

Aide-toi et le ciel t'aidera.
[ GIF animé de Dave Whyte ]
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 3 mars 2019, 13:19

Merci à tous
quelle formule dois je mettre dans la cellule ?
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 3 mars 2019, 13:34

Bonjour
j'ai essayé ça mais la formule additionne les cellules vides aussi
nismo2019.xlsm
(16.38 Kio) Téléchargé 3 fois
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'151
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 3 mars 2019, 13:55

bonjour,

une proposition
Function somcond(r)
    Application.Volatile
    For Each c In r
        If c <> "" And c.Font.Strikethrough = False Then ctr = ctr + 1
    Next c
    somcond = ctr
End Function
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 3 mars 2019, 14:56

re
je voudrais la formule qui va avec le code macro si possible
merci à toi
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'151
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 3 mars 2019, 15:15

bonjour,

la formule que tu as mise dans ton fichier exemple initial
=somcond(B6:B8)
si ta plage est B6:B8
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 4 mars 2019, 08:54

Bonjour;
j'ai un petit problème, mes données sont réparties dans les lignes a1:a5 , si dans ma formule je sectionne a1:a10 ( au cas ou j'aurais plus de données) le décompte prend en considération les cellules vides, aussi quand je réouvre le fichier j'ai le message #Nom s'affiche dans ma cellule de résultat, il faudra à chaque fois que je double clique dessus.
j'espère que j'ai été clair
Merci d'avance pour ton aide.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'151
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 4 mars 2019, 09:22

Bonjour,

voici la macro dans ton fichier exemple tu verras qu'elle fonctionne sans problème (à la restriction près qu'un changement de format ne provoque pas le recalcul).

Si tu veux plus d'aide et comme je n'ai pas envie d'utiliser ma boule de cristal merci de mettre le fichier qui pose problème.
somme-sauf-si-cellule-barree-temp.xlsm
(14.63 Kio) Téléchargé 6 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message