Microsoft 365 Avis sur application et amélioration des codes

[NONO14]

Bonjour à toutes et à tous,
Voilà j'ai réalisé l'application ci-jointe et je souhaiterais, si cela est possible, avoir votre avis et vos suggestions d'amélioration.
Merci par avance

 

[NONO14]

Bonjour à toutes et à tous,
Voici mon nouveau fichier revu et corrigé. N'hésitez pas à me faire part de vos remarques (avec des exemples si possible) afin que je puisse corriger. J'ai fait des tests et ça fonctionne, mais peut-être suis-je passé à côté de quelques choses.
Merci par avance

LivreRecettes3.xlsm​

 

[cathodique]

Bonjour à toutes et à tous,
Voici mon nouveau fichier revu et corrigé. N'hésitez pas à me faire part de vos remarques (avec des exemples si possible) afin que je puisse corriger. J'ai fait des tests et ça fonctionne, mais peut-être suis-je passé à côté de quelques choses.
Merci par avance

LivreRecettes3.xlsm​

Bonsoir,

As-tu testé le bon fonctionnement de ton dernier fichier?
J'ai essayé d'ajouter une recette. Voici ci-dessous le premier plantage.

Bonne soirée

 

[ChTi160]

Bonsoir le Fil,
Mettre "Next Col" au lieu de "c"
Cordialement
Jean marie

 

[NONO14]

Vous n'avez pas le bon fichier, décidément je ne suis pas doué. Voici le bon. Celui-ci que je vous ai adressé est en phase d'essais.
Je suis sincèrement désolé. Je vous présente toutes mes excuses

LivreRecettes.xlsm​

 

[cathodique]

Bonsoir le Fil,
Mettre "Next Col" au lieu de "c"
Cordialement
Jean marie

Il n'y a pas que cette erreur.

 

[NONO14]

Il n'y a pas que cette erreur.

Bonsoir,
Vous n'avez pas le bon fichier. Il faut regarder le dernier que j'ai mis en lien "LivreRecettes". Je suis vraiment désolé.

 

[NONO14]

Bonjour à toutes et à tous,
J'ai travaillé de mon côté sur l'application et apporter quelques modifications. J'attends vos commentaires ou vos remarques pour finaliser.
Merci par avance et bonne fin de journée
Bien amicalement
René

 

[cathodique]

Bonjour à toutes et à tous,
J'ai travaillé de mon côté sur l'application et apporter quelques modifications. J'attends vos commentaires ou vos remarques pour finaliser.
Merci par avance et bonne fin de journée
Bien amicalement
René

Suggestion:
remplacer cette ligne:

ThisWorkbook.Close SaveChanges:=True

par ceci (quitter l'application Excel si un seul fichier ouvert) :

With ThisWorkbook
      Application.DisplayAlerts = False
      .Save
      If Workbooks.Count = 1 Then Application.Quit Else .Close
   End With

 

[NONO14]

Suggestion:
remplacer cette ligne:

ThisWorkbook.Close SaveChanges:=True

par ceci (quitter l'application Excel si un seul fichier ouvert) :

With ThisWorkbook
      Application.DisplayAlerts = False
      .Save
      If Workbooks.Count = 1 Then Application.Quit Else .Close
   End With

Bonsoir,
Merci pour ta suggestion, mais il se peut qu'un autre fichier soit ouvert avec l'application, c'est pour cette raison que je garde Excel actif.
Encore merci pour l'idée
Oups ! j'ai mal lu ta réponse. Tu ne ferme Excel uniquement si un seul fichier est ouvert, sinon Excel reste actif.
L'idée est très intéressante.

 

[NONO14]

Bonjour,
Je vous souhaite à toutes et à tous de très bonnes fêtes de fin d'année.
prenez soin de vous et à bientôt
René