XL 2019 Text box VBA

[PRUDHOMME12]

Bonjour à tous
Novice en VBA, je cale sur comment remplir 3 lignes différentes avec 3 textbox. Ci-joint le fichier test
Merci à tous pour vos réponses

 

[soan]

Bonjour PRUDHOMME12,

bienvenue sur le site XLD ! 🙂

ton fichier en retour.

* fais Ctrl e ➯ affichage du formulaire UserForm1

* saisis le texte de ton choix dans les 3 TextBox, puis clique sur le bouton OK
➯ le texte des 3 TextBox est placé sur 3 lignes différentes, en A1 ; A2 ; A3

* supprime le texte des 3 TextBox, puis clique sur le bouton OK
➯ ça efface les 3 cellules A1 ; A2 ; A3

---

code VBA de Module1 (pour afficher le formulaire) :

Sub ShowForm()
  UserForm1.Show
End Sub

---

code VBA de UserForm1 :

Option Explicit

Private Sub cmdOK_Click()
  Dim chn$
  chn = TextBox1: [A1] = IIf(chn = "", Empty, chn)
  chn = TextBox2: [A2] = IIf(chn = "", Empty, chn)
  chn = TextBox3: [A3] = IIf(chn = "", Empty, chn)
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. 😉

soan

 

[PRUDHOMME12]

Merci soan pour ta réponse rapide ça fonctionne super.
Je vais t'embêter un peu plus j'aimerai faire la même chose mais en activcell pour pouvoir remplir n'importe quelle cellule.

 

[PRUDHOMME12]

Bonjour PRUDHOMME12,

bienvenue sur le site XLD ! 🙂

ton fichier en retour.

* fais Ctrl e ➯ affichage du formulaire UserForm1

* saisis le texte de ton choix dans les 3 TextBox, puis clique sur le bouton OK
➯ le texte des 3 TextBox est placé sur 3 lignes différentes, en A1 ; A2 ; A3

* supprime le texte des 3 TextBox, puis clique sur le bouton OK
➯ ça efface les 3 cellules A1 ; A2 ; A3

---

code VBA de Module1 (pour afficher le formulaire) :

Sub ShowForm()
  UserForm1.Show
End Sub

---

code VBA de UserForm1 :

Option Explicit

Private Sub cmdOK_Click()
  Dim chn$
  chn = TextBox1: [A1] = IIf(chn = "", Empty, chn)
  chn = TextBox2: [A2] = IIf(chn = "", Empty, chn)
  chn = TextBox3: [A3] = IIf(chn = "", Empty, chn)
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. 😉

soan

Merci soan pour ta réponse rapide ça fonctionne super.
Je vais t'embêter un peu plus j'aimerai faire la même chose mais en activcell pour pouvoir remplir n'importe quelle cellule.

 

[soan]

@PRUDHOMME12

je suis toujours là ; je vais faire ta 2ème demande. 🙂

soan

 

[PRUDHOMME12]

@PRUDHOMME12

je suis toujours là ; je vais faire ta 2ème demande. 🙂

soan

ok merci

 

[soan]

@PRUDHOMME12

la cellule active est A1 ; sélectionne n'importe quelle cellule, par exemple C5 ; fais les mêmes manips que précédemment ➯ ça fait pareil, pour la cellule active et les 2 autres cellules situées juste dessous. 🙂​

code VBA de Module1 : inchangé ; nouveau code VBA de UserForm1 :

Option Explicit

Private Sub cmdOK_Click()
  Dim chn$, lig&, col%
  lig = ActiveCell.Row: col = ActiveCell.Column
  With Cells(lig, col)
    chn = TextBox1: .Value = IIf(chn = "", Empty, chn)
    chn = TextBox2: .Offset(1) = IIf(chn = "", Empty, chn)
    chn = TextBox3: .Offset(2) = IIf(chn = "", Empty, chn)
  End With
End Sub

soan

 

[PRUDHOMME12]

@PRUDHOMME12

la cellule active est A1 ; sélectionne n'importe quelle cellule, par exemple C5 ; fais les mêmes manips que précédemment ➯ ça fait pareil, pour la cellule active et les 2 autres cellules situées juste dessous. 🙂​

code VBA de Module1 : inchangé ; nouveau code VBA de UserForm1 :

Option Explicit

Private Sub cmdOK_Click()
  Dim chn$, lig&, col%
  lig = ActiveCell.Row: col = ActiveCell.Column
  With Cells(lig, col)
    chn = TextBox1: .Value = IIf(chn = "", Empty, chn)
    chn = TextBox2: .Offset(1) = IIf(chn = "", Empty, chn)
    chn = TextBox3: .Offset(2) = IIf(chn = "", Empty, chn)
  End With
End Sub

soan

merci soan
c'est exactement ce que je voulais. c'est super
A bientôt sur excel dowloads

 

[patricktoulon]

Bonjour
perso je me simplifie la tache

Option Explicit

Private Sub cmdOK_Click()
   ActiveCell.Resize(3) = Application.Transpose(Array(TextBox1, TextBox2, TextBox3))
End Sub

 

[PRUDHOMME12]

Bonjour
perso je me simplifie la tache

Option Explicit

Private Sub cmdOK_Click()
   ActiveCell.Resize(3) = Application.Transpose(Array(TextBox1, TextBox2, TextBox3))
End Sub

Bonjour Patrick
Super ça fonctionne aussi trés bien
Merci à toi