EQUIV INDEX en VBA pour gagner du temps - enjeu: 10 mn de calculs

Version imprimable

Bonjour
Je dois remonter pour chaque ligne d'un article remonter dans une cellule les titres des colonnes cochées "O" pour cet article et les séparer avec un ";" pour l'export après.
Mes produits vont de la ligne i = 8 à la ligne DL.
Les catégories sont dans les colonnes 133 à 144 et les intitulés sont donc dans la ligne 6.
Je suis obligé de faire ça et ne peut pas mettre le nom en direct dans la formule car c'est du cyrillique.
Mon résultat, une chaine de caractère séparé par un ";" se trouve donc en colonne 28. Bien sur elle ne doit pas se terminer par ";"

Aujourd'hui j'ai écrit ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 For i = 8 To DL For j = 133 To 144 If Cells(i, j) = "O" Then Cells(i, 28) = Cells(6, j) & ";" & Cells(i, 28) 'Ru Else End If Next j ' la suite des caractéristiques est créé à ce stade, il faut juste équeuter le dernier caractère* L = Len(Cells(i, 28)) If L <> 0 Then D = L - 1 Cells(i, 28) = Left(Cells(i, 28), D) End If Next i
*Je suis obligé de supprimer le dernier caractère sinon je vais me trouver, dans la cas d'une seule caractéristique, avec un truc du genre "BIO;" et le programme derrière va planter car il va attendre la caractéristique suivante.

Ça marche bien, d'autant que j'ai trois langues étrangères à traiter comme ça MAIS, avec mon i5 4750 et Excel 2013, les 3000 lignes de mes produits me prennent 10 minutes mesurées chrono.
Je m'ennuie ..

Aussi je voudrais savoir si avec EQUIV/INDEX que je maitrise à peine en temps normal, je peux gagner du temps sur la boucle ?
qu'en pensez vous ?

Ton code un peu simplifié :

Code:

1
2
3
4
5
For i = 8 To DL
        For j = 133 To 144
            If Cells(i, j) = "O" Then Cells(i, 28) = Cells(6, j) & IIf(Cells(i, 28) = ""; ""; ";" & Cells(i, 28))
       Next j
Next i

06/10/2019, 18h39
laurent_ott

Bonjour.
Si tu dois traiter de grandes listes, tu peux utiliser RechercheW, voir le lien sur le tome 6 dans ma signature, chapître 3.
Ça permet dans certains cas d'aller 100 fois plus vite.
Le code source est en pièce jointe de la documentation.
Cordialement.

Bonjour,

Pour gagner en rapidité, passes par des tableaux :

Code:

1
2
3
4
5
6
7
8
9
10
11
  t = ActiveSheet.Range("EC6:EN6").Value                 'titres
  d = ActiveSheet.Range("EC8:EN8").Resize(DL - 7).Value  'données
  r = ActiveSheet.Range("AB8").Resize(DL - 7).Value      'résultat
  For i = LBound(d) To UBound(d)
    For j = LBound(d, 2) To UBound(d, 2)
      If d(i, j) = "O" Then
        r(i, 1) = t(1, j) & IIf(r(i, 1) = "", "", ";" & r(i, 1))
      End If
    Next j
  Next i
  ActiveSheet.Range("AB8").Resize(DL - 7).Value = r