Compter les cellules colorer avec MFC et filtrées

Bonjour,

J'ai déjà essayé avec cette formule :

=count.if(A2;A19;<TODAY())

Mais Excel ne l'accepte pas. Probablement ai-je oublié quelque chose ?

Bonjour,

il faut écrire A2:A19 (deux points) et non pas A2;A19 (point virgule) pour indiquer une plage.

pardon oui, erreur de recopie de ma part désolée !

J'ai donc bien mis la "bonne" formule (avec ":" et non ";") et ça ne fonctionne pas.

Il faut mettre le symbole < entre guillemets, et utiliser une concaténation. Soit :
=COUNT.IF(A2:A19;"<" & TODAY())

Cordialement.

J'obtient #NAME

Bonjour Eric,

Oui je n'ai pas pris en compte ce fil pour quelques raisons.

Je ne pense pas que rajouter une colonne serait génial pour ce type de fichier.

Et le VBA je ne connaît pas (bien que je ne rechigne pas à apprendre !! )

re,

Et le VBA je ne connaît pas (bien que je ne rechigne pas à apprendre !! )
Et bien tu vas apprendre... ;-)
NB : si le seul filtre actif est sur la date NB.SI() proposé au-dessus est suffisant.
Si plusieurs filtres sont actifs combiner tous les critères par formule devient vite lourd et contraignant en saisie.

La fonction personnalisée ligVisible(plage) retourne une matrice avec :
- 0 si la ligne est masquée
- 1 si la ligne est visible
(plage doit faire 1 colonne de large sinon #NOMBRE!)

Exemple syntaxe :
=ligVisible(A2:A14)
retourne :
{0;1;0;0;1;0;0;1;0;0;1;0;0}

Exemple 2 : nombre de dates visibles <= aujourd'hui :
=SOMMEPROD((ligVisible(A2:A14))*(A2:A14<=AUJOURDHUI()))
retourne :
3

Code à mettre dans un module général :

Function ligVisible(plage As Range) As Variant
    Dim c As Range, réponse() As Long
    ' une seule colonne acceptée dans 'plage'
    If plage.Columns.Count > 1 Then ligVisible = xlErrNum
    ReDim réponse(1 To plage.Rows.Count)
    For Each c In plage
        réponse(c.Row - plage.Row + 1) = (Not c.EntireRow.Hidden) * -1
    Next c
    ligVisible = Application.Transpose(réponse)
End Function

https://www.cjoint.com/?BKmpUTZuD0V

eric

Coucou !

Alors j'ai lu (et relu ^^) ton message. J'ai regardé ta feuille aussi.

Mais pourquoi est-ce que à la place de la réponse de la formule apparaît #NAME ?

Je supose que tu te souviens que j'ai beaucoup de mal ^^ (d'ailleurs je suis toujours blonde hein !! ) donc, si tu propose de m'aider, ce ne sera pas de tout repos hihi !

J'ai tout de même essayer ta formule

=SOMMEPROD((ligVisible(A2:A14))*(A2:A14<=AUJOURDHUI()))

sur mes feuilles et j'ai le même résultat (je précise que je n'ai qu'un filtre).

