XL 2010 Fonction pour tableau structuré [RESOLU]

cathodique

XLDnaute Barbatruc
Bonjour:),

Je n'ai pas du tout manipulé les tableaux structurés. Je m'y suis pour aider et c'est une bonne chose pour moi, ça m'oblige à élargir mes connaissances.

En fait, j'ai 2 demandes:
1- j'ai enregistré une macro pour supprimer toutes les lignes du tableau avec l'enregistreur et ça m'a donné une suite d'une même ligne de code: Selection.ListObject.ListRows(1).Delete
Je suis resté perplexe, comment simplifier et utiliser cette macro.

2- en fin de tableau, j'ai utilisé une ligne total. Pour la dernière colonne qui reprend des prévisions par compte.
Je voudrais une fonction qui ne somme pas les doublons.
ex: compte 616 présent 2 fois en colonne C et par conséquent en colonne K il y a 2x 250
la fonction ne doit prendre qu'une seule fois 250.

J'espère avoir bien expliqué mon problème.

En vous remerciant par avance.

bonne soirée.
 

Pièces jointes

  • non sommer doublon.xlsm
    15.7 KB · Affichages: 28

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir cathodique,

Pour le second point, on peut sans doute utiliser la formule matricielle suivante dans la cellule K52:
Code:
=SOMME((EQUIV([cpte];[cpte];0)=LIGNE([cpte])-5) * ([[Prévision        ]]))

Attention! l'en-tête "Prévision " comporte des espaces en fin de mot. C'est assez bizarre pour un intitulé d'en-tête o_O mais ça marche malgré tout.

nota: le fichier comporte la formule pour le point 2 ainsi que ma macro pour le point 1
 

Pièces jointes

  • cathodique- non sommer doublon- v1.xlsm
    15.9 KB · Affichages: 25
Dernière édition:

Jean-Eric

XLDnaute Occasionnel
Bonsoir,
Pour la question 1 :
Cette procédure réinitialise le tableau en conservant les formules et la mise en forme des cellules.
VB:
Public Sub ResetTable()
    With ActiveSheet.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With
End Sub
 

cathodique

XLDnaute Barbatruc
Mapomme:),Jean-eric:),

Je vous remercie beaucoup pour votre précieuse aide. Je vais pouvoir avancer.

Comme pratiquement tout est traité en vba sur ce fichier (à l'exception bien sûr de la saisie de donnée). Je transformerai la formule de Mapomme en vba.

Encore merci à vous.

Bonne soirée.
 

Discussions similaires

Statistiques des forums

Discussions
312 938
Messages
2 093 776
Membres
105 819
dernier inscrit
julien.aupecle