Contenu récent par Olivierporcinet

Merci à tous, problème résolu. Bon week-end

Merci quand même pour ton aide.

Merci. Je sais que 365 feuilles c'est beaucoup mais je dois faire un planning journalier.... Donc, Set Ws1 = Worksheets("Lundi") ça va poser un problème. Peut-être "feuille active ?" Merci

Au départ, je devais renvoyer à la ligne si je voulais voir tout le contenu de mes cellules. Avec votre nouveau code, c'est nettement plus clair mais je serais grandement intéresser par pouvoir renvoyer à la ligne (question de présentation), merci.

Bonjour, un grand merci. Petite question, si je fais un "renvoyer à la ligne automatiquement", cela est possible que la hauteur des lignes s'agrandissent ? je dois travailler avec plusieurs feuilles de nom différent (365 pour être précis !) Ne va-t-il pas y avoir un problème Set Ws1 =...

Merci.

Oui, il et là depuis 10 mois et j'ai déjà failli l'encaster plus d'une fois...... et en plus, il a l'âge d'être mon gosse !

Heureusement, avec du VBA, les feuilles se créent toutes seules.....

Ce n'est pas une idée à moi..... mais au Directeur !!!!

SI.... 1 page par jour car c'est un planning journalier.

En fait, si cela est utile, je vous explique le fonctionnement de mon classeur XLS. J'ai 365 pages (1 par jour). je dois imprimer tous les jours la fiche de chaque agent avec les colonnes adéquates. La largeur et hauteur sont parfois différentes.

Un idée de programmation avec un Autofit ou autre pour arriver au bout avant la crise de nerfs 🤪

Et avec un AutoFit.... ??? J'essaie de trouver une solution qui m'éviterais tout le temps à devoir chipoter sur les les hauteurs et largeurs

J'ai essayé avec l'enregistreur de macro.... j'ai quelque chose... Sub Macro1() ' ' Macro1 Macro ' ' Columns("B:B").ColumnWidth = 61.29 Columns("B:B").ColumnWidth = 75 Columns("B:B").ColumnWidth = 69.86 Columns("E:E").ColumnWidth = 36.86 Columns("E:E").ColumnWidth = 34.57...