faire un historique sous excel

[masaramili]

Bonjour,
je suis membre d'une association qui est en train de se monter et on a le projet de créer une bibliothèque. Je suis en train de créer une base de données des livres et il faudrait aussi pouvoir enregistrer les différentes personnes qui les empruntent. Ce que j'aimerai faire c'est lorsque je rentre le nom dans la colonne "emprunté par" dans une autre feuille toute la ligne soit archivée. J'ai essayé différentes macros mais je suis en train de me noyer sachant que je suis loin d'être une expert en la matière.
En clair je voudrait pouvoir garder un historique des différents livres emprunté et par qui avec une confirmation pour l'enregistrement des modifications.
Je vous remercie d'avance pour votre aide

 

[thomlau]

Re : faire un historique sous excel

Bonjour Masaramili, bonjour le forum.

Je planche sur ton projet. J'ai fais a peu près le même genre d'application pour un crèche municipale.

Je t'envoie ça demain.

++

 

[Staple1600]

Re : faire un historique sous excel

Bonsoir



Ayant moi aussi du récemment gérer un fond documentaire, j'avais commencé un projet sous Excel
et devant l'ampleur de la tâche j'ai abdiqué pour opter pour le logiciel Bookin (freeware)
lien: site du logiciel

(Tu peux exporter importer des *.csv)


Je te souhaite bon courage si tu préfères créer un applicatif sous Excel
et je serais curieux de voir comment tu auras réalisé ton projet.

 

[JNP]

Re : faire un historique sous excel

Bonjour le forum 🙂,
Techniquement, j'ai généré ces derniers temps une moulinette sous Excel qui irait dans le sens de tes besoins. Ce qui me fait peur, c'est la gestion en même temps de l'historique et de la bibliothèque. En ce qui me concerne, je fais le ménage de l'historique régulièrement pour éviter que le fichier Excel ne devienne trop gros...
Dans le fonctionnement, je préconiserais les étapes suivantes:
1) Faire 2 fichiers Excel, d'un côté la BDD du fond, de l'autre le suivi des entrées/sorties
2) Pour les entrées/sorties, je vérifie si l'onglet du jour existe, sinon je le crée (dans Workbook_Open)

' Vérifie la présence de la feuille du jour
Dim DateDuJour As String
DateDuJour = Year(Now) & "_" & Month(Now) & "_" & Day(Now)
Dim Existe As Boolean
Existe = False
Dim Feuille As Worksheet, NouvelleFeuille As Worksheet
For Each Feuille In ActiveWorkbook.Worksheets
    If Feuille.Name = DateDuJour Then
        Existe = True
        Exit For
    End If
Next Feuille
If Existe = False Then
    ' Création de la feuille du jour
    Sheets("Base").Copy before:=Sheets("Base")
    ActiveSheet.Name = DateDuJour
End If

Tu remarqueras que je copie la feuille Base qui me permet de garder toujours les mêmes entêtes
3) Ensuite, un 1° USF chargé automatiquement avec la date du jour va te permettre de rechercher dans le classeur de BDD le livre souhaité (par la référence que tu souhaites) et l'emprunteur
4) A l'enregistrement, tu inscrit une ligne dans la feuille du jour
5) Un 2° USF te permet de rappeller la référence du livre sorti, de repérer la ligne concernée et d'inscrire le fait qu'il est rentré.

' Localisation de l'enregistrement
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Worksheets
    If Left(Feuille.Name, 2) = "20" Then
        Dim I As Integer, J As Integer, K
        K = Sheets(Feuille.Name).Cells(2, 26) ' Cellule de calcul du nombre _
               de ligne de la feuille défini sur la feuille Base
        I = CInt(K)
        For J = 2 To I + 1
' RéférenceLivre est le nom de ton TextBox de l'USF, 3 la colonne de recherche
            If Sheets(Feuille.Name).Cells(J, 3) = RéférenceLivre.Text Then
                LigneCherchée = J
                FeuilleCherchée = Feuille.Name
