Discussion :

[nico18987]

Bonjour,

Voila, je suis débutant en VBA excel et je n'arrive pas a trouver comment faire pour alimenter la valeur de ma textbox avec une cellule.
L'idée étant par exemple :
L'utilisateur rentre son nom et prenom
et dans la textbox, le text affiché est "trois premiere lettre du nom"+"trois premiere lettre du prenom".

Est ce que cela est possible ?

Merci

[casavba]

Bonjour,

L'utilisateur rentre son nom et prenom

L'utilisateur saisit ces données où ?
le nom est saisi dans une cellule et le prénom dans une autre.
ou il les saisit dans une même cellule. Si c'est le cas, est ce qu'il y a un séparateur entre les deux.
ou est ce qu'il saisit ces données dans d'autres textbox.

Peux-tu préciser merci.

[nico18987]

En fait, le nom est dans une cellule et le prenom dans une autre. C'est l'utilisateur qui va saisir les données

[casavba]

Code :

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

1
2
 
Me.Textbox1.value = LEFT(Feuil1.Range("A1").value, 3) & " " & LEFT(Feuil1.Range("A2").value, 3)

Adaptes à ton cas.

[frolland46]

Bonjour

Tu peux faire le travail sans l'intervention VBA.
Dans la cellule située sous ta boite de texte (i.e a3), inscrit la formule

Code :

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

=gauche(a1,3)&" "&gauche(a2,3)

Pour donner la valeur de la cellule a3 à la boite de texte, tu sélection ta boite de texte et tu places le curseur dans la ligne de saisie et tu inscrits:

Code :

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

=a3

C'est ainsi que la boite de texte prend la valeur de a3.

salutations

[nico18987]

Bonjour,

Désolé j'ai essayé toutes vos methodes, mais je n'ai pas réussi ni l'une ni l'autre...

Pourriez me donner plus d'indication pour les mettres en execution.

Merci

[frolland46]

Bonjour

En fait la formule s'écrit plutôt avec des point virgules (

Code :

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

=gauche(a1;3)&" "&gauche(a2;3)

Cette formule te donne les trois premières lettres du prénom, un espace et les trois premières lettres du nom.

Comme la boite de texte n'accepte pas les formules mais seulement les références, c'est pour cette raison que tu dois définir ta donnée dans une cellule. Cette cellule peut être n'importe où.

Bonne journée

[OrDonc]

Bonsoir,

Si tu veux une réactualisation de la boîte dès le changement dans les cellules A1 et B1, essaie, dans la feuille, pas dans un module, le

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.Count > 1 Then Exit Sub 'permet de sélectionner plus d'une cellule sans message d'erreur
  If Target.Address = "$A$1" Then TextBox1.Text = Left(Target.Value, 3) & " " & Left(Target.Offset(0, 1).Value, 3)
  If Target.Address = "$B$1" Then TextBox1.Text = Left(Target.Offset(0, -1).Value, 3) _
     & " " & Left(Target.Value, 3)
End Sub