annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement

(1) 2 »


Fichier très long à charger
#1
Invité


Informations sur l'utilisateur
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 17:21
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#2
Invité


Informations sur l'utilisateur
Bonjour à toutes et tous
Bonjour jad73

Pourrais tu mettre le "bout" de fichier ?

Eric

Date de publication : 15/01 13:12
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


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 ;-)


Haut


Re : Fichier très long à charger
#3
Invité


Informations sur l'utilisateur
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 17:50
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#4
Invité


Informations sur l'utilisateur
Bonsoir

Fais une tentative en le transformant en xls

Eric

Date de publication : 15/01 20:43
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#5
Invité


Informations sur l'utilisateur
re
ok
merci

Joindre un fichier:


Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 15/01 22:01
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#6
Invité


Informations sur l'utilisateur
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 13:31
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#7
Invité


Informations sur l'utilisateur
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 16:55
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#8
Invité


Informations sur l'utilisateur
Bonsoir

Pour commencer, un peu d'aide.
Pour la cellule "T2" :
Sub test_ligne_01() Dim i As Integer 
For 1 To 5 
If IsNumeric(Application.HLookup(Cells(2i), Feuil1.Range("C2:V2"), 1False)) Then valeur valeur 
Next i 
MsgBox valeur
End Sub

si j'ai bien compris

A toi de jouer.
Dis nous
Eric

Date de publication : 16/01 18:31
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#9
Invité


Informations sur l'utilisateur
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 17:51
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#10
Invité


Informations sur l'utilisateur
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(2i), Feuil1.Range("C2:V2"), 1False)) Then valeur valeur 1

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

Date de publication : 17/01 18:46
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#11
Invité


Informations sur l'utilisateur
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 19:21
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#12
Invité


Informations sur l'utilisateur
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 22:59
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#13
Invité


Informations sur l'utilisateur
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 1 To 5  
 
If IsNumeric(Application.HLookup(Cells(2i), Feuil1.Range("C2:V2"), 1False)) Then valeur valeur 1  
Next i  
MsgBox valeur 
End Sub

Bonne journée
Eric

Date de publication : 18/01 08:30
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#14
Invité


Informations sur l'utilisateur
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 IntegerAs 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 1 To 5 
If IsNumeric(Application.HLookup(sh2.Cells(bi), sh1.Range("C" ":V" j), 1False)) Then valeur valeur 
Next i 
sh2
.Cells(ja) = valeur 
valeur 

Next j 
End Sub


A mettre dans ThisWorkbook
Private Sub Workbook_SheetSelectionChange(ByVal Sh As ObjectByVal Target As Range
If 
ActiveCell.Column 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 14:43
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Fichier très long à charger
#15
Invité


Informations sur l'utilisateur
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 22:10
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut







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.

[Recherche avancée]


Copyright 2013 Powered by XOOPS © 2001-2013