Discussion :

[xaviermagdelaine]

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.
Fichiers attachés

[Invité]

Bonjour,
a toi d'ajuster!

Code Feuil1(alesoir) :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 Then
    If Trim("" & Target) & Trim("" & Target.Offset(0, 1)) <> "" Then
        If Trim("" & Target) = "" Xor Trim("" & Target.Offset(0, -1)) = "" Then
            MsgBox "Vous devez"
         End If
    End If
 End If
  If Target.Column = 3 Then
    If Trim("" & Target) & Trim("" & Target.Offset(0, -1)) <> "" Then
         If Trim("" & Target) = "" Xor Trim("" & Target.Offset(0, -1)) = "" Then
            MsgBox "Vous devez"
         Else
           Set cn = CreateObject("ADODB.Connection")
            With cn
                .Provider = "Microsoft.ACE.OLEDB.12.0"
                .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"""
                .Open
                Sql = "Insert Into [HistoriquePret$] ([Designation],[Nom de l ajusteur],[date  du mouvement et heure]) "
                Sql = Sql & "Values ('" & ActiveSheet.Cells(Target.Row, "A") & "','" & ActiveSheet.Cells(Target.Row, "b") & "','" & Format(Now, "yyy-mm-dd hh:mm:ss") & "')"
                cn.Execute Sql
 
                .Close
            End With
            Set cn = Nothing
        End If
    End If
 End If
End Sub

[xaviermagdelaine]

Bonjour,
Je te remercie pour pas rapidité et reviens vers toi si besoin.
Bonne journée.

Hélas, cela ne fonctionne pas pour moi.
Je suis un peu novice dans le domaine.
J'ai copier ton code sur la feuille alésoir et rien ne se passe sur la feuille historiquepret.
Désolé de prendre ton temps.
je joint mon fichier