Contenu récent par Jeremy1

Voila j'ai intégré le code. Je passe de 15sec (j'avais tous mis dans des tableau dynamique mais pas utilisé dic) à 14sec d’exécution. Mais la différence se fera peut être quand il y aura beaucoup plus de données. En tout cas merci de m'avoir appris à utiliser la fonction dictionary qui me sera...

Merci pour votre réponse. Je suis en train d'adapter le code pour l'integrer au reste. Pour le code ci dessous est ce possible de choisir 4 colonnes spécifiques plutôt que tous le tableau? Dans mon classeur en exemple il y a que 4 colonnes que je cherche à récuperer mais dans mon cas il y en a...

Bonjour, Pour moi la methode tout convertir en texte poserait moins de probleme. Je cherche à convertir en texte les données que je place dans TabDonnées. Est ce possible de le faire en meme temps que le remplissage du tableau avec un Cstr? '-----Charge tabdonnées avec le portefeuille de...

D'accord je comprend mieux, c'est une autre façon de voir mon problème alors. Ce code fonctionne mais plante lorsqu'il y a un élément de la liste qui est vide ou qui n'est pas un nombre (For LD = 1 To UBound(TabRef, 1): Dic(CDbl(TabRef(LD, 1))) = Empty: Next LD). Comment faire pour supprimer...

Cela ne s'ajoute pas à la suite de la liste du "Dic" ou alors je n'ai rien compris à ce type.

J'ai fais ceci qui convertie en string les données que l'on va comparer par contre si j'ai compris le fonctionnement d'un dictionnaire sa ajoute les données les unes derrières les autres et la quelque chose cloche sur mon deuxième for... Dim TabRef(), TabImport(), TabDoublon()...

Je n'arrive pas à bien comprendre votre code ni à l'utiliser sur l'exemple... Dim TabRef(), TabImport(), TabDoublon(), TabPortofolio(), LD&, LI&, LP&, Dic As Dictionary [CODE=vb] Set Dic = New Dictionary TabRef = Sheets("Sheet1").Cells(FirstRwRéfVar...

Je me renseigne sur la fonction dictionary car je ne comprends pas le fonctionnement de votre code avec les for. On est obligé d'activer la dll scrrun.dll? Car cela va etre genant pour moi. La macro s'utilise sur plusieurs poste. Set MyDictionary = CreateObject("Scripting.Dictionary") Ceci...

Merci pour votre réponse. Je suis en train de modifier le code. Je coince sur le fait qu'une donnée est en nombre et l'autre en texte. Je cherche à mettre en texte pour la comparaison. peut-on le faire directement dans la ligne TabRef=RngDonn.Value? Dim RngDonn As Range Set...

Bonjour, Voici un exemple avec des données. le but et de comparer la "Col2" de "Sheet2" avec la "Col1" de "Sheet1". Si je trouve une correspondance je place les infos de la ligne de sheet 2 dans une tableau "Tabimport" que je recopie dans une nouvelle feuille sinon dans "Taddoublon" (la même...

J'ai passé ma comparaison du IF en tableau dynamique et cela à réglé le problème de RAM passant de 1300Mo à 80Mo. Je ne sais pas si votre solution était celle la mais pour l'instant cela fonctionne bien plus vite (16sec à la place de 5min). Votre solution m'interesse malgres tout si vous pensez...

Merci. Je regarde semaine prochaine votre code et l’utilisation de cette fonction que je ne connaissais pas.

Merci pour la réponse mais je ne suis pas sur de comprendre. Je dois modifier quoi une fois la case cochée ?

Bonjour, J'ai un soucis de RAM sur l'utilisation de ma macro. La partie de code bloquant est une boucle for dans une boucle for avec un if. Mon but est de savoir pour chaque valeur dans TabRef savoir si elle est présente dans une colonne du classeur ou pas. Ma boucle for Z permet de défiler...