Résultats de la recherche

super merci ça marche nickel !

Bonjour, J'ai fait une petite macro simple mais pas efficace en terme de temps de traitement. Si quelqu'un peut améliorer la macro car sur une feuille contenant peu de donnes ça va, mais j'ai un onglet de 90 colonne et 150 000 lignes. Et la, ça coince. Voici la macro Sub test () For i = 2000 To...

je relance le sujet, si quelqu'un peut m'aider

bonjour je n'ai pas eu la possibilité de revenir vers vous auparavant et je m'en excuse Klin89 ça marche nickel un grand merci à toi mais pourrait tu y faire une petite modif stp si je n'ai pas de date correspondante que ça puisse ventiler les donnés quand même

Re sousou quand je fait le test sur la feuille CPP ça me modifie les date et numéro déjà présent et ça me remplace les intitulés de colonne par des données

bonjour a tous, je vous remercie de l'attention que vous portez a mon problème. Étant a l’étrange je n'ai pas pu répondre au différentes questions plus tôt. Sousou j'ai testé ta macro ce n'est pas tout a fait ça. en fait ce que je souhaite (comme la bien résumé Klin89) c'est ventiler les...

j'ai fait des recherches sur les différents forum mais rien répondant a ma demande (le plus souvent selon qu’une condition et ou entre 2 onglets) je ne suis pas assez calé en vba pour adapter les macro (j'arrive a faire que des chose très très simple) Si quelqu'un peut m'aider (traiter ça...

Bonjour a tous j'ai un classeur dans lequel j'ai 8 onglet: SP1 SP2 SP3 SP4 SP5 CCP pour chaque onglet SP j'ai une colonne DATE (A) , une colonne NUMERO (B) et des données de la colonne POSITION1 à POSITION 143 (C:EO) Pour l'onglet CPP j'ai une colonne DATE (C) , une colonne NUMERO (B) et...

pierrejean ?

j'ai essayé de comprendre comment tu as procédé et j'ai réussit a faire ça Sub report() tablo = Sheets("Feuil1").Range("A2:E" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row) Set dico = CreateObject("Scripting.dictionary") For n = LBound(tablo, 1) To UBound(tablo, 1) x =...

est ce que tu as besoin de plus d’explication ? si besoin je refait les classeurs exemple n’hésite pas

j'ai essayé un truc Sub TEST() Set mondico = CreateObject("Scripting.Dictionary") tb1 = Sheets("Feuil1").Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row) tb2 = Sheets("Feuil2").Range("A2:C" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row) For n = LBound(tb1, 1) To UBound(tb1, 1)...

voila les deux classeurs

pas de souci désolé je t'ai fait deux classeur excel exemple pour les 2 demandes

c'est presque ça ;-) en gros sur une première macro les somme que tu reporte en feuille 2 il faudrait quelle soit en feuille 1 sur la feuille 2 j'ai une liste de date en colonne A l'idée serait qu'avec une macro indépendamment du calcule de somme je puisse copier les données que j'ai en...

un gros merci a toi pierrejean ça marche nickel j'aurai une toute dernière demande dans le même principe mais a la différence je voudrais faire la somme des valeurs au lieux de de compter les valeurs et sur une autre macro pour chaque date en colonne I de la feuille 1 je souhaiterai copier et...

voilà le fichier

RE j'ai testé ta macro pierrejean mais j'ai que des 0 en résultat

en fait les cellule en jaune n'apparaissent pas si la valeur est 0 seul les cellules ou pour la date la valeur est supérieur a zéro apparaissent en résultat dans les colonnes D et E

super merci ça marche parfaitement juste un tout dernier point est ce que pour les dates ou il n'y a rien en B peuvent apparaître avec 0 en valeur en D et E