Faire 1 TCD avec 2 autres tableaux

Bonjour

je suis embêté je ne sais pas mettre mon fichier dans ce message il fait 9 Mo et je n'arrive pas à le faire passer sous la limite autorisée

pour résumer la situation

j'ai un onglet qui donne un tableau croisé dynamique récapitulatif des alertes générées dans la journée (ALERTES EN COURS)

j'ai un second onglet qui donne un tableau croisé dynamique des alertes archivées dans la journée (ALERTES ARCHIVEES)

Par contre mon troisieme TCD doit etre le récapitulatif des 2 premiers mais cela ne fonctionne pas...je n'arrive pas à avoir la même mise en page (n'apparait pas les colonnes Alerte Jaune, Alerte Orange, Alerte Rouge) (NB ALERTES PAR JOUR)

Pourriez vous m'aider svp.

merci

Bonjour,

fais une copie avec 50 lignes de ton tableau et des tcd et ça passera

P.

Je comprends pas j ai surtout du vba j ai 5 lignes dans chaque tableau...

Si ton fichier est si gros, c'est que la dernière cellule occupée est très loin vers la droite et le bas

Tu sais vérifier par CTRL-END (fin) et tu verras déjà la dernière cellule qui a été occupée et qu'excel garde en mémoire quelque part inutilement parfois ...

Ce n'est surement pas le VBA qui fait gonfler la taille, peut être des objets ou des graphiques

P.

Bonjour Patrick, bonjour à tous

en fait j'avais du formule qui allait jusqu'à la ligne 110 000 lol...

du coup je place le fichier en pièce jointe et je recopie mon texte

pour résumer la situation

j'ai un onglet qui donne un tableau croisé dynamique récapitulatif des alertes générées dans la journée (ALERTES EN COURS)

j'ai un second onglet qui donne un tableau croisé dynamique des alertes archivées dans la journée (ALERTES ARCHIVEES)

Par contre mon troisieme TCD doit etre le récapitulatif des 2 premiers mais cela ne fonctionne pas...je n'arrive pas à avoir la même mise en page (n'apparait pas les colonnes Alerte Jaune, Alerte Orange, Alerte Rouge) (NB ALERTES PAR JOUR)

merci d'avance

Bonjour,

tu as des chiffre en ligne 110000 à effacer dans 2 onglets et tu les verras par CTRL END

En attendant, pour nettoyer ton fichier voici une macro du maître LL.

P.

Sub NettoieEtDerniereCellule()     ' Laurent Longre 2000
Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String
On Error Resume Next
Calc = Application.Calculation
With Application
  .Calculation = xlCalculationManual
  .StatusBar = "Nettoyage en cours..."
  .EnableCancelKey = xlErrorHandler
  .ScreenUpdating = False
End With
For Each Sht In Worksheets
  If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
    Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
    If Not DCell Is Nothing Then
      Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear
      Set DCell = Nothing
      Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
      If Not DCell Is Nothing Then _
         Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear
    End If
    Rien = Sht.UsedRange.Address
  End If
Next Sht
Application.StatusBar = False
Application.Calculation = Calc
End Sub

Salut tout le monde

quel bonheur cette macro de nettoyage...merci bcp !!!!

j'espere que quelqu'un pourra m'aider pour le TCD car du coup je n'y arrive tjrs pas

merci