* 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) :
VB:
Sub ShowForm()
UserForm1.Show
End Sub
code VBA de UserForm1 :
VB:
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.
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.
* 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) :
VB:
Sub ShowForm()
UserForm1.Show
End Sub
code VBA de UserForm1 :
VB:
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.
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.
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 :
VB:
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
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 :
VB:
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