Discussion :

[janakka-horus]

Bonjour,

Ne connaissant pas grand chose en VBA


J'ai un tableau avec plusieurs Colonnes.
Je voudrais que sur la chaque cellules de la colonne B soit renseigné le nom utilisateur si les cellules de la colonnes A sont non vide.


Je ne sais pas si j'étais claire dans ma formulation.

Merci pour toute l'aide que vous pouvez m'apporter.

[curt]

Bonsoir,

essaie avec

Code :

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

Environ("username")

[janakka-horus]

Bonjour Curt

Merci pour ta réponse mais où dois-je mettre ce code ?

Peut-être que j'ai mal formulé ma demande.

il faut que sur les cellules de la colonne B soit indiqué le nom de l'utilisateur si les cellules de la colonne A sont non vides (exemple si A1 <> de vide alors B1 = utilisateur).

Cdt

[janakka-horus]

Bonjour
Ma demande n'est pas précise ?

[anasecu]

Bonsoir,

Je voudrais que sur la chaque cellules de la colonne B soit renseigné le nom utilisateur si les cellules de la colonnes A sont non vide.

Sans connaitre dans quelles conditions tu souhaites ta fonction, je te propose cette procédure à coller dans la feuille de ton tableau :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge = 1 And Not Intersect(Range("A:A"), Target) Is Nothing Then
        If Target <> "" Then
            Target.Offset(0, 1) = Environ("username")
        End If
    End If
End Sub

Lorsque la colonne A est saisie le nom se met en B.

[jurassic pork]

Hello,
Le souci avec la solution d'anasecu c'est que si les données existent déjà en colonne A, il faut forcer un changement (comment le faire automatiquement?) dessus pour que la colonne B se mette à jour.
Une autre solution consiste à utiliser une formule en colonne B qui appelle une fonction personnalisée.
Formule :

Code :

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

=SI(NON(A1="");Env("username");"")

avec la fonction personnalisée Env en VBA à insérer dans un module VBA :

Code :

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

1
2
3
Public Function Env(Value As Variant) As String
    Env = Environ(Value)
End Function

Le souci avec cette solution (qui n'en est peut-être pas un) c'est que le nom de user affiché dans la feuille dépendra du nom de l'utilisateur qui a ouvert le classeur.
Ami calmant, J.P