Discussion :

[Ritoune]

Bonjour,
Dans le cas d'un classeur partagé et donc alimenté par plusieurs personnes, je voulais savoir s'il était possible que les cellules se colorent automatiquement en fonction de l'utilisateur qui la remplie ?
exemple :
si cellule remplie par Julie (=utilisateur du PC1 d'un réseau informatique) => cellule coloriée en rouge
si cellule remplie par Delphine (=utilisateur du PC2 d'un réseau informatique) => cellule coloriée en bleu
si cellule remplie par Jonathan (=utilisateur du PC3 d'un réseau informatique) => cellule coloriée en bleu

Le but serait de voir très rapidement quelle personne est responsable d'une information ou d'une donnée rentrée sans avoir à "suivre les modifications"

Merci

[Benoit Schwob]

Bonjour Ritoune,

En VBA, tu peux te servir de

Code :

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

Application.UserName

qui indique le nom d'utilisateur enregistré sur l'install Excel du poste qui travaille sur ton fichier réseau (Outils/Options/Général).

Ca demande que les noms d'utilisateurs sur les postes soient tous différents (ce que tu peux modifier, si besoin), et que tu attribues une couleur à chaque nom.

Benoît

[Ozer45]

Salut,

cette fonction te permet de recuperer le nom de l'utilisateur en cours. il te reste qu'à effectuer un test suivant s'il manipule le fichier ou pas et colorie les cellules modifiées.

Code :

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
 
 
Private Declare Function apiGetUserName Lib _
    "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, _
    nSize As Long) _
    As Long
 
Private Function fGetUserName() As String
' Returns the network login name
Dim lngLen As Long, lngRet As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngRet = apiGetUserName(strUserName, lngLen)
    If lngRet Then
        fGetUserName = Left$(strUserName, lngLen - 1)
    End If
End Function

[kiki29]

Salut,

Code :

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

1
2
Dim sUser As String
    sUser = Environ("USERNAME")