Avis sur la conception d'un fichier

Alors, je ne sais pas

Claude

RE

J'ai trouvé, pour le moment, une parade. Je change de mois à l'aide du curseur. En cherchant un remède je suis tombé sur une anomalie. Dans les listes à droite de la feuille de saisie le calendrier est bien passé à janvier 2011 mais il affiche Février 2010. ?

Adrien

re,

calendrier est bien passé à janvier 2011 mais il affiche Février 2010. ?

il affiche ce qu'il y a dans la liste !

la formule en X19 a été bricolée, devrait être =MOIS.DECALER(X18;1)

pareil pour Y et Z,formules à incrémenter

Claude

RE

En X19 j'ai =DATE(year;MOIS(X18)+1;1)

En Y j'ai =MOIS(X19)

En Z j'ai =ANNEE(X19)

Ce sont les formules que j'ai actuellement. Si je rentre celles que tu me donnes ça ne colle pas.

Amicalement

Adrien

Bonjour,

Si je rentre celles que tu me donnes ça ne colle pas.

Oui c'est vrai, çà ne colle pas sur ton Excel 2000 ! (faudra peut-être le changer un jour)

on avait déjà modifier ce point, mais effectivement il y a problème à partir de février.

Je vais demander conseil au près des formulistes et te tient au courant.

Claude

Bonjour,

Pour le souci de ta liste de mois, pour éviter le février 2010 à la fin, peut-être cette formule en X9 (on ajoute un mois à la date précédente) :

=DATE(ANNEE(X8);MOIS(X8)+1;1)

à recopier vers le bas

@+

Bonjour thibo, forum,

merci pour la formule, çà marche bien chez moi,

j'étais prêt à ouvrir un poste

je remets ici le tableau complet modifié

Adrien,

vérifie sur ton ordi perso

Claude

édit: me reste à voir pour la macro qui ne suis pas bien en W1

je suis dessus

-- Mer Mar 17, 2010 3:12 pm --

Adrien,

tu peux recopier les formules sur le dernier fichier envoyer par Nad,

sur ce lien:

https://forum.excel-pratique.com/excel/formule-calendrier-t16156.html

çà touche la ligne 11 du calendrier

en plus des formules en X9:X19

la macro à jour dans le VBE de la feuille Saisie

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("Tablo")) Is Nothing Then
        Application.ScreenUpdating = False
            Range("p9").ClearContents
        If Target.Count > 1 Then Exit Sub
        If Target = "" Then Exit Sub
        'Range("w1") = Target & "/" & Range("month") & "/" & Range("year")
        Range("w1") = Target & "/" & Month(Range("c9")) & "/" & Year(Range("c9"))

La dernière ligne remplace l'avant-dernière

Claude

Bonjour Forum, Bonjour Claude

J'ai mis la formule de thibo en X9 ça fonctionne sur mon vieil ordi.

Les utilisateurs du programme prennent de plus en plus d'initiatives pas toujours heureuses. Je crains des soucis à moyens termes. Je fais régulièrement des sauvegardes en plus des sauvegardes du serveur.

J'ai lancé une purge mais le programme me dit qu'il n'y a rien à purger.

Amicalement

Adrien

Bonjour Claude

Je ne sais pas si tu avais essayé d'améliorer, modifier le programme. Celui-ci tourne toujours.

Pour ma part je ne m'en occupe plus et je quitte l'établissement dans 15 jours alors je tiens à te remercier pour ton travail.

Mon successeur n'a pas l'air intéressé par l'automatisation des tâches et c'est son pb maintenant.

Merci et à bientôt

Adrien

Bonjour Adrien, Dubois, et tous les autres

Quel gâchis, mais ce fil était passionnant, en tous cas, j'ai appris beaucoup de choses grâce à lui.

Adrien, j'espère que ton avenir est assuré et je te fais confiance, car tu as toujours des questions intéressantes sur le forum, et des compétences à l'avenant.

Gruick

Bonjour Gruick, Bonjour Forum

Gâchis peut être pas. Le programme tourne. Que va t-il devenir au premier "bug"??? J'ai au moins donné l'impulsion première. Ils ne pensent pas revenir au papier crayon.

Je le conserve dans mes archives.

Côté humain ce programme m'a fait connaitre le Forum et plus particulièrement Claude que je ne remercierai jamais assez.

L'ensemble les intervenants (de tous les niveaux) du Forum m'ont aidés et m'aident toujours dans mes petits soucis avec excel et c'est très appréciable et rassurant..

Comme je l'ai laissé entendre dans un de mes derniers fils je vais travailler pour un pressing (rien à voir avec les casinos). Là aussi il y a tout à faire au niveau automatisation (factures, tournées, plannings......) donc à très bientôt.

Merci à tous pour votre disponibilité

Adrien