avec l’objet “Dictionary”.

[moteurV12]

Bonsoir à Toutes et Tous

Je souhaiterai remplacer le code suivant qui compare 2 colonnes lentement


Set rngA = Range(Cells(1, "BM"), Cells(Rows.Count, "BM").End(xlUp))
Set rngB = Range(Cells(1, "R"), Cells(Rows.Count, "R").End(xlUp))


For Each cell In rngA
titi = Range("AJ2").Value ' titi est un compteur
If Not IsError(Application.Match(cell.Value, rngB, 0)) Then
Cells(titi + 1, "F").Value = Cells(cell.Row, "BM").Value
End If
Next

Par un objet Dictionary plus rapide

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Il faut dire que le fichier est un xlsb de ... 17 Mo, la feuille en question est bourrée de matricielles et je ne peu pas mettre les calculs sur manual

 

[Dranreb]

Re : avec l’objet “Dictionary”.

Faite un modèle avec juste les feuilles concernées et quelques dizaines de lignes sans formule. Figez leurs valeurs.
Et aussi le code que vous avez essayé. Vraiment ce seul et unique CellsColLgnOù(…).ClearContents ne peut pas être lent.
Mais vous pouvez mettre avant Application.Calculation = xlCalculationManuel pour voir si ça va mieux.
Ça implique toujours le [A:E].Sort [a1], xlAscending, Header:=xlNo juste après et enfin Application.Calculation = xlCalculationAutomatic.

Si c'est lent, je suppose que c'est parce que vous avez essayé de l'exécuter dans une boucle, faute d'avoir compris qu'il faisait carrément toute la UsedRange d'un seul coup.

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Voilà un fichier test

Effectivement là c'est rapide, dans mon fichier non hélas.
par contre les lignes vides "pas ok" restent, hors le but est de ne plus avoir de lignes vides mais sans supprimer de ligne lol.

 

[Dranreb]

Re : avec l’objet “Dictionary”.

Le fichier n'est pas passé.

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Trop lourd, le voila chez free

Free - Envoyez vos documents

 

[Dranreb]

Re : avec l’objet “Dictionary”.

Non ben je n'arrive pas à le récupérer et je suis noyé de pub 😡
Réduisez le au strict minimum et joignez le ici.

 

[moteurV12]

Re : avec l’objet “Dictionary”.

faite un copie avant de cliquer.

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Bon il le refuse si plus de 230Ko

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Voilà, j'ai coupé à 20 000 entrées

 

[Dranreb]

Re : avec l’objet “Dictionary”.

Ça a l'air de marcher, non ?
En ajoutant le classement que vous avez fait, ça ne va pas ?
Notez que si vous voulez effacer tout jusqu'à DK il suffit de mettre:

CellsColLgnOù([A1:DK1], "DK", "=", "PAS OK").ClearContents

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Hélas je ne peu effacer les autres cellules que de A à E pour les remplacer par les bonnes.
En fait faudrait travailler dans un tableau qui réinjecterait les valeurs "A:E" sans lignes vides.

Je fais des test avec différentes solutions... mais pour l'instant.....

 

[Dranreb]

Re : avec l’objet “Dictionary”.

Et le classement ? Va pas ? Pourquoi ?
Les "OK"/"PAS OK" viennent d'une formule ?

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Cela provient d'une quarantaine de calculs matricielles

 

[Dranreb]

Re : avec l’objet “Dictionary”.

Et le classement ?
Et pourquoi ne pouvez vous pas supprimer les "PAS OK" ?
Si les colonnes F😀J contiennent d'autres tableaux tout à fait étrangers à A:E vous pourriez ne le faire que sur les colonnes A:E. Il me semble que ça aurait le même résultat, non ?

 

[moteurV12]

Re : avec l’objet “Dictionary”.

Oui tes fonctions sont bonnes, mais ne représentent pas la solution globale que je cherche à cause des lignes vides.
Pas grave, je continuerai après le dodo.

Je te remercie de ton aide et te souhaite une bonne nuit.
A++