Suivi des modificaitons - different couleurs
Résolu
Narasashi
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
-
-
Bonjour Madame, Bonjour Monsieur,
J'ai un document sur lequel 4 personnes different vont travailler avec leur ordinateur respectifs. Je souhaite que les modifications apportés par chaque personne s'affichent en 4 couleur differents selon l'auteur, par exemple le couleur apporté par Mr. A en bleu, Mr. B en rose, Mr. C en rouge et Mr. D en vert. Tout cela automatiquement. Est-ce possible et si oui pourriez vous m'éxpliquer comment procéder?
Merci d'avance pour votre aide,
Sashi
J'ai un document sur lequel 4 personnes different vont travailler avec leur ordinateur respectifs. Je souhaite que les modifications apportés par chaque personne s'affichent en 4 couleur differents selon l'auteur, par exemple le couleur apporté par Mr. A en bleu, Mr. B en rose, Mr. C en rouge et Mr. D en vert. Tout cela automatiquement. Est-ce possible et si oui pourriez vous m'éxpliquer comment procéder?
Merci d'avance pour votre aide,
Sashi
A voir également:
- Suivi des modificaitons - different couleurs
- Suivi des modifications word - Guide
- Suivi colis - Guide
- Suivi position google - Guide
- Historique Google Maps : retrouver tous les lieux et les trajets enregistrés - Guide
- La boite à couleurs - Télécharger - Divers Photo & Graphisme
2 réponses
bonjour
une solution loin d'être parfaite, à mettre dans le module de la feuille (Clic-droit sur l'onglet de la feuille/visualiser le code)
dans la 1° case en haut à gauche (Général) choisir worksheet
et copier/coller ce code
modifier les username et les couleurs
RQ. si l'utilisateur supprime ses modifs, la couleur va rester
bonne suite
une solution loin d'être parfaite, à mettre dans le module de la feuille (Clic-droit sur l'onglet de la feuille/visualiser le code)
dans la 1° case en haut à gauche (Général) choisir worksheet
et copier/coller ce code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NomUti As String
NomUti = Environ("username")
Select Case NomUti
Case "lili": Target.Interior.ColorIndex = 3
Case "toto": Target.Interior.ColorIndex = 5
Case "lulu": Target.Interior.ColorIndex = 7
Case "zaza": Target.Interior.ColorIndex = 9
End Select
End Sub
modifier les username et les couleurs
RQ. si l'utilisateur supprime ses modifs, la couleur va rester
bonne suite
