Alimenter une TextBox Avec le contenu d'une cellule

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

Citation:

---

Envoyé par nico18987

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.

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

Code:

---

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

---

Adaptes à ton cas.;)

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:

---

=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:

---

=a3

---

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

salutations

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

Bonjour

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

Code:

---

=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

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:

---

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

---