Garder la valeur d'une cellule même si suppression ou ajout ligne

[FFO]

Remplace cette ligne de code :

If Sheets(f).Name Like « F* » And IsNumeric(Right(Sheets(f).Name, 1)) Then

Par celle-ci

If IsNumeric(Sheets(f).Name) Then

Testes et dis moi

[LuDDC]

Il me met ça :

[FFO]

Attention ce n est pas la bonne ligne à mettre
Je lis dans ta copie ceci :

If IsNumeric(Sheets(f).Name,1) Then

Alors qu il faut mettre :

If IsNumeric(Sheets(f).Name) Then

Il y a « ,1 » en trop après Sheets(f).Name

Corriges cela devrait le faire

[LuDDC]

Ah oui exact ! Je n’avais pas fait attention !

Merci beaucoup !!!

[FFO]

Parfait parfait !!!
Au plaisir une prochaine fois

[LuDDC]

Coucou FFO,

J’ai une autre question , je pense que je ne pourrais plus me passer de toi ahah. Non promis je volerai de mes propres ailes à un moment donnée j’en suis sûre !

Il y a un truc que je ne comprends pas du tout. Ma bibliothèque s’affiche en tout petit comme tu peux le voir…

Je suis partie voir dans mon FrmDesignation où j’ai inséré mon UserForm. Elle s’affiche en petit. Quand je l’agrandi, le problème c’est que malgré la sauvegarde, cela n’est pas pris en compte. As-tu une astuce pour que ce soit pris en compte s"il te plait ?

Merci encore et encore.

[FFO]

Bonjour
Je viens d’effectuer un redimensionnement du formulaire avec enregistrement du fichier ensuite celui-ci maintenant garde ses nouvelles dimensions même aprés fermeture et réouverture du fichier
Je te le joins ci-après
Testes le

Copie de 20220221 - Feuille_de_Vente_15F (3).xlsm (791,4 Ko)

[LuDDC]

Bonjour FFO,

J’espère que tu vas bien !

Désolée pour le temps de réponse. Je viens de tester et c’est génial !!

Merci beaucoup encore pour tout. J’espère ne plus avoir a t’embêter ^^’

[FFO]

Bonjour
Merci pour ta réponse
Je te rassure tu ne me gêne pas
C est un plaisir
N hésites pas donc une prochaine fois
Au plaisir