Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pour historique des mouvements

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
X

xaviermagdelaine

XLDnaute Nouveau
Bonjour,
J'ai créer un petit fichier dans lequel je rentre les mouvements de prêts de matériels.
Il y a plusieurs feuilles dans ce classeur (alesoir,materiel, malette etc)
Je souhaite créer une feuille (historiquepret) afin de récapituler les mouvements.
Je principe.
La personne (David) vient emprunter un alésoir Ø4.8 le 15 mars à 15:18, je souhaite que sont mouvement soit enregistrer.
Lorsque vient,je bipe son badge qui inscrit directement son nom et leur de l'emprunt devant le matériel et lorsqu'il le rend , je clique sur la cellule de l’emprunt et je supprime.Je souhaite SI POSSIBLE que ces deux mouvements soit pris en compte.Si trop compliqué , au moins enregistrer l'emprunt .
Les cellules en VERT correspondent à des pseudo personne afin d'illustrer ma demande.
Attention, dans certaines feuilles (ex tampon divers) il ne s'agit pas d'enregistrer la ligne complète.
Je reste à votre disposition pour de plus amples renseignements.
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : macro pour historique des mouvements

Lolote83 à dit:
Salut XavierMagdelaine
Voici en retour, un exemple.
Peut être faudrait-il revoir la structure du fichier (exemple Alesoir2)
Double-clic sur une ligne
@+ Lolote83
Cliquez pour agrandir...

Bonjour,
Je te remercie.Je viens de jeter un œil sur ton travail et cela semble correspondre à ce que je veux.
J'étudie et essaie de l'adapter à mon fichier qui comporte plusieurs feuilles.
Je tiens encore à te dire un grand merci car mon fichier avance.
Bonne journée.
 
Vote positif 0 Vote négatif
Re : macro pour historique des mouvements

Lolote83 à dit:
Salut XavierMagdelaine
Voici en retour, un exemple.
Peut être faudrait-il revoir la structure du fichier (exemple Alesoir2)
Double-clic sur une ligne
@+ Lolote83
Cliquez pour agrandir...
Re Bonjour,
J'ai presque finaliser mon fichier.
Je voulais savoir s'il était possible que l'heure s'affiche dans la feuille HistoriquePret colonne (D) .
Simon tout est parfait mille merci.
Bonne journée.
 
Vote positif 0 Vote négatif
Re : macro pour historique des mouvements

Salut,
En re-ouvrant le fichier transmis (post #2) , il apparait bien la date et l'heure en colonne D.
Je ne comprends pas la question.
Je voulais savoir s'il était possible que l'heure s'affiche dans la feuille HistoriquePret colonne (D) .
Cliquez pour agrandir...
Souhaites tu seulement avoir l'heure ??
@+ Lolote83
 
Vote positif 0 Vote négatif
Re : macro pour historique des mouvements

Salut, je ne sais pas si ma réponse est parvenu.
Dans la feuille historiquePret, dans la colonne D , la date du prêt n’apparaît pas.
Elle apparaît seulement lorsque je fais le retour et donc plus de trace de la date de l'emprunt.Sur la feuille Alésoir2 , la date et l(heure apparaît bien mais il faudrait qu'elle soit reporté sur la feuille HistroiquPret (exemple D6 , la date n’apparaît pas).
Est-ce très compliqué pour modifier car j'ai presque terminé mon classeur composé de presque 10 feuilles.
Bonne journée.
 
Vote positif 0 Vote négatif
Re : macro pour historique des mouvements

Salut,
Effectivement, lors de l'emprunt, la date n'était pas renseignée.
Désolé.
Voici le bout de code à corriger pour que cela fonctionne
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B2:F42")) Is Nothing Then
        Cancel = True
        'Récupération des données de la ligne choisie
        xDesigna = Cells(Target.Row, "B")
        xReferen = Cells(Target.Row, "A")
        xNomAjus = Cells(Target.Row, "C")
        xDatePre = Cells(Target.Row, "D")
        xManquan = Cells(Target.Row, "E")
        xEtat = Cells(Target.Row, "F")
        'Test si un ajusteur est déja indiqué
        If xNomAjus <> Empty Then
            xMess = Empty
            xMess = xMess & "L'ajusteur  " & xNomAjus & "  est déjà indiqué" & Chr(13)
            xMess = xMess & "Cela veut-il dire qu'il à rendu le matériel" & Chr(13) & Chr(13)
            xMess = xMess & " - Si OUI, matériel rendu, donc effacement des données" & Chr(13)
            xMess = xMess & " - Si NON, erreur de ligne" & Chr(13)
            xRep = MsgBox(xMess, vbQuestion + vbYesNo, "TOTO")
            If xRep = vbYes Then
                Cells(Target.Row, "C") = Empty
                Cells(Target.Row, "D") = Empty
                xEtat = "Rendu"
                Cells(Target.Row, "F") = "Disponible"
                GoTo EnregistreHistorique
            Else
                Exit Sub
            End If
        Else
            xNomAjus = InputBox("Nom de l'ajusteur", "AJUSTEUR")
            Cells(Target.Row, "C") = xNomAjus
            Cells(Target.Row, "D") = Now
            xDatePre = Cells(Target.Row, "D")
            xEtat = "Emprunté"
            Cells(Target.Row, "F") = xEtat
        End If
EnregistreHistorique:
        With Sheets("HistoriquePret")
            xDerLig = .Range("A65536").End(xlUp).Row
            xNewLig = xDerLig + 1
            .Cells(xNewLig, "A") = xDesigna             'Désignation
            .Cells(xNewLig, "B") = xReferen             'Référence
            .Cells(xNewLig, "C") = xNomAjus             'Nom ajusteur
            .Cells(xNewLig, "D") = xDatePre             'Date pret
            .Cells(xNewLig, "E") = xManquan             'Manquant
            .Cells(xNewLig, "F") = xEtat                'Etat
        End With
    End If
End Sub
A remplacer par celui-ci
@+ Lolote83
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

X
  • Question Question
Modifier macro pour effacer une cellule
Réponses
7
Affichages
1 K
Lone-wolf
R
  • Question Question
Macro pour importer des données de plusieurs classeurs en les additionnant.
Réponses
0
Affichages
2 K
Regis_Can
R
B
  • Question Question
macro pour enregistrer des feuilles dans un nouveau fichier
Réponses
9
Affichages
7 K
Dan
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…