Discussion :

[wouana19]

Bonjour,

Je cherche à optimiser mon code car le temps de traitement est trop lent.

Cas de figure :
- J'ai plus de 700 fichiers comportant des propriétés personnalisées
- dans un fichier (de statistique) je récupère ces différentes propriétés (avec la libraire DSOfile) dans un array
- J'applique l'array dans un tableau structuré (jusque là, la vitesse de traitement me convient, 35 secondes pour le 26'000 propriétés)
- Dans la première colonne se trouve le nom du fichier correspondant au fichier, je veux y ajouter un lien hypertexte, il y a environ 26'000 lignes. Et c'est là que j'ai un soucis, le temps de traitement de plus de 4 minutes

Mes lignes de commande sont :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
      Dim Chemin As String
      Dim cel As Range
      Chemin = "C:\TEST"
 
     Application.screenUpdating = False
      With Sheets("Import")
         For Each cel In .Range("TabImport4[Fichier avec lien]")
            If cel <> "" Then
               .Hyperlinks.Add anchor:=cel, Address:=Chemin & "\" & cel, TextToDisplay:=cel.Value2
            End If
         Next cel
      End With
      Application.screenUpdating = True

Je me demandais s'il n'y avait pas moyen d'améliorer tout ça :-)
Auriez-vous une idée comment procéder pour optimiser ce traitement ? Il y a t'il un autre moyen que de parcourir chaque cellule ?

Merci d'avance
Wouana

[mfoxy]

Bonjour,

Vu que vous utilisez un tableau structuré, +1, à fin d éviter de boucler sur chacune de cellule de tableau, il serait peut être plus simple d'ajouter une colonne hyperlink ?

Cette formule serait adaptée automatiquement à la taille de votre tableau.

https://support.office.com/en-us/art...7-7de9b76f577f

Bav,

MFoxy

[wouana19]

Bonjour mfoxy,

MERVEILLEUX !!!!

J'ai ajouté une colonne avec le liens correspondant au contenu de ma colonne contenant le nom de mon fichier.
Ma durée de traitement complète est passée de 4 minutes à 36 secondes. Magnifique ! surtout que mon fichier de stats doit se mettre à jour tous les jours.

Je n'avais jamais utilisé cette fonction =LIEN_HYPERTEXTE(chemin;nom) car je n'avais pas vu son utilité, mais pour le coup je vois bien sa puissance.

Encore merci
Belle fin de semaine