Résultats de la recherche

Re : Scripting.Dictionary : plante car trop de donnees Re, Effectivement dans votre cas cela fonctionne, mais adaptee a 25.000 lignes qui une fois les doublons supprimes ne font plus que 18000, avec parfois des des concatenations superieurs a 50. Por cette raison, la memoire doit saturer...

Re : Scripting.Dictionary : plante car trop de donnees Bonjour a tous, En fait j'ai trouve une solution detournee car la proposition si dessus ne fonctionne pas non plus :/. Voici le code: Sub ListeSansDoublons() Dim mondico, c, a Set mondico =...

Re : Scripting.Dictionary : plante car trop de donnees Salut, Ca plante ici: [D2].Resize(a, 1) = Application.Transpose(mondico.items) En fait cela fonctionne pour 700 lignes qui peuvent se resumer sans doublons a 500 lignes mais avec les infos des 200 lignes supprimees ajoutees a la...

Bonjour a tous, Maintenant que je maitrise un peu mieux le scripting.dictionary, je suis confronte a une erreur inattendue :/ En effet, la macro me supprime bien les doublons de ma liste, mais elle ne me renvoit pas la concatenation des items. Je donne un exemple pour etre plus clair...

Re : Aide sur Scripting.Dictionary Paf, Laetitia90, Merci pour votre aide. Je ne voulais pas identifier les doublons, mais je voulais juste importer une information de la feuille 2 sur la feuille 1. Le code etait un exemple. Voici pour info un code que j'ai trouve sur internet et que...

Re : Aide sur Scripting.Dictionary Salut Paf, Merci pour votre solution, mais j'ai l'intime coinviction que mon dictionnaire se base sur la meme feuille. En fait (dans mon vrai classeur) je dois comparer une liste de "TAG" (references uniques) dans une autre liste pour: - savoir si il...

Bonjour a tous, (excusez moi pour les accents je suis sur QWERTY). Je souhaite comparer deux listes de references uniques entre deux tableaux pour verifier si la reference existe deja et si oui, inserer la donnee qui correspond. J'ai pu voir sur internet que la fonction...

Bonjour a tous, (desole pour les accents je travaille sur QWERTY) Grace a ce forum j'ai pu m'ameliorer dans la creation de macro et je vous en remercie. Toutefois, je bloque actuellement sur la creation d'une macro qui me permettrait d'importer plusieurs classeurs excel (qui sont tous...

Re : Macro pour faire pourcentage de cellules jaunes/remplies Re, J'ai finalement trouve une solution a mon probleme : Sub test() Dim i&, dl&, a&, x&, dc& With Sheet1 dl = Sheet1.Range("A65489").End(xlUp).Row dc = Sheet1.Range("A3").End(xlToRight).Column...

Re : Macro pour faire pourcentage de cellules jaunes/remplies Bonjour, Une autre macro va chercher dans une feuille registre (que je n'ai pas mis pour eviter d'allourdir le fichier exemple) les cellules qui doivent etre jaune. Cette macro que j'ai mis au dessus se declanche apres que toutes...

Bonjour a tous, Veuillez m'excuser pour les accent, j'utilise un QWERTY. J'ai un fichier, ou je souhaite faire un pourcentage (par ligne) du nombre de cellules Jaunes qui sont remplie. J'ai une fonction qui me calcule le nombre de cellules jaunes dans la ligne, et je fais un counta pour...

Re : Macro avec utilisation du .Find pour afficher resultats en commentaire Un grand merci a vous deux.

Re : Macro avec utilisation du .Find pour afficher resultats en commentaire Bonjour Pierrejean, Je ne comprends pas pourquoi mais la methode .Find me cherche tout ce qui contient la recherche de "Donnees(0)". Exemple: si j'ai AAH-159012 et que Donnees(0) = AAH, alors il me sort en resultat...

Re : Macro avec utilisation du .Find pour afficher resultats en commentaire Pierrejean, Encore une fois votre solution est parfaite. Un grand merci a vous. Cordialement, Delux

Bonjour a tous, Je viens encore une fois reclamer votre aide, mes connaissances en VBA ayant leur limite :o. Je souhaite, par la methode du .Find, obtenir les resultats de la recherche dans un commentaire. En fait, si ma condition d'analyse de la cellule est fausse, alors je veux faire...

Re : Macro pour importer contenu cellules d'une feuille dans bonnes colonnes Un tres grand merci pour votre aide. Je ne connaissais pas cette solution. Elle fonctionne a merveille :) Encore merci

Bonjour a tous, Cela fait un moment que je cherche une solution pour importer les informations de la Feuille1 (Imported DST) vers les bonnes colonnes de la Feuille2 (TAG Codes). Il faudrait que si: 1. Sheet2.Range("D" & ligne.Row) = Sheet1.Range("A1") 2. Pour chaque "FUNCTIONAL_CLASS"...

Re : Macro pour MAJ des donnees sur une autre feuille Pierrejean, Merci pour votre aide, cela fonctionne a merveille ;)

Bonjour a tous, Veuillez m'excuser pour les accents je travaille sur QWERTY. J'ai une petite question, Je souhaiterais remplacer les donnees de la feuille "Register" par celles en vert dans la feuille "Update". Dans la feuille "Register" j'ai toutes mes donnees enregistrees. Sur la...

Re : VBA - Nom de feuille pour VLOOKUP variable Oups, J'ai trouve le probleme qui n'en etait pas un ^^. Il fallait juste finir la formule Sheet18.Cells(Cel.Row, Cel.Column).Formula = "=IF(AND(VLOOKUP(A" & Cel.Row & _ ", 'IMPORT SHEET'!$A$4:$AZ$" & dl & ", " & Cel.Column &...