Discussion :

[Cerize]

Hello hello !

D'abord merci à tous ceux qui animent le forum et qui alimentent cours et questions sur VBA & excel

Je rencontre un petit souci, je dispose d'un fichier avec de nombreuses lignes (>20000), dans ma macro je déploie une formule Excel que j'ai obtenue avec l'enregistreur de macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Détails").Range("S15").FormulaR1C1 = _
		"=IF(COUNTIF(Infos!R15C[-16]:R" & indiceLignesOnglet1 & "C[-16],LEFT(RC[-18],7)&""*"")=0,""X"","""")"
	Sheets("Détails").Range("S15").AutoFill Destination:=Range("S15:S"& indiceLignesDetails), Type:=xlFillDefault

Puis je ne souhaite pas garder ces formules, en effet ça ralenti considérablement mon pc quand je fais des filtres (normal), du coup un peu plus loin dans mon code je met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Détails").Range("S15:S" & indiceLignesOnglet1) = Sheets("Détails").Range("S15:S" & indiceLignesOnglet1).value

Seulement voila les calculs ne sont pas encore terminés et du coup les valeurs sont erronées...

J'ai pensé au wait mais je trouve ça pas top, sachant que je ne sais pas à l'avance combien de temps va durer le calcul.

Voila, je ne sais pas si vous avez saisi mon problème, si vous avez besoin de plus de détails, dites moi! Merci d'avance pour votre aide précieuse

[Invité]

Bonjour

Essayes d'utiliser l'instruction DoEvents entre les 2 parties de codes.

Philippe

[Cerize]

Ok, merci Philippe pour ta réponse, je vais tester ça et je te confirme si ça fonctionne.

Sinon petite aparté, (j'ai vu que tu étais dev VBA, donc j'en profite pour te demander des conseils ), lorsque l'on a des gros fichiers Excel avec de nombreuses lignes, n'est il pas plus rapide de passer nos fichiers Excel dans Access afin de les recoupé et de recuperer les infos dont on a besoin plutot que de recuperer les fichiers dans Excel et de faire des macro pour les traiter ? (en général puisque j'imagine que cela dépend des cas) Des conseils la dessus ? Peut etre des lectures à me conseiller?

Merci en tout cas

[comme de bien entendu]

Bonjour,
Si tu veux extraire des infos de ton fichier, tu peux toujours faire du SQL.
J'ai un bout de code pour ODBC sans ADO, avec QueryTable, (il faut
générer le fichier FILEDSN avec openquery)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
repertoire = ThisWorkbook.Path & "\" & ThisWorkbook.Name
sqlstring = "select * from [" & MaFeuille & "$" & "A4:AN1800" & "];"
connstring = "ODBC;FILEDSN=D:\RH\masource.dsn;Database=repertoire"
With sh.QueryTables.Add(Connection:=connstring, _
     Destination:=sh.Range("AZ1"), Sql:=sqlstring)
    .Refresh
End With

Ca peut être rapide mais dés que ca se complique, il vaut mieux faire avec ADO.

[Cerize]

Ca à l'air de fonctionner, en fait je fais un Sheets("blabla").Range("MonRange).Calculate (car j'ai mis le calcul en mode manuel pour optimiser)
puis je fais un DoEvents, et ça à l'air de fonctionner, je dis bien ça à l'air parce que j'arrive plus à reproduire le cas ou les résultats sont erronés
En tout cas merci à vous