Chris57
XLDnaute Occasionnel
Bonjour à tous,
Au boulot, dans un tableau d'environ 9000 lignes nous cochons certaines de ces lignes (un simple x dans la cellule voisine) puis par macro les lignes cochées sont copiées dans une autre feuille.
Puis cette autre feuille est copiée dans un classeur vierge puis sauvegardée.
Maintenant nous aimerions faire le chemin inverse :
à partir de la liste sauvegardée nous voudrions recocher les bonnes cases dans le tableau initial.
J'ai donc écrit ceci :
Mais c'est extrèmement long !! Même en partant d'une liste sauvegardée de 16 lignes, il lui faut 5 minutes pour recocher les lignes correspondantes dans le grand tableau...
Y a t'il moyen d'accélérer ça ?
Au boulot, dans un tableau d'environ 9000 lignes nous cochons certaines de ces lignes (un simple x dans la cellule voisine) puis par macro les lignes cochées sont copiées dans une autre feuille.
Puis cette autre feuille est copiée dans un classeur vierge puis sauvegardée.
Maintenant nous aimerions faire le chemin inverse :
à partir de la liste sauvegardée nous voudrions recocher les bonnes cases dans le tableau initial.
J'ai donc écrit ceci :
Code:
For Each x In Sheets("Gamme A4").[E10:E700]
If x <> "" Then ORGANErecherche = x
For Each y In Sheets("LISTE DES ORGANES").[C5:C9000]
If x = y Then
y.Offset(0, -2) = "X"
End If
Next y
Next x
Mais c'est extrèmement long !! Même en partant d'une liste sauvegardée de 16 lignes, il lui faut 5 minutes pour recocher les lignes correspondantes dans le grand tableau...
Y a t'il moyen d'accélérer ça ?