Discussion :

[chyanon]

Bonjour à tous,

J'ai un fichier qui contient 11000 lignes en partage avec des collègues.
Nous pouvons tous modifier le contenu de ce fichier.
Les modifications se faisant par ligne je cherche à rajouter dans une colonne le nom de l'identifiant window qui a modifié la ligne.

Pour l'instant, j'arrive a récupérer l'identifiant window est à le ranger dans une cellule lorsque ma feuille subit un changement:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lpBuff As String * 25
Dim ret As Long
 
ret = GetUserName(lpBuff, 25)
Range("F1").value = lpBuff
 
End Sub

Maintenant je cherche a récupérer le numéro de la ligne modifiée pour ranger l'identifiant window dans la colonne ("F" & ligne).

En espérant avoir été assez clair.
Merci

[mnarchi]

Bonjour,
il suffit d'ajouter à la procédure évènementielle la ligne suivante:

Code :

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

ligne=Target.Row

bon courage

[chyanon]

Merci Mnarchi

Affaire résolu !
Je ne connaissais pas "target"

Voici mon code pour ceux qui cherchent comme moi

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
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lpBuff As String * 25
Dim ret As Long
Dim ligne
 
ligne = Target.Row
 
ret = GetUserName(lpBuff, 25)
 
Range("F" & ligne).Value = lpBuff
 
End Sub

[mercatog]

Attention quand même, quand la cellule F & ligne est changée (par le code même), l'évènement est appelé... boucle infinie.
Il est impératif d'inhiber l'appel de l'évènement change quand le code écrit dans la feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lpBuff As String * 25
Dim ret As Long, ligne As Long
 
ligne = Target.Row
ret = GetUserName(lpBuff, 25)
Application.EnableEvents = False
Range("F" & ligne).Value = lpBuff
Application.EnableEvents = True
End Sub