Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Nom utilisateur dans fichier partage

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion janakka
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

janakka

XLDnaute Nouveau
Bonjour à tous,

Voilà dans ma société on a un fichier excel partagé avec d'autres collègues.
Je voudrai savoir s'il est possible d'avoir le nom de l'utilisateur qui à modifier certaine cellule.



Par exemple je voudrai que sur la cellule D2 apparaisse le nom de l'utilisateur qui à modifier les cellules B2 et C2 etc.

Est il également possible si l’utilisateur porte le nom de "TOTOVICH" que la cellule fasse apparaitre le nom "TOTO".


Merci pour votre aide
 
Trier par date Trier par votes
Re : Nom utilisateur dans fichier partage

Bonjour Janakka.
Oui il est possible d'ajouter le nom.
Pour modifier l'utilisateur Totovich et Toto, tout dépend des conditions de modification des noms. Si on ne doit garder que les quatre premiers caractères, c'est facile.
 
Vote positif 0 Vote négatif
Re : Nom utilisateur dans fichier partage

Bonjour thebenoit59
Merci pour ta réponse.
Pourrais tu me dire comment faire stp.
Pour le nom je souhaiterai un trigramme ex utilisateur Dupont Michel doit donné DM1 par exemple.

Merci encore une fois

thebenoit59 à dit:
Bonjour Janakka.
Oui il est possible d'ajouter le nom.
Pour modifier l'utilisateur Totovich et Toto, tout dépend des conditions de modification des noms. Si on ne doit garder que les quatre premiers caractères, c'est facile.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Nom utilisateur dans fichier partage

Bonjour Janakka.

Pour noter le nom d'utilisateur, on utilise la méthode suivante :

Code: 
Range("a1").Value = Application.UserName

Un fichier serait intéressant pour adapter à tes besoins.
Pour le trigramme, il faut voir comment sont enregistrés les noms d'utilisateurs, une liste d'exemple serait intéressante.
 
Vote positif 0 Vote négatif
Re : Nom utilisateur dans fichier partage

Bonjour thebenoit59,

ok voici une partie du fichier car celui ci est lourd.

Le nom de l'utilisateur doit apparaitre dans la colonne FNP Util.
Exemple des que la cellule G3 ou H3 ou I3 ou J3 est modifié (contient un X) la cellule K3 doit indiqué le nom de l'utilisateur qui a cocher la ou le groupe de cellules . Il faut savoir que les cellule I3 et J3 sont déterminantes c'est à dirre que si les cellules G3 à H3 ont été cochées par un utilisateurs mais que les cellules I3 ou j3 ont été cochées par un autre c'est le nom de cet utilisateur qui doit apparaitre dans la cellule K3

La même chose doit être appliquée à la partie intitulée CCA

J’espère avoir eté assez explicite



Pour noter le nom d'utilisateur, on utilise la méthode suivante :

Pour les trigramme il s’agit de la première lettre du prénom+les 2 première lettre du Nom
Les utilisateurs sont enregistrés de la manière suivante : Prénom-Nom
Richard-Airray sont trigramme doit être RAI
Sylvain-Bravel son trigramme doit être SBR
Nathalie-Parez son trigramme doit etre NPA
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Nom utilisateur dans fichier partage

Bonjour Janakka.
Sans trop réfléchir, on pourrait faire ainsi :

Code: 
Dim Ligne As Long, Colonne As Long

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("g3:j71")) Is Nothing Then
Ligne = Target.Row: Colonne = Target.Column
    If Target.Value = "" And WorksheetFunction.CountA(Range(Cells(Ligne, "G"), Cells(Ligne, "J"))) = 0 Then Cells(Ligne, "K").Value = "": Exit Sub
    If UCase(Target.Value) <> "X" Then Exit Sub
    If Colonne = 9 Or Colonne = 10 Then
        Inscription_Nom
    ElseIf (Colonne = 7 Or Colonne = 8) And WorksheetFunction.CountA(Cells(Ligne, "I"), Cells(Ligne, "J")) = 0 Then
        Inscription_Nom
    End If
End If
End Sub

Private Sub Inscription_Nom()
Dim Utilisateur As String
    If InStr(Application.UserName, "-") = 0 Then
        Utilisateur = Application.UserName
    Else:
        Utilisateur = Left(Application.UserName, 1) & Mid(Application.UserName, InStr(Application.UserName, "-") + 1, 2)
    End If
    Cells(Ligne, "K").Value = Utilisateur
End Sub
 
Vote positif 0 Vote négatif
Re : Nom utilisateur dans fichier partage

Merci thebenoit59,
Ça marche très bien.
Par contre j'ai essayé d'adapter ton code pour la partie CCA mais cela n'a pas fonctionné

Voici mon adaptation. Pourrais tu me dire ce qui ne va pas car je dois avouer que je suis largué

Code: 
Dim Ligne As Long, Colonne As Long

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("g3:j71, l3:071")) Is Nothing Then
Ligne = Target.Row: Colonne = Target.Column
    If Target.Value = "" And WorksheetFunction.CountA(Range(Cells(Ligne, "G, L"), Cells(Ligne, "J, O"))) = 0 Then Cells(Ligne, "K, P").Value = "": Exit Sub
    If UCase(Target.Value) <> "X" Then Exit Sub
    If Colonne = 9 Or Colonne = 10 Or Colonne = 14 Or Colonne = 15 Then
        Inscription_Nom
    ElseIf (Colonne = 7 Or Colonne = 8 Or Colonne = 12 Or Colonne = 13) And WorksheetFunction.CountA(Cells(Ligne, "I, N"), Cells(Ligne, "J, O")) = 0 Then
        Inscription_Nom
    End If