Moi pas comprendre ^^ (c'est une habitude je sais hihi)

Bonjour,

il faut accepter les macros à l'ouverture du fichier.
C'est différent selon la version excel.

Sur 2003 : 'outils / options... / sécurité / sécurité des macros...' cocher 'niveau moyen'
Rouvrir le fichier

Sur 2010 : ' fichiers / options / centre de gestion de la confidentialité / paramètre du centre de gestion de la confidentialité...' cocher 'désactiver / toutes les macros avec notification'
Rouvrir le fichier
A l'ouverture cliquer sur la bande jaune en haut pour accepter les macros.

Pour l'utiliser sur tes classeurs :
- soit garder le classeur exemple ouvert
- soit copier le code dans un module général de ton classeur (mais essaie déjà de voir si ça te va).
Alt+F11 pour ouvrir l'éditeur VBE, clic-droit sur le projet à gauche et 'insérer un module'.
Copier coller le code depuis 'Function' jusqu'à 'End Function' dans Module1
Ensuite elle sera disponible comme toutes les autres fonctions excel (dans catégorie Personnalisée)

eric

Bonjour pépé,

Quand tu fais référence à une fonction ou une cellule il faut conserver le test en chaine (entre des " ") et concaténer avec la variable.

Exemples de syntaxe :
=NB.SI(A2:A15;"<=09/11/2012")
=NB.SI(A2:A15;"<=" & AUJOURDHUI())
=NB.SI(A2:A15;"<=" & A6)

eric

Bonjour eriiic,

Merci pour l'info. Cela fonctionne effectivement.
Ce qui est perturbant, c'es que Excel rajoute dans certaines configurations des guillemets et dans d'autres non.
L'aide n'indique pas cette particularité et la doc que j'avais n'abordait pas ce problème.

kim67 avait le même problème avec sa formule. En la corrigeant, il devrait résoudre son problème de comptage.

=count.if(A2;A19;"<"&TODAY())

Merci et bonne journée

Bonjour pépé,

Je viens de tester ta formule.

#NAME

Donc ça ne marche pas :(

Re,

1) les variables servent à conserver une valeur et la faire évoluer au cours du traitement.
Plus tard il faudra que tu regardes leur portée et leur durée de vie.
2) les exemples ne sont peut-être pas terribles ni concrets, ils sont là juste pour montrer l'utilisation d'une fonction.
3) si tu ne connais pas les strings je vais t'apprendre ce que c'est.

Ci-joint un petit exemple peut-être un peu plus complet pour te mettre le pied à l'étrier.
https://www.cjoint.com/?BKns2GY5d2M
J'ai pris le temps de tout commenter, alors prend le tien pour lire tous les commentaires ;-)

Tu n'as pas dit si tu étais arrivée à faire tourner la fonction.

eric

PS
comme on me le fait remarquer à juste titre : pour avoir le prix TTC il multiplier le prix hors taxe par (1 + tva3)

Ca fera l'objet de ton 1er TP : corriger les erreurs du code ;-)
eric

Bon, je ramasse les copies, copie blanche =0
Voilà la solution : https://www.cjoint.com/?BKnxYe6F9Hr
J'ai ajouté également un appel de procédure par bouton
eric

Coucou !

Désolée hier je n'ai pas eu le temps de regarder.

Merci pour tes info, oui oui explique moi j'apprends !!

Pour la formule du coup j'ai pas essayé, je trouve ça super interessant enfaite le code VBA du coup ben j'ai complètement oublié d'essayer ^^

Je vais faire mon tp et promis je ne triche pas !! Je reviens dans.. euh ben dés que j'ai fini ^^

Voila, alors ma réponse est :

Next lig ' ligne suivante
Application.EnableEvents = False 'bloquer la détection des évènements
Range("F2") = nbArticle ' inscription du résultat
[G2] = totalHT * (1 + tva3) ' façon courte de désigner une cellule, inscription du résultat
Application.EnableEvents = True 'rétablir la détection des évènements


Par contre quand je fais F8 ca sélectionne tout et quand je fais F5 il y a une boîte de dialogue qui me demande de rechercher quelque chose, j'ai donc simplement supprimé ton message et j'ai essayé de décortiquer ton code.

J'ai bien lu tes annotations et pour la plus part je crois avoir compris. Dr'ailleurs je prends toujours le temps de te lire, c'est juste que je n'arrivais pas à tout saisir. Mais j'ai l'impression que ça va mieux.

J'ai repris ton doc et j'ai mis dans le code ce que j'avais compris.. ou non.
Merci beaucoup en tout cas, j'ai déjà bien compris certaines choses

J'ai trouvé un autre document qui complete bien les explications du site.

Mais comme toujours, ...

C'est sur le chapitre If - Then - Else

Function ComprisEntre15et20 (nombre As Integer) As Boolean

If (nombre < 15) Then
ComprisEntre15et20 = False
ElseIf (nombre > 20) Then

