NBVAL dans TCD

Bonjour

Dans un tableau croisé dynamique, je souhaite avoir le total de cellules non vide des colonnes dates pour chaque ligne , en sachant que ce tableau va évoluer à chaque fois qu'il se met à jour.

La fonction NBVAL convient, mais je voudrais que cela soit automatique malgré d'ajout de colonnes de dates supplémentaires.

La formule à modifier est dans la colonne Nbre parties de l'onglet TCD.

Merci d'avance

46essai001.xlsm (55.08 Ko)

Bonjour,

Voir le gestionnaire de noms et les données source du TCD.

La plage des données est dynamique.

Cdlt.

101essai001.xlsm (66.63 Ko)

Bonjour

En fait je me suis trompé de fichier joint

Désolé pour tout

Cordialement

60essai-002.xlsm (177.58 Ko)

Bonjour,

Avant d'aller plus loin, peux -tu préciser la version d'Excel que tu utiliseras au quotdien ?

Cdlt.

Bonjour

Excel 2007

Bonjour,

Une proposition à étudier.

Cdlt.

53essai-002.xlsm (269.29 Ko)

Bonjour Jean Eric

Explication de mon fichier : il sert de classement de joueurs de boules sur différents concours, et par un jeu liaison de cellule, on obtient la feuille de match. Leurs résultats sont copiés dans l"onglet 'Recap', et de là un TCD automatique (mais sans le nbre de parties correspondant aux cellules des dates)

Merci de ta proposition, Mais j'ai résolu en le mettant dans une autre cellule =NBVAL(plage de la ligne correspondant aux dates). Par contre, mystérieusement je ne sais pas comment il arrive à se mettre à jour automatiquement quand j'ajoute des données dans Recap.

Je te joins mon fichier (j'ai masqué les autres onglets)

45essai-005.xlsm (152.65 Ko)

Bonjour,

Je ne comprends pas ton nouveau fichier. Il est identique à celui que j'ai envoyé précédemment.

Sinon la source du TCD est dynamique (plage nommée BDD). L'actualisation et le calcul du nombre de parties s'effectue à l'activation de la feuille TCD.

Peux-tu regarder le joueur Brice pour la date du 08/05P72. Il fausse les résultats !

A te relire.

Cdlt.

19essai-005.xlsm (184.27 Ko)
Private Sub Worksheet_Activate()
Dim Rng As Range, Rng2 As Range, r As Range
Dim lCol As Long, LRow As Long, I As Long

    Application.ScreenUpdating = False

    Set r = Me.Cells.Find(what:="NB Parties", LookIn:=xlValues, lookat:=xlWhole)
    If Not r Is Nothing Then
        r.EntireColumn.ClearContents
    End If

    With Me.PivotTables(1)
        .PivotCache.Refresh
        With .TableRange1
            lCol = .Columns.Count
            LRow = .Rows.Count
        End With
        Set Rng = .TableRange1
    End With

    Set Rng2 = Rng.Cells(1, 1).Offset(2, lCol + 1).Resize(LRow - 3)
    Rng2.Cells(1, 1).Offset(-1).Value = "NB parties"
    For I = 1 To Rng2.Rows.Count
        Rng2.Cells(I, 1).Value = _
        Application.Count(Rng.Cells(1, 1).Offset(2 + I - 1, 1).Resize(1, lCol - 2))
    Next I

    Set Rng2 = Nothing: Set Rng = Nothing

End Sub

Rebonjour

Il y avait 2 Brice dans la même colonne : j'ai corrigé en AAAA et BBBB.

Cellule D41 s'arrêtait à D38 au lieu de D39 : j'ai corrigé mais il apparait un triangle vert ?

et employer =NB est il mieux que =SOMME ?

J'ai beaucoup aimé ta formule =NB.SI , je note pour l'utiliser éventuellement

Cellule M6 formule s'arrête à 38 au lieu de 39 : rectifié

Le code de ton message que faut-il que je fasse ? et où le mettre

Cdlt

28essai-006.xlsm (153.00 Ko)

Re,

Il est dans le fichier.

AL F11 pour ouvrir l'éditeur VBE et voir le module Feuil4 (TCD).

Cdlt.

Bonjour Jean-Eric

Depuis le dernier message, je galère pour essayer d'incorporer ton code dans mon vrai fichier qui comporte tous les noms des joueurs.

Peux tu me dire comment le faire.

Cdlt

Bonjour,

Il te suffit de copier ma procédure dans le module de ta feuille qui comporte le TCD.

C'est un procédure événementielle qui s'exécute à l'activation de la feuille.

Il est maintenant peut-être plus simple que tu joignes ton vrai fichier (<1Mo).

Cdlt.

Bonjour Jean-Eric

J'ai voulu copier ton code dans mon vrai fichier et je n'ai pas réussi.

Peux tu me dire comment le faire ?

Cdlt

Bonjour,

Quel processus as-tu suivi ?

Cdlt.

Rebonjour

1 - J'ai voulu copier la feuille 4 (TCD) du VBA dans le nouveau fichier

2 - J'ai copié le code dans l'onglet TCD et visualisation du code

Ca ne marche pas

RE,

Ne peux-tu pas envoyer ton fichier ?

Tu peux aussi m'envoyer un MP, si nécessaire.

Cdlt.

RE

Je crois que je n'ai pas le droit d'envoyer un fichier avec des noms, d'ailleurs depuis mes essais, tous mes macros sont pourris.

C'est quoi un MP

J'ai essayé de reprendre mon fichier en enlevant les noms, mais il y a que le TCD qui conserve encore les anciens noms.

Je piétine

Cdlt

Re,

C'est un message privé.

En retour je te communiquerai mon adresse email.

Cdlt.

Bonjour

Suite à gros problème du club pour ordi HS, j'ai eu à essayer de tout refaire ce fichier.

Je voudrais un TCD simple (sans filtre,mais avec la colonne nbre de parties)

donc saisies manuelles avec liste déroulante

sélection automatique de ces saisies pour la récapitulation du TCD

Je ne sais pas si je suis assez clair, alors les questions sont dans le fichier joint

Cordialement

13essai-0025.xlsm (158.41 Ko)

Bonjour

Je cloture ce sujet car pense que je ne suis pas en accord avec le titre

Je vais donc reformuler ma question sous une forme

Cordialement

Rechercher des sujets similaires à "nbval tcd"