Fichier très long à charger [EXCEL]

Bas Sujet précédent Sujet suivant S'enregistrer pour participer

(1) 2 »

jad73

Fichier très long à charger

Invité

Bonjour le forum
J'ai un fichier qui est très long à charger(8a9mn).J'utilise cette formule qui est présente dans 3900000 cellules, certainement la le problème.

=SOMME(SI(ESTERREUR(EQUIV(A$2:E$2;Feuil1!$C2:$V2;0));0;1))

y-aurait-il une autre solution
je joint un bout de fichier.
merci

Date de publication : 14/01/2018 17:21

eric45

Re : Fichier très long à charger

Invité

Bonjour à toutes et tous
Bonjour jad73

Pourrais tu mettre le "bout" de fichier ?

Eric

Date de publication : 15/01/2018 13:12

Information

Bienvenue sur le forum VeriTi,

Une équipe de bénévoles se tient à votre disposition pour vous venir en aide. N'hésitez pas à poser votre question en rapport avec Excel sur le forum Excel, et une question générale en rapport avec le site sur le forum VeriTi

Bonne programmation

Equipe VeriTi ;-)

jad73

Re : Fichier très long à charger

Invité

Bonjour eric45, le forum

excuse pour cet oubli mais j'ai un message
"erreur durant le telechargement...Rejet d'un type de fichier inconnu"
pourtant c'est un fichier excel.xlsx de 12 ko, de quoi cela vient-il
merci

Date de publication : 15/01/2018 17:50

eric45

Re : Fichier très long à charger

Invité

Bonsoir

Fais une tentative en le transformant en xls

Eric

Date de publication : 15/01/2018 20:43

jad73

Re : Fichier très long à charger

Invité

re
ok
merci

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 15/01/2018 22:01

eric45

Re : Fichier très long à charger

Invité

Bonjour à tous
Bonjour jad73

Tout d'abord, es-tu sur excel 2003 ?

J'ai testé pour 430000 cellules avec des formules, j'arrive à un fichier de plus de 72Mo. Le tien fait combien avec les 4000000 annoncées ?

J'ai testé avec juste des nombres sur plus de 5000000 cellules, le fichier fait 41Mo (quand même) mais s'ouvre pratiquement immédiatement.

Je te propose la solution suivnate : tu supprimes toutes les formules et tu remplaces par du VBA.

A te lire
Eric

Date de publication : 16/01/2018 13:31

jad73

Re : Fichier très long à charger

Invité

Bonjour eric, le forum
Merci pour ta réponse.
Je suis sous excel2010
Mon fichier fait 108Mo
ma feuil1 a 13400 tirages
Feuil2 a 5360000 cellules avec les formules
Feuil3 a 100 000 combinaisons que j'envoie par paquet de 400 avec une macro en feuil2.
Quand au vba je ne suis pas doué pour ça.
Je lis des cours sur internet mais trés compliqué pour moi, je suis plutot un manuel.
Merci pour ton aide.
a+

Date de publication : 16/01/2018 16:55

eric45

Re : Fichier très long à charger

Invité

Bonsoir

Pour commencer, un peu d'aide.
Pour la cellule "T2" :


Sub test_ligne_01() Dim i As Integer 

For i = 1 To 5 

If IsNumeric(Application.HLookup(Cells(2, i), Feuil1.Range("C2:V2"), 1, False)) Then valeur = valeur + 1 

Next i 

MsgBox valeur

End Sub

si j'ai bien compris

A toi de jouer.
Dis nous
Eric

Date de publication : 16/01/2018 18:31

eric45

Re : Fichier très long à charger

Invité

Bonsoir

Tu me parles de 5360000 cellules avec formules sur la feuille 2, se sont lesquelles ?
Colonnes L à R ? : jusqu'à quelle ligne ?
Colonnes T à AB ? : jusqu'à quelle ligne ?
Y en a t il dans d'autres colonnes ?

Pour les autres feuilles, on verra plus tard.

Avec le code que je t'ai mis, essaie de continuer pour les colonnes U à AB.

Perso, je continue, mais donne moi un peu plus de billes pour que je puisse t'aider.

A te lire
Eric

Date de publication : 17/01/2018 17:51

jad73

Re : Fichier très long à charger

#10

Invité

Bonjour eric
Les formules sont en colonnes de T à PC et en ligne 2 à ligne 13367(Nbre de tirages feuil1).
La colonne T pour la combinaison A2:E2
la colonne U pour la combinaison A3:E3
et ainsi de suite.
En colonne M-R il n'y a rien
en colonne L2:L401 il y a la formule qui totalise le nombre de 5 et + qu'il y a dans chaque colonne(T-U-V..)
Donc A2:E401 les combinaisons a analyser
En T2:PC13367 les formules.
Pour le code que tu as mis il est a mettre dans une macro je pense