ComprisEntre15et20 = False
Else
ComprisEntre15et20 = True

End If

End Function

Pourquoi ne pas mettre

If (nombre < 15) Then
ComprisEntre15et20 ) = False
ElseIf (nombre > 20) = False
ElseIf (nombre >= 15) = True

End If

End Function

??? hihi je n'ai peut être pas bien cerné la facon de penser de VBA

Coucou !

Oui j'avance et heureusement.

Cependant, j'ai un soucis... J'ai repris exactement la même formule dinamique et la même ecriture VBA que toi. J'ai ensuite mis en action et je n'obtient aucune réponse ######

J'ai donc modifié le nom pour mettre ColF7 au lieu de colDates. Pas de réponse. J'ai alors compris que je devais sûrement définir, comme toi, ColF7... Mais lorsque j'ai cherché où tu avais définit la tienne je n'ai pas trouvé. Tu as effectivement mis la formule pour le montrer mais je n'ai pas trouvé dans VBA où tu l'avais saisie.

Je suis perplexe du coup !!

Ca veut dire qu il faut faire trois ecriture ? Une VBA de base (livisible), une dans la case où i y aura la réponse, et une pour définir la zone ??

J'ai compris hier ce que c'était C dans "Dim C" ^^ c'était dans le cours de Cathy ^^ Hey hey

PS : utiliser un nom dynamique
- sur 2010 : convertir la plage en tableau et utiliser les références structurées
La tu m'as completement perdu !!

Ben mon envie d'apprendre te dirais bien OUI OUI APPRENDS MOI APRENDS MOI ^^

C'est quelque chose qui ne me sera pas utile ici je pense. Donc très probablement, si tu le veux bien, dés qu'on aura fini avec mon document, je serai prête à apprendre la lecon suivante.

Par contre, j'ai fait ce que tu m'as dit. C'est super, maintenant je sais nommer des choses :D

mais le problème c'est que ... Sur mon document j'ai essayé et j'obtient O... J'ai vérifié, je ne me suis pas trompé dans le nom de la colonne. La formule VBA est toujours la bonne et la formule est exacte aussi.... Alors je me suis dis que jallais te montrer. Et puis là... Lorsque j'ai copié la feuille j'ai carrément eu droit à ####

Je ne comprends rien, pourtant tout me semble bon. QU'est ce que j'ai fais de mal ??

Encore une fois je te remercie pour le temps que tu prends pour me repondre, je me doute que ce n est pas facile avec quelqu un en face de toi qui te trouve des questions à chaque nouvelle info... :/

Quand tu as des ##### c'est que la colonne est trop petite pour afficher.
Elargis la et tu lis #NOM! : un nom dans la formule n'est pas reconnu.
ligVisible sans doute...
Donc tu as bien mis la fonction, mais une fonction personnalisée doit être dans un module général, pas dans un module de feuille.
Clic-droit dans le projet pour insérer un module puis couper-coller le code, ça devait aller mieux.

Accessoirement dans la définition de ColF7 tu as utilisé des références structurées.
Bon, ça c'est fait ! ;-)

eric

PS : tu as utilisé les ref structurées, mais mal...
Et si tu les utilises, tu peux les utiliser directement dans la formule, inutile de passer par un nom (sauf si tu veux éclaircir et raccourcir ma formule)
Donc en B498 :
=SOMMEPROD(ligVisible(Table_FY1213_Master_Plan_Opérations[F7])*(Table_FY1213_Master_Plan_Opérations[F7]<=$E$498))

eric

Ca ne fonctionne pas. Je me demande bien ce qui fait que ca ne va pas. Pourtant j'ai exactement copié ta formule... :/ HUM....

Attends je crois que j'ai compris ou ce situe le problème... je vais te faire un doc excel ^^ je pense que le soucis ce trouve dans le nom dynamique

J'avais édité mon post (le PS), tu n'as pas vu je crois.
Je précise qu'une référence structurée s'étend automatiquement au fur et à mesure des saisies