Contenu récent par Nonomix

Je te dis un énorme merci, c'est exactement là qu'il manquait. Mon tableau final est terminer en attendant la prochaine mise à jour lol. Sans ton aide j'y serai pas arrivé alors MERCI.

Oui, moi dans mon tableau final le code pour le tri est dans le module 1, j'ai donc inséré Public FeuilDeRetour As String au début, puis mon code tri mais j'ai l'erreur "L'élément portant ce nom est introuvable" sur le code "Sheets(FeuilDeRetour).Select"

En fait non, j'ai l'erreur "L'élément portant ce nom est introuvable" sur le code "Sheets(FeuilDeRetour).Select"

Oui mais chez moi la nouvelle feuille se nomme "FEUILLE TYPE A COPIER (2)".

...Et une grosse peur de replanter encore une fois le système.

Oui mais je doit dire que j'arrive plus à me concentrer avec les enfants...

Justement le nom de la feuille change à chaque formulaire.

Oui j'ai eu aussi des beug de mon coté, j'ai remis les codes à l'identique et je n'ai plus de beug (pourvu que cela dure). J'ai modifier la date (c'est celle rentrer dans le formulaire) En fin de macro je suis sur une autre feuille que la nouvelle, comment je peut faire ?

Voici mon tableau, Je comprend pas pourquoi le tri ce place vers les A 70 A80. Cela fait des heures que je cherche en vain.

Je cherche, J'ai essayer de remplacer : SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal Par : SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal pour le moment c'est en vain !!!

Il me manque juste le code pour trier en ordre décroissant

Bonjour, Le tri fonctionne bien mais j'ai légèrement modifier mon tableau, j'ai ajouté les date de début sur la colonne d'a côté (la date de début à A est toujours à côté de A) car je souhaite trier de la date la plus récente à la date la plus ancienne.

C'est bon j'avais oublier la macro du tri. Je vais me reposer et reprendrais un peu plus tard.

J'avais juste : Sheets("Recap").Range("R" & DerLig + 5) = TextBox4.Value Visiblement il y a juste a rajouter tri en dessous du code DerLig = Application.WorksheetFunction.CountA(Sheets("RECAP").Range("R5:R500")) Sheets("RECAP").Range("R" & DerLig + 5) = TextBox4.Value mais j'ai une...

Merci, mon code était incomplet, J'ai encore une question, je sais encore une de plus mais je souhaiterais que la liste en R (qui est un tableau) soit trier en fin de macro ?