VBA : reclassement

bof · 2 Décembre 2014

Bonjour,
Je possède un énorme fichier de plusieurs centaines de colonnes (gantt)
Les colonnes 1 et 2 sont des sortes d'index et sont nommées de manière dynamique (iDA et iDB)
Le fichier est supposé trié en permanence sur ces 2 colonnes.

Mon problème est de changer les index de la manière exposée dans le fichier joint.

Hum... Cerise sur le gâteau, compte tenu du temps de travail relativement important lié au Gantt, il est souhaité que l'incidence de ce traitement sur le temps de travail soit négligeable voir nulle... (Array ou/et Dictionnary requis.)

Merci
A+

bof · 2 Décembre 2014

Re : VBA : reclassement

Bonjour,
Je me répond à moi même :

Code:

Sub test()
Dim a,  aa%, i%, cpt%
Application.ScreenUpdating = False
aa = [iDA].Rows.Count
Set a = [iDA].Resize(aa, 2)
   For i = 1 To aa
      If a(i, 2) = 0 Then
         cpt = cpt + 1
      Else
         a(i, 2) = a(i - 1, 2) + 1
      End If
      a(i, 1) = cpt
   Next
End Sub

Merci quand même...
A+

VBA : reclassement

bof

XLDnaute Occasionnel

Pièces jointes

bof

XLDnaute Occasionnel

VBA : reclassement

bof

XLDnaute Occasionnel

Pièces jointes

bof

XLDnaute Occasionnel

Privacy & Transparency

Privacy & Transparency