kan3pz
XLDnaute Occasionnel
Bonjour à tous,
je viens de me créer une macro pour récupérer l'entête de mes colonnes sur chaque ligne si l'on trouve la concaténation d'un code et de cette en-tête dans une base.
Le problème c'est que cette base est en réalité très lourde (300K lignes) du coup l'exécution de ma macro est vraiment très long, je pense qu'il serait possible de l'optimiser mais je ne vois pas comment...
Par formule c'est un simple RECHERCHEV...
Voici mon code et je vous joins un fichier :
Merci d'avance !
je viens de me créer une macro pour récupérer l'entête de mes colonnes sur chaque ligne si l'on trouve la concaténation d'un code et de cette en-tête dans une base.
Le problème c'est que cette base est en réalité très lourde (300K lignes) du coup l'exécution de ma macro est vraiment très long, je pense qu'il serait possible de l'optimiser mais je ne vois pas comment...
Par formule c'est un simple RECHERCHEV...
Voici mon code et je vous joins un fichier :
Code:
Sub Cherche()
Dim Classe As Range, Produit As Range
Worksheets("Feuil1").Activate
tablo = Range("A1:BT" & Range("A" & Rows.Count).End(xlUp).Row)
Set Produit = Worksheets("Base").Range("G:G")
For n = 2 To UBound(tablo, 1)
For m = 55 To UBound(tablo, 2)
Set Classe = Produit.Cells.Find(what:=Cells(n, 1) & "_A_" & Cells(1, m), LookAt:=xlWhole)
If Not Classe Is Nothing Then
Cells(n, m) = Cells(1, m)
End If
Next
Next
End Sub
Merci d'avance !