Contenu récent par job75

Bonsoir Alain30, le forum, Voyez le fichier joint, les macros des 4 boutons sont dans Module1. Dans les 2 étiquettes j'ai supprimé le mot "Espèce" pour gagner de la place. A+

Bonjour treza88, le forum, En effet on ne peut pas utiliser Union sur des feuilles différentes. Concaténer quoi et comment ? Il faudrait expliquer avec un fichier. A+

Bonjour Ines99, le forum, Vous avez parlé d'un classement des soldes pour cela il suffit de trier le tableau des résultats sur la 3ème colonne : dest.Resize(h + 1, UBound(colsource) + 1).Sort dest(1, 3), xlDescending, Header:=xlYes 'tri décroissant sur les soldes A+

Bon je pense avoir trouvé le bon critère pour récupérer les numéros de comptes. En colonne A de la feuille source leurs caractères sont non gras alors que sur les autres lignes ils sont gras. Dans Module1 j'ai donc créé cette fonction VBA : Function Gras_Vide(c As Range) As Variant If...

Comme je l'ai dit c'est à vous de faire en sorte que les lignes situées sous le 1er "Total" soient repérables. Revenez avec des données cohérentes. Est-ce que les numéros de compte commenceront toujours par "K" ?

Bonsoir guy72, C'est donc clair : 84% du poids du fichier viennent de la feuille "Webcams" avec les images. S'il y a beaucoup d'images cela explique le poids du fichier. C'est sûrement cette feuille qui ralentit le fichier, si la webcam est utilisée c'est habituel. A+

J'en suis heureux mais je dois faire une remarque. Dans ma solution aucune donnée située sous la 1ère ligne "Total" n'est copiée. Si vous voulez cependant les copier il faudrait qu'elles soient cohérentes donc standardisées de manière qu'on puisse les reconnaître.

Rien de compliqué, dans la macro du fichier joint : - j'ai modifié 2 colonnes du tableau colsource - et ajouté la fonction IFERROR (SIERREUR) dans les formules des pourcentages.

Bonjour le forum, Voyez le fichier joint et cette macro dans le code de la feuille "Nouvel_Export" : Private Sub Worksheet_Activate() Dim F As Worksheet, colsource, celdeb As Range, celfin As Range, dest As Range, titres, h&, col% '---données sources--- Set F = Sheets("ExportCEGID") Set celdeb...

Cela a de l'influence si les lignes ou colonnes supprimées contenaient des textes vides "". Bonne nuit.

Il faudrait arriver à savoir si la taille de ce fichier est normale ou pas. Sur des copies du fichier supprimez les feuilles une par une pour déterminer celles qui pèsent lourd. Et sur celles-ci déterminez la Dernière cellule par la touche F5, puis supprimez les lignes et colonnes situées...

Qu'arrive-t-il à vos lunettes ? PAMETRAGE!B20 ne contient pas le texte "OUI" mais la valeur logique VRAI (True en VBA), utilisez donc : If Worksheets("PARAMETRAGE").Range("B20") Then

Si le classeur contient beaucoup de formules volatiles (cherchez ce mot) la modification du contenu d'une seule cellule peut prendre du temps.

Bonsoir guy72, Lionel, En effet plus un classeur Excel est gros plus certaines opérations prennent du temps. Par exemple l'ajout ou la suppression de lignes au début d'un grand tableau. A+

Pour terminer juste une remarque sur la solution de sylvanu du post #10 : sur 120 000 lignes elle s'exécute en 21 secondes chez moi. Il vaut mieux utiliser celle-ci qui s'exécute en 7 secondes : d = Range("B" & Rows.Count).End(xlUp).Row On Error Resume Next 'si aucune cellule vide Range("A1:A"...