XL 2010 Fonction pour tableau structuré [RESOLU]

[cathodique]

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.

 

[mapomme]

Bonsoir cathodique,

Pour le premier point, on peut sans doute utiliser:

Range("Tableau1").ListObject.DataBodyRange.Delete  xlShiftUp

 

[mapomme]

Bonsoir cathodique,

Pour le second point, on peut sans doute utiliser la formule matricielle suivante dans la cellule K52:

=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 😵 mais ça marche malgré tout.

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

 

[Jean-Eric]

Bonsoir,
Pour la question 1 :
Cette procédure réinitialise le tableau en conservant les formules et la mise en forme des cellules.

Public Sub ResetTable()
    With ActiveSheet.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With
End Sub

 

[cathodique]

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.