Discussion :

[rugbyman]

Bonjour à tous,

Je vous expose mon problème :

j'ai un classeur partagé utilisé par 3 utilisateurs.

chacun d'eux remplit des cellules différentes.

pour voir rapidement qui a saisi quoi, je souhaiterais colorier les cellules en fonction de l'utilisateur qui l'a renseignée.

Par exemple :

A1 modifiée par Stephane, coloriée en bleu.
A2 modifiée par serge, coloriée en jaune.
A3 modifiée par sebastien, coloriée en vert.

Je pensais utiliser un if then, et la commande environnement username.

Mais je n'arrive pas à les mettre en forme correctement pour que ma macro fonctionne.

Quelqu'un a t il déjà utilisé ce type de macro ?

Merci pour votre attention.

Rugbyman.

[BlueMonkey]

Bonsoir,

En ajoutant un gestionnaire d'évènement sur les changements dans la feuille concernée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim user As String
    user = Environ$("UserName")
    If InStr(1, user, "stephane") > 0 Then
        Target.Interior.ColorIndex = 8 'bleu
    ElseIf InStr(1, user, "serge") > 0 Then
        Target.Interior.ColorIndex = 6 'jaune
    ElseIf InStr(1, user, "sebastien") > 0 Then
        Target.Interior.ColorIndex = 4 'vert
    End If
End Sub