If IsNumeric(Application.HLookup(Cells(2, i), Feuil1.Range("C2:V2"), 1, False)) Then valeur = valeur + 1

j'ai le message "erreur de compilation. valeur non définie"
merci
a+

Date de publication : 17/01/2018 18:46

eric45

Re : Fichier très long à charger

#11

Invité

Bonsoir

Pas trop le temps ce soir, mais je regarderai ton post plus en détail demain (?)
Pour la ligne de code, il faut tout mettre, pas seulement ce que tu as recopié, je t'expliquerai la prochaine fois.
Dsl, je pars

Bonne soirée
A te lire
Eric

Date de publication : 17/01/2018 19:21

jad73

Re : Fichier très long à charger

#12

Invité

re
excuse j'ai mal précisé
J'ai tout mis ton code dans la macro,
la ligne que j'ai mis dans le poste c'est là ou j'ai le message d'erreur. valeur est en bleu
a+

Date de publication : 17/01/2018 22:59

eric45

Re : Fichier très long à charger

#13

Invité

Bonjour

Juste pour que tu puisses continuer aujourd'hui, "valeur" non définie => ajouter en tête de la sub "Dim valeur As Integer" :


Sub test_ligne_01() 

Dim i As Integer 

Dim valeur as Integer

For i = 1 To 5  

 If IsNumeric(Application.HLookup(Cells(2, i), Feuil1.Range("C2:V2"), 1, False)) Then valeur = valeur + 1  

Next i  

MsgBox valeur 

End Sub

Bonne journée
Eric

Date de publication : 18/01/2018 08:30

eric45

Re : Fichier très long à charger

#14

Invité

Bonjour à tous
Bonjour

Je suppose que, quand tu remplis les cellules A2 à E2, les "formules" en cellule "Tx" se calculent, et ainsi de suite : A3:E3 >Ux, .....
Donc, dès que tu seras sur la cellule F2, la macro se déclanchera et remplira les cellules T2 à T13367.
Si tu modifies 1 cellule entre Ax:Ex, il te faudra sélectionner la cellule Fx correspondante.

A mettre dans un module :


Option Explicit 

Public sh1 As Worksheet 

Public sh2 As Worksheet 

Public sh3 As Worksheet 

Sub tirage_001() 

Dim i As Integer, j As Integer 

Dim a As Long ' colonnes de T à PC 

Dim b As Integer ' ligne/A-E Dim valeur As Integer 

Set sh1 = Worksheets("Feuil1") 

Set sh2 = Worksheets("Feuil2") 'a = 20 a = 18 + ActiveCell.Row 

b = ActiveCell.Row 

For j = 2 To 15 ' 13367 à saisir a la place de 15 

For i = 1 To 5 

If IsNumeric(Application.HLookup(sh2.Cells(b, i), sh1.Range("C" & j & ":V" & j), 1, False)) Then valeur = valeur + 1 

Next i 

sh2.Cells(j, a) = valeur 

valeur = 0 

Next j 

End Sub

A mettre dans ThisWorkbook


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 

If ActiveCell.Column = 6 And Application.WorksheetFunction.CountA(Range("A" & ActiveCell.Row & ":E" & ActiveCell.Row)) = 5 Then 

tirage_001 

End If 

End Sub

Bons tests
A te lire
Frédéric

Date de publication : 22/01/2018 14:43

jad73

Re : Fichier très long à charger

#15

Invité

Bonjour eric45
Je ne suis pas sur de tout comprendre.
J'ai erreur 1004
je joints le fichier pour que tu puisse voir si sait cela qu'il fallait faire
merci
a+

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 26/01/2018 22:10

Accueil » Rubrique EXCEL » EXCEL » Fichier très long à charger

Haut Sujet précédent Sujet suivant

(1) 2 »

S'enregistrer pour participer

Vous pouvez consulter les sujets.

Vous ne pouvez pas débuter un nouveau sujet.

Vous ne pouvez pas répondre aux messages.

Vous ne pouvez pas modifier vos messages.

Vous ne pouvez pas supprimer vos messages.

Vous ne pouvez pas créer des sondages.

Vous ne pouvez pas participer aux sondages.

Vous ne pouvez pas joindre des fichiers à vos messages.

Vous ne pouvez pas publier vos messages sans approbation.

Vous ne pouvez pas utiliser ce type de sujet.

Vous ne pouvez pas utiliser le HTML.

Vous ne pouvez pas utiliser une signature dans vos messages.

veriti site des amis d'excel

EXCEL ANNEE 2017

Bienvenue

Musee

Hommage

Historique

veriti site des amis d'excel

EXCEL ANNEE 2017

Bienvenue

Musee

Hommage

Historique

Membre