Discussion :

[pelerin98]

Bonjour,

Dans un UserForm, j'initialise dans une zone de texte, un libellé avec 3 blancs à gauche.
Ces 3 blancs ont pour objet de pouvoir placer à la place des 2 premiers, une quantité.
Comment faire pour que le curseur soit sur le premier blanc à gauche et non pas sur le premier blanc à droite qui suit mon libellé ?

Merci à toutes et à tous.

[SfJ5Rpw8]

Bonjour,

tu ne te simplifierai pas la vie en utilisant 2 zones des texte ( l'une pour la quantité et l'autre pour la désignation ) ?

[Theze]

Bonjour,

Quand tu dis "3 blancs" tu veux dire 3 espaces ? Si c'est le cas, teste ceci sinon, précise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub UserForm_Initialize()
 
    With TextBox1
 
        .Text = "   <--indiquer la quantité !"
 
        .SelStart = 0
        .SelLength = 2
 
    End With
 
End Sub

Hervé.

[pelerin98]

Bonsoir Theze,

Ce que je souhaiterais :

Dans une Cellule Z1, placer 3 termes :

Le 1er est une quantité (à saisir)
Le 2ème est le contenu d’une autre cellule ( Y1 par exemple )
Le 3ème est un complément d’informations ( à saisir )

Comment entrer le plus économiquement possible dans la cellule Z1 :

1er terme & 2ème terme & 3ème terme

Merci et bonsoir

[Theze]

Bonjour,

Comme te l'a dit bbil, en utilisant 2 TextBox et un Label (pour la valeur issue de la cellule) et sur Exit des TextBox tu inscris dans la cellule :

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
17
18
 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    If TextBox1.Text <> "" And TextBox2.Text <> "" Then MettreDansCellule
 
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    If TextBox1.Text <> "" And TextBox2.Text <> "" Then MettreDansCellule
 
End Sub
 
Sub MettreDansCellule()
 
    Range("Z1") = TextBox1.Text & " " & TextBox2.Text & " " & Label1.Caption
 
End Sub

Hervé.

[pelerin98]

Merci à tous, je mets ça en forme.

Amicalement pelerin98