Discussion :

[robinicol]

Bonjour à tous,

J'ai un fichier destiné à être utilisé par plusieurs utilisateurs. La gestion des droit d'accès est gérée via un userform.

Je souhaiterais que la couleur de fond des cellules modifiées par un utilisateur change pour être facilement identifiable lorsqu'un autre utilisateur ouvrira le fichier.
Je ne sais pas si cela est possible...

Quelqu'un a-t-il une solution ?

Nota : une solution encore plus efficace serait d'avoir un onglet dans lequel les modifications apportées sur chaque cellule sont listées avec le nom de l'utilisateur avec la date et l'heure... mais j'en demande peut-être un peu trop!
Dans un premier temps, la solution avec changement de la couleur de fond des cellules me conviendrait parfaitement!

Merci pour votre aide...

[Philippe Tulliez]

Bonjour,
En utilisant par exemple la procédure événementielle Workbook_SheetChange
A placer dans l'objet ThisWorkbook du classeur

Code :

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

1
2
3
4
5
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 ' Placer le code ici"
 MsgBox "Vous avez modifié la cellule " & Target & " de la feuille " & Sh.Name
End Sub

[robinicol]

Bonjour

Merci pour l'info, je vois à quel endroit je devrai placer le code.

Mais je souhaiterai en fait que lorsqu'une cellule est modifiée (dans la feuill1 par exemple), la couleur de fond de cette cellule change... en passant au rouge par exemple. Je voudrais que cela s'applique à l'ensemble des cellules de la feuille : dès qu'on modifie le contenu d'une des cellules de la Feuill1, le fond de la cellule modifiée devient rouge...

C'est pour écrire ce code que je sèche...

[Philippe Tulliez]

Bonjour,
Si tu utilises l'enregistreur de macro, qui doit être un réflexe lorsqu'on cherche du code, il va te donner ce code.

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 28/01/2011 par Corona
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
End Sub

Selection représente la cellule où l'on se trouve donc dans le programme que tu veux créer la cellule que l'utilisateur à modifié.
Tu vas donc placer dans la procédure événementielle ce code.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 ' Placer le code ici"
 With Target.Interior
 .ColorIndex = 3
 .Pattern = xlSolid
 End With
End Sub

Target étant dans cette procédure la cellule qui a été modifiée, il suffit de remplacer Selection par [B]Target/B].
CQFD

[robinicol]

Merci pour ces explications et les lignes de codes qui vont avec !
ça marche nickel !

Merci pour ton aide.