Soucis avec tableau Excel

Bonjour le forum,

Je suis en cours de construction d'un fichier contenant des Tableaux Excel, TCD et Graphiques mais il savère que j'ai un soucis avec un tableau excel, je vous explique.

* Dans l'onglet "Mvts_Sport" en colonne H, I et J se trouve des formules mais à chaque fois que l'on ajoute une ligne ces formules ne ce recopie pas et affiche #N/A, pourquoi ?

* est-il possible dans l'onglet "TdB_Sport" d'enlever les étiquettes dans les graphiques, je n'y arrive pas. (Noms étiquettes "Heure Prévue", Heure effetuées", Valeurs, ect...)

Merci de votre aide par avance,

Cordialement

pompaero

Bonsoir,

chez moi ça marche bien malgré les erreurs du dessus...

@ bientôt

LouReeD

Bonsoir LouReeD

Ah bon !!!!!

Pourquoi cela ne fonctionne pas chez moi, j'y comprends plus rien.

Re,

je viens de tester en remplissant le tableau manuellement, ça fonctionne aussi.

Le soucis doit venir, je pense du formulaire U_Sport, non ?

Je ne comprend pas tout le code, mais j'ai l'impression que vous vous compliquez la chose, non ?

Vu que c'est un tableau Excel, il suffit de faire des copier coller de valeur dans les cellules de la première ligne vide sous le tableau, sans avoir à faire des .add . Enfin je dis ça, mais je ne sais pas...

@ bientôt

LouReeD

Re,

je ne sais pas trop car on m'a aidé à créer ce formulaire.

Vous pouvez essayez ceci :

    '// ajout contenu de la collection "résumé" dans le tableau des Mvts Sport
    With Feuil4
        i2 = .Range("Tb_Mvts_Sport").Rows.Count + 2
        For i1 = 0 To résumé.Count - 1
            If résumé(i1)(0) <> "" Then
                .Range("A" & i2 & ":G" & i2).Value = résumé(i1)
            End If
        Next i1
    End With

@ bientôt

LouReeD

Bonjour LouReeD

Je viens de tester ton code, effectivement cela met bien les formules à jour dans les colonnes H, I et J.

Mais les lignes ne s'ajoutent plus dans le tableau, si il y a 5 lignes dans le ListBox 4, une seule s'incrit dans le tableau.

Cordialement

pompaero

Bonjour !

Suis-je bête !

J'ai oubliais d'incrémenter i2 après chaque ajout d'une nouvelle ligne...

Voici le code avec l'incrémentation de i2 :

    '// ajout contenu de la collection "résumé" dans le tableau des Mvts Sport
    With Feuil4
        i2 = .Range("Tb_Mvts_Sport").Rows.Count + 2
        For i1 = 0 To résumé.Count - 1
            If résumé(i1)(0) <> "" Then
                .Range("A" & i2 & ":G" & i2).Value = résumé(i1)
                i2 = i2 + 1
            End If
        Next i1
    End With

@ bientôt

LouReeD

Re,

Pas de soucis.

Bête !!! non du tout, tu sais coder correctement contrairement à moi.

Après incrémentation de i2, cela fonctionne bien.

Autre petit soucis d'esthétique sur les graphiques, est il possible de suprimer les étiquettes comme sur l'image ci dessous ?

Merci de ton soutien

Cdt

pompaero

Bonjour,

Sélectionne le GCD.

Ruban, Outils de tableau croisé dynamique, Analyse, Afficher/Masquer, Boutons de champ.

Choisir Masquer tout.

cdlt.

Bonjour,

Parfais ça marche et en plus je viens d'apprendre quelque chose,

Pour moi c'est bon pour ce post, je vous souhaites bonne continuation.

Merci LouReeD et Jean-Eric

A +

Cdt

pompaero

Merci @ vous de vos remerciements !

@ bientôt

LouReeD