XL 2016 Excel bugge quand j'essaie d'insérer une ligne

Staple1600 à dit:

Bonjour @Ben31clp

1) Joins une copie allégée et anonymisée de ton classeur dans son état actuel de reconstruction.

2) La solution d'enregistrer en *.CSV ne doit intervenir que pour récupérer les données
(Cette étape, tu l'as déjà faite, elle n'est donc plus à refaire)

Si je résume
1) En partant du classeur vérolé, tu exportes les données en exportant chaque onglet en *.csv
2) Tu créés un nouveau classeur (donc vide) que tu enregistres en *.xlsx

C'est ce nouveau classeur qui te sert désormais de classeur de travail
Et c'est sur ce classeur que tu reconstruis ton outil de travail
a) Tu récrées les onglets (avec les mêmes noms que dans le fichier "vérolé")
b) Tu copies/colles les données à partir des fichiers *.csv
(ou tu utilises PowerQuery pour ce faire)
c) Une fois tes données copiées ou importées, tu créés tes tableaux structurés
d) Dans ces tableaux tu insères tes formules en faisant attention à la syntaxe
(nom du tableau, nom des colonnes)

Cliquez pour agrandir...

1) Joins une copie allégée et anonymisée de ton classeur dans son état actuel de reconstruction.

Cliquez pour agrandir...

Staple1600 à dit:

Re

@Ben31clp
Comme conseillé dans mon message précédent

Ainsi on pourra voir de nos yeux voir ces chiffres avec des ?

Bonne nuit.

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour @Ben31clp

Non, je tai déjà expliqué que l'export CSV n'était à utiliser que pour tenter de récupérer les données de ton classeur corrompu.
(relire le message#63)

Donc désormais, on ne parle plus que du fichier xlsx que tu as commencé à reconstruire.

Cliquez pour agrandir...

Staple1600 à dit:

Re

@Ben31clp
Quand on créé un tableau, on ne sélectionne pas toutes les lignes de la feuille sur laquelle il se trouve
Il faut donc dans un premier les redimensionner à une taille plus raisonnable.

Cliquez pour agrandir...

Staple1600 à dit:

Re

Sur une copie ton classeur, lances la macro ci-dessous

Code:

Sub tableaux_vers_range()
Dim F As Worksheet, LOj As ListObject
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each F In Worksheets
    For Each LOj In F.ListObjects
        LOj.Unlist
    Next
Next
Application.Calculation = xlCalculationAutomatic
End Sub

Normalement, tu pourras alors insérer une ligne au dessus
Une fois tes lignes insérées, retransforme les plages en tableaux.

Ci-dessous une macro pour recréer les tableaux (une fois la ligne insérée manuellement sur les cinq feuilles)

VB:

Sub Creer_tableaux()
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In Worksheets
F.ListObjects.Add(xlSrcRange, F.Range(F.[A2].CurrentRegion.Address), , xlYes).Name = "Tableau" & F.Index
Next
End Sub

NB: test OK sur ton fichier exemple.

Cliquez pour agrandir...