End If
End Sub

Private Sub Inscription_Nom()
Dim Utilisateur As String
    If InStr(Application.UserName, "-") = 0 Then
        Utilisateur = Application.UserName
    Else:
        Utilisateur = Left(Application.UserName, 1) & Mid(Application.UserName, InStr(Application.UserName, "-") + 1, 2)
    End If
    Cells(Ligne, "K, P").Value = Utilisateur
End Sub
 
Vote positif 0 Vote négatif
Re : Nom utilisateur dans fichier partage

Sans chercher d'optimisation :

Code: 
Dim Ligne As Long, Colonne As Long, Col As Long

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("g3:j71")) Is Nothing Then
Ligne = Target.Row: Colonne = Target.Column: Col = 11
    If Target.Value = "" And WorksheetFunction.CountA(Range(Cells(Ligne, "G"), Cells(Ligne, "J"))) = 0 Then Cells(Ligne, "K").Value = "": Exit Sub
    If UCase(Target.Value) <> "X" Then Exit Sub
    If Colonne = 9 Or Colonne = 10 Then
        Inscription_Nom
    ElseIf (Colonne = 7 Or Colonne = 8) And WorksheetFunction.CountA(Cells(Ligne, "I"), Cells(Ligne, "J")) = 0 Then
        Inscription_Nom
    End If
ElseIf Not Application.Intersect(Target, Range("l3:o71")) Is Nothing Then
Ligne = Target.Row: Colonne = Target.Column: Col = 16
    If Target.Value = "" And WorksheetFunction.CountA(Range(Cells(Ligne, "L"), Cells(Ligne, "O"))) = 0 Then Cells(Ligne, "P").Value = "": Exit Sub
    If UCase(Target.Value) <> "X" Then Exit Sub
    If Colonne = 14 Or Colonne = 15 Then
        Inscription_Nom
    ElseIf (Colonne = 12 Or Colonne = 13) And WorksheetFunction.CountA(Cells(Ligne, "L"), Cells(Ligne, "O")) = 0 Then
        Inscription_Nom
    End If
End If
End Sub

Private Sub Inscription_Nom()
Dim Utilisateur As String
    If InStr(Application.UserName, "-") = 0 Then
        Utilisateur = Application.UserName
    Else:
        Utilisateur = Left(Application.UserName, 1) & Mid(Application.UserName, InStr(Application.UserName, "-") + 1, 2)
    End If
    Cells(Ligne, Col).Value = Utilisateur
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
XL 2016 Recherche multi classeurs
Réponses
5
Affichages
286
mromain
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
H
  • Question Question
XL 2019 Trouver le nom d’une colonne et reporter les erreurs dans un tableau de bord
Réponses
7
Affichages
778
Homero18
H
C
  • Question Question
Autres Copier/Coller différentes données d'un tableau dans la même cellule de différents onglets
Réponses
8
Affichages
947
Camille36
C
G
  • Question Question
XL 2013 Macro avec nom de fichier et de feuille modifiable
Réponses
3
Affichages
1 K
sylvanu
G
  • Question Question
Microsoft 365 Cellule intermédiaire de référence à une autre page dans une fonction
Réponses
3
Affichages
944
sylvanu
L
  • Résolu(e)
XL 2013 Importer nom d'un fichier source
Réponses
4
Affichages
1 K
Leguyl
L
E
  • Résolu(e)
Microsoft 365 Afficher le nom du dernier onglet modifié dans une cellule
Réponses
14
Affichages
2 K
ExcLnoob
E
A
  • Question Question
XL 2016 Détecter si un ou des mots présents dans une plage sont présents dans une autre
Réponses
1
Affichages
2 K
fanch55
O
  • Résolu(e)
XL 2019 Récupérer le nom d'une feuille dans une formule matricielle
Réponses
4
Affichages
2 K
Optimal
O
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
D
  • Question Question
XL 2019 Besoin d'aide sur diverses macros
2 3
Réponses
31
Affichages
4 K
darknigthmare
D
W
  • Résolu(e)
Microsoft 365 Boucle Loop infinie lors écriture dans des fichier
Réponses
7
Affichages
1 K
Staple1600
E
  • Question Question
Afficher et modifier plage de cellule dans USF
Réponses
3
Affichages
955
erics83
E
S
  • Question Question
Microsoft 365 Ajout en fin de colonne dans un fichier fermé avec ADO
Réponses
0
Affichages
844
Street filou
S
M
  • Question Question
XL 2016 Modification fichier Excel pour chrono kart avec cellule IR
2
Réponses
17
Affichages
3 K
Dranreb
T
  • Question Question
explication dans le fichier "Fichier vierge
3 4 5
Réponses
60
Affichages
5 K
CHALET53
C
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
B
  • Question Question
XL 2013 Formule Index et Match - Données dans un fichier fermé et nom du fichier dans une cellule
Réponses
2
Affichages
934
bouclesdor
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…