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