EXCEL - Savoir qui a modifié une cellule
Résolu
Galileo75
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
jerome173 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
jerome173 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Excel savoir qui a modifié une cellule
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
14 réponses
Salut,
Colles ce code dans les propriétés de ta feuille,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Contrôle As String
Do
If Not (Target.Column > 1 And Target.Column < 17) Then Exit Sub
Contrôle = InputBox("Veuillez vous identifier", _
"Accès réglementé", "Votre Nom") ' Valeur de la variable.
If Contrôle = "Votre Nom" Or Contrôle = "" Then
MsgBox "Erreur de saisie !"
MyValue = MsgBox("Souhaitez-vous renoncer à la modification ?", _
vbYesNo + vbCritical + vbDefaultButton1, "Votre Décision")
If MyValue = vbYes Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
End If
Else
Range("A1000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "Fichier modifié par " & Contrôle & " Le " & Now
ActiveWorkbook.Save
End If
Loop Until Contrôle <> "" And Contrôle <> "Votre Nom"
End Sub
Avec ce lien un petit exemple de fichier, colonne A les noms de personnes apportant une motif de la colonne B à la colonne P est archivé
https://www.cjoint.com/?ikwjgs2EaI
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Colles ce code dans les propriétés de ta feuille,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Contrôle As String
Do
If Not (Target.Column > 1 And Target.Column < 17) Then Exit Sub
Contrôle = InputBox("Veuillez vous identifier", _
"Accès réglementé", "Votre Nom") ' Valeur de la variable.
If Contrôle = "Votre Nom" Or Contrôle = "" Then
MsgBox "Erreur de saisie !"
MyValue = MsgBox("Souhaitez-vous renoncer à la modification ?", _
vbYesNo + vbCritical + vbDefaultButton1, "Votre Décision")
If MyValue = vbYes Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
End If
Else
Range("A1000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "Fichier modifié par " & Contrôle & " Le " & Now
ActiveWorkbook.Save
End If
Loop Until Contrôle <> "" And Contrôle <> "Votre Nom"
End Sub
Avec ce lien un petit exemple de fichier, colonne A les noms de personnes apportant une motif de la colonne B à la colonne P est archivé
https://www.cjoint.com/?ikwjgs2EaI
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)