Nom d'utilisateur dans un TextBox

Version imprimable

23/08/2011, 14h50
LaPanic

Nom d'utilisateur dans un TextBox

Bonjour,
je voudrais mettre en place une TextBox pour des commentaires comme une sorte de chat eg:
a chaque fois qu'un utilisateur voudrait mettre un commentaire, il sélectionne la TextBox donc le curseur doit se mettre sur la dernière ligne et insérer le nom de machine de l’utilisateur, voici a quoi le contenu du TextBox doit ressembler:

Pierre: il fait chaud
Paul: oui je confirme
jack: pas trop comme même

merci pour votre aide
23/08/2011, 15h25
SfJ5Rpw8

et tu sais faire quoi ? intercepter l'événement de sélection de ton text box ? récupérer le nom d'utilisateur ? écrire dans ton text box ?

essai de découper ton travail en tâche élémentaires et dit nous ce que tu n'arrive pas à faire ...

Merci bbil,

voici le code qui me permet d'activer la Textbox:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If CommandButton1.Caption = ("Insert Comment") Then
CommandButton1.Caption = ("Save")
 
With TextBox1
    .Locked = False
    .SetFocus
    .EnterKeyBehavior = True
    .BackColor = -2147483643
    .SpecialEffect = fmSpecialEffectSunken
    .MousePointer = fmMousePointerDefault
'    .CanPaste = True
End With
 
TextBox1.Value = ThisWorkbook.Worksheets("Dashboard").Range("B" & BB).Offset(0, 10 + ComboBox2.ListIndex)
Else
ThisWorkbook.Worksheets("Dashboard").Range("B" & BB).Offset(0, 10 + ComboBox2.ListIndex) = TextBox1.Value
CommandButton1.Caption = ("Insert Comment")
 
With TextBox1
    .BackColor = -2147483633
    .SpecialEffect = fmSpecialEffectFlat
    .Locked = True
    .MousePointer = fmMousePointerArrow
End With
 
End If

et je veux que lors de l'activation du TextBox il insère le nom de l'utilisateur si la TexteBox est vide sinon il doit insérer le nom dans la dernière ligne

je reste a votre disposition pour plus de détails

Bonjour LaPanic

Je ne sais pas si cela va te servir mais tu pourrais utiliser cette partie de code

Code:

1
2
3
4
5
6
7
8
 
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Déclaration de la variable du pseudonyme ( a renseigner )
 
 
TextBox1.Text = TextBox1.Text & Chr(10) & Environ("USERNAME") & " : "
 
End sub

Bonne chance ;)
Balborio

23/08/2011, 17h41
jfontaine
Bonjour,

Ci dessous une solution pour insérer le nom de l'utilisateur windows dans une textbox
Code:

1 2 3 Private Sub TextBox1_GotFocus() If TextBox1.Value = "" Then TextBox1.Value = Environ("USERNAME") & Chr(13) End Sub

Bonjour et merci pour vos réponses:
j'ai ajouté le code suivant et ça marche sauf que la j'essaye de perfectionner
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Dim Z, Y As String If CommandButton1.Caption = ("Insert Comment") Then CommandButton1.Caption = ("Save") Z = ThisWorkbook.Worksheets("Dashboard").Range("B" & BB).Offset(0, 10 + ComboBox2.ListIndex) With TextBox1 .Locked = False .SetFocus .EnterKeyBehavior = True End With TextBox1.Value = Z If TextBox1.Value = "" Then TextBox1.Value = Environ("USERNAME") & ": " & Y Else TextBox1.Value = Z & Chr(10) & Chr(10) & Environ("USERNAME") & ": " & Y End If Else ThisWorkbook.Worksheets("Dashboard").Range("B" & BB).Offset(0, 10 + ComboBox2.ListIndex) = TextBox1.Value CommandButton1.Caption = ("Insert Comment") With TextBox1 .Locked = True End With End If
j'ai ajouté une variable Y pour récupérer le texte saisi par l'utilisateur car si celui ci saisie un texte donc il peut sauvegarder son nom et le texte saisi sinon (ne saisi aucun texte ) il sauvegarde le texte initial dans la TextBox
je me suis un peut embrouillé et merci pour votre aide

Bonjour,
j'ai trouvé une solution qui marche bien sauf que si c'est possible d'optimiser !?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub CommandButton1_Click()
Dim Z, Y, W As String
 
Y = Environ("username") & ": "
If CommandButton1.Caption = ("Insert Comment") Then
    CommandButton1.Caption = ("Save")
    Z = ThisWorkbook.Worksheets("Dashboard").Range("B" & BB).Offset(0, 15 + ComboBox2.ListIndex)
    With TextBox1
        .Locked = False
        .SetFocus
        .EnterKeyBehavior = True
    End With
 
        If Len(Z) - Len(Y) > 0 Then
            W = Z & Chr(10) & Chr(10) & Y
        Else
            W = Y
        End If
        TextBox1.Value = W
Else
 
        If Len(TextBox1.Value) - Len(Y) > 0 Then
 
            If Right(TextBox1.Value, Len(Y)) = Y Then
                TextBox1.Value = ThisWorkbook.Worksheets("Dashboard").Range("B" & BB).Offset(0, 15 + ComboBox2.ListIndex)
            End If
 
        Else
            TextBox1.Value = ""
        End If
 
    ThisWorkbook.Worksheets("Dashboard").Range("B" & BB).Offset(0, 15 + ComboBox2.ListIndex) = TextBox1.Value
    CommandButton1.Caption = ("Insert Comment")
 
    With TextBox1
        .Locked = True
    End With
 
End If
End Sub

merci pour votre aide