' Test si le livre est rentré (colonne 14 non vide)
                If Sheets(FeuilleCherchée).Cells(LigneCherchée, 14) <> "" Then
                    Message = "Livre déjà rendu" & vbCrLf & _
                        "Entrer l'emprunt avant de le rendre !"
                    Msg = MsgBox(Message, vbCritical, "ATTENTION !")
                    Unload EnregistrementRendu ' USF concerné
                End If
                If Sheets(FeuilleCherchée).Cells(LigneCherchée, 14) = "" Then GoTo Chargement
            End If
        Next J
    End If
Next Feuille
Message = "Il n'y a pas d'enregistrement en cours sous" & vbCrLf & _
    "le numéro demandés !"
Msg = MsgBox(Message, vbCritical, "ATTENTION !")
Exit Sub
' Chargement de l'enregistrement
Chargement:
' Les textbox sont à mettre en corrélation des cellules AdHoc
TextBox1.Caption = Sheets(FeuilleCherchée).Cells(LigneCherchée, 6)
TextBox2.Caption = Sheets(FeuilleCherchée).Cells(LigneCherchée, 7)
TextBox3.Caption = "Commercial : " & Sheets(FeuilleCherchée).Cells(LigneCherchée, 9)
' Etc.

6) Une feuille de tri te permet d'appeler les livres sortis mais pas rentrés.
Bon courage 😎

 

[masaramili]

Re : faire un historique sous excel

merci JNP je vais voir ce que donne cette nouvelle direction mais je vais quand même attendre la réponse de thomlau car s'il est dans un projet similaire au mien sa façon d'aborder le problème sera peut être plus similaire à la mienne. Mais c''est une idée que je garde sous la main.
Et merci à tous pour vos réponses si rapide

 

[jmd2]

Re : faire un historique sous excel

Bonjour

Ma vision, issue de l'expéreince en bases de données.

Si tu veux travailler avec une seule table (trop dur de travailler avec plusieurs tables sous Excel), il faut :
une table avec les colonnes :
- client *
- livre *
-date emprunt *
- date retour prévue
- date retour réel *
Et quand le livre est revenu, tu coupes la ligne et tu la colles dans un onglet "Archive"

Très simple, pas de macro ni VBA.
Hyper efficace.


ATTention :ceci n'empêche pas d'avoir des tables annexes du genre "liste des clients" et "liste des livres",et même "liste des dates" (eh oui, parfois ça aide) pour alimenter les * grâce à des listes déroulantes.

Tu veux un exemple ?

 

[masaramili]

Re : faire un historique sous excel

Bonjour jmd2,
en fait moi je commence la BDD et je crée le programme mais ensuite
ce n'est pas moi qui tiendrai la bibliothéque. Pour le moment je ne sais pas qui s'en chargera mais je dois faire comme si c'était une personne qui ne connait pratiquement pas les ordinateurs (car il y a de forte chance que cela soit le cas) donc j'essai de faire un truc de sorte que le dossier soit carré mais que le gestionnaire n'ait pas grand chose à faire (sans générer trop d'erreur). C'est pour cela à la fois que ma tache n'est pas simple.

 

[Staple1600]

Re : faire un historique sous excel

Bonjour à tous

Je me permets de réintervenir

comme si c'était une personne qui ne connait pratiquement pas les ordinateurs (car il y a de forte chance que cela soit le cas) donc j'essai de faire un truc de sorte que le dossier soit carré mais que le gestionnaire n'ait pas grand chose à faire (sans générer trop d'erreur).

J'étais dans le même cas que toi

La personne chargée de gérer la bilbilothèque sera novice au niveau
"informatique" (notamment sous Excel)

Le logiciel que j'ai cité (dans mon précédent message)
(NB: je n'ai aucun rapport de près ou de loin avec l'auteur du logiciel)

est vraiment trés convivial (et surtout déjà fonctionnel)

Ce qui m'a permis un gain de temps considérable

Car j'avais saisi la base de données des ouvrages de la bibliothéque sous Excel

J'ai donc juste eu à respecter les entêtes propres au logiciel
J'ai enregistré ensuite mon fichier Excel en *.csv

Puis je l'ai importé dans le logiciel et le tour était joué.

Ceci dit, par curiosité "VBAistique", je serai admiratif si l'on pouvait réaliser sous Excel , une application aussi aboutie (à mon sens) que le dit logiciel.

Pour finir, lorsque j'ai présenté la gestion de la bibliothèque
-avec mon fichier Excel (trés basique , je bloquais sur la gestion des emprunts)

-ou avec le logiciel Bookin

Mon employeur a opter pour Bookin

(Ce qui a blèssé , légérement, mon d'égo d'aficionados d'Excel et VBA,
mais ceci est une autre histoire)

A+ et bon courage à toi et aux VBAistes du forum qui ne manqueront pas de relever le challenge.

Staple

 

[masaramili]

Re : faire un historique sous excel

j'ai regardé le lien vers lequel tu m'as envoyé (Staple1600)
et je dois avouer que c'est tres complet comme logiciel
c'est un chemin que je vais sérieusement étudier

merci

 

[Staple1600]

Re : faire un historique sous excel

Re


Si tu as besoin de conseils pour importer ta base excel
dans ce logiciel, n'hésites pas je suis disponible.

J'espère en tout cas qu'avec Excel ou une autre solution tu puisses mener à bien ton projet.

Bon courage
(j'espère pour toi que, comme moi, tu n'auras pas à saisir les références environ de 800 à 1000 ouvrages (livres+revues) 😱) )


PS: Il existe également d'autres logiciels du même type sur le net
(et gratuit) mais je m'étais arrêté sur celui-ci pour sa simplicité d'utilisation.

 

[thomlau]

Re : faire un historique sous excel

Bonjour à tous.

J'ai commencé le fichier comme promis, mais j'attends de voir si tu choisis le logiciel "tout prêt" et très bien fait avant de poursuivre, c'est logique.

Donc voici ce que j'ai fais en fichier joint.

Comment s'en servir?

Cliquer sur le bouton "nouvel emprunt" de la feuille Base de données.
Remplir les champs requis
Résultats sur la feuille Entrées-sorties.

A+

 

[masaramili]

Re : faire un historique sous excel

je te remercie thomlau
c'est super comme programme
il est vrai que k'étudie quand même l'autre programme même s'il y a pour le moment encore des zones d'ombres où pour se faire je vais surement devoir faire appel à Staple1600 mais je vous tiens au courant
merci encore je pense que çà va m'enlever une grosse épine du pied

 

[Staple1600]

Re : faire un historique sous excel

Re, Bonjour thomlau


Effectivement, bravo pour cette application.


PS: Pour info, dans la feuille Inventaire
Les formules renvoient à ce fichier
'C:\WINDOWS\Bureau\bdd_simple\bdd_simple\[bdd_biblio1.xls]'

J'ai remplacé par 'Base de données' et tout est nickel.

 

[masaramili]

Re : faire un historique sous excel

j'aimerai savoir Staple1600
si tu sais si c'est possible de personnaliser plus d'un champ
s'il est possible de supprimer plus d'un livre à la fois
car j'ai fait n test avec tous les livres que j'avais déjà répertorié et il m'a rempli environ 3000 ligne blanches avant de mettre mes données.
Et si j'ai un livre en plusieurs exemplaire je suis obligée de l'ecrire autant de fois que je l'ai?
Tu sais s'il y a moyen d'extraire des données rentrées de façon automatique pour qu'une compta puisse être suivi car je vois que l'on peut mettre les prix des livres mais je n'ai pas vu si les sommes pouvaient additionné quelque part
je sais çà fait beaucoup de question et j'ai l'impression d'abuser un peu mais si tu t'es déjà retrouvé devant ces questions et que tu as trouvé une réponse.
Merci beaucoup