XL 2016 Plantage au niveau Excel 2016

[yaraar]

Bonjour;

y'a t'il une astuce pour éviter le plantage réplétif sur mon Fichier excel , je travail sur un fichier excel avec plus de 100,000 lignes et 30 colonnes.

 

[job75]

Bonjour yaraar, le forum,

Fichier (2) avec ce code plus simple pour le tableau des résultats :

'---tableau des résultats---
tablo = dest.Resize(d.Count, ncol)
a = d.keys
For i = 1 To UBound(tablo)
    tablo(i, 1) = a(i - 1)
    For j = 2 To ncol
        tablo(i, j) = dd(tablo(i, 1) & titre(2, j) & titre(1, j) & dat)
Next j, i

J'ai aussi modifié la couleur en colonne G (.Color au lieu de .ColorIndex).

A+

 

[yaraar]

Bonjour job 75;

j'ai ajouté une colonne au nom de ''cell'' que dois je modifier dans le code source pour que le tableau soit rempli

merci

 

[job75]

Bonsoir yaraar,

Ce que vous voulez mettre en colonne H est bien trop compliqué.

Contentez-vous de cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H1]) Is Nothing Then Exit Sub
Dim dat, dest As Range, d As Object, dd As Object, tablo, i&, x$, titre, ncol%, j%, a
dat = [H1]
Set dest = [H4] '1ère cellule de destination
'---tableau source---
Set d = CreateObject("Scripting.Dictionary")
Set dd = CreateObject("Scripting.Dictionary")
tablo = [Tableau2] 'tableau structuré
For i = 1 To UBound(tablo)
    x = tablo(i, 2) & " ; " & tablo(i, 3)
    d(x) = ""
    x = x & tablo(i, 5) & tablo(i, 4) & tablo(i, 1)
    If Not dd.exists(x) Then dd(x) = tablo(i, 6)
Next i
If d.Count = 0 Then GoTo 1
'---tableau des titres---
titre = [H2:AF3] 'à adapter
ncol = UBound(titre, 2)
For j = 2 To ncol
    If titre(1, j) = "" Then titre(1, j) = titre(1, j - 1) 'remplit les cellules vides
Next j
'---tableau des résultats---
tablo = dest.Resize(d.Count, ncol)
a = d.keys
For i = 1 To UBound(tablo)
    tablo(i, 1) = a(i - 1)
    For j = 2 To ncol
        tablo(i, j) = dd(tablo(i, 1) & titre(2, j) & titre(1, j) & dat)
Next j, i
'---restitution---
With dest.Resize(d.Count, ncol)
    .Value = tablo
    .Borders.Weight = xlThin
    .Columns(1).Interior.Color = 16772300 'bleu
End With
'---RAZ en dessous---
1 dest.Offset(d.Count).Resize(Rows.Count - d.Count - dest.Row + 1, ncol).Delete xlUp
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

A+

 

[job75]

Bonjour yaraar,

Je viens de corriger la macro précédente.

A+

 

[yaraar]

Merci job 75

au fait lorsque j'ai changer la date j'ai reçu ce message d'erreur

 

[job75]

Il faudrait joindre votre fichier.

 

[job75]

A mon avis l'erreur vient du fait que vous avez créé une nouvelle feuille avec un nouveau tableau structuré dont le nom n'est pas Tableau2.

Tableau2 est alors l'ancien tableau avec 5 colonnes alors qu'il en faut 6.

Si c'est bien cela il suffit dans la macro de mettre le nom du nouveau tableau à la place de Tableau2.

 

[yaraar]

Job 75

ça fonctionne mais la mise en page a été changé , est ce qu'il ya une autre methode pour calculer les enodeB comme le cas de la deuxieme photo en mettant la colonne des enodeB et les Cell fixe ( au lieu de mettre des formules )

 

[job75]

Puisque ça fonctionne vous pourriez au moins nous confirmer la raison du bug

Et j'ai dit au post #18 que ce que vous voulez mettre en colonne H est bien trop compliqué

 

[yaraar]

Oui t'as raison job75,au fait j'ai selectionner le tableau et je l'ai nommé Tableau3 comme tu m'as expliqué dans le code