XL 2019 Copier valeur de plusieurs Textbox

[netparty]

Bonjour à tous

J'aimerais pouvoir copier les valeurs de 2 textbox source pour ensuite pouvoir les coller dans 2 autres textbox de destination.

Mais ma destination peut-être la ligne des 2 textbox 3 et 4 ou la ligne des 2 textbox 5 et 6

Je joint mon fichier

Merci d'avance à tous

 

[Eric C]

Bonsoir le forum
Bonsoir netparty

Pas bien saisi mais peut être que ceci fera l'affaire (j'en doute mais.... je me lance) :

Private Sub CommandButton1_Click()
TextBox3.Value = TextBox1.Value
TextBox4.Value = TextBox2.Value
End Sub

Bonne soirée à toutes & à tous
@+ Eric c

 

[netparty]

Bonjour @Eric C

Merci mais j'aimerais passer par des variable
j'ai essayé ceci, mais cela ne marche pas

Public Sub BP_Copier_Source0_Click()
'   **********************************
'   * Copier valeur attribut TextBox
'   **********************************
Dim valeur1 As String
Dim valeur2 As String


    valeur1 = TextBox1.Text
    valeur2 = TextBox2.Text


End Sub




 Public Sub BP_Coller_Destination0_Click()
'   *****************************************
'   * Coller nouvelle valeur attribut TextBox
'   *****************************************


TextBox3.Text = valeur1
TextBox4.Text = valeur2



End Sub

 

[ChTi160]

Bonjour netparty
Bonjour le Fil ,le Forum

Peut être en déclarant tes variables en tête de module et en "Public"

Option Explicit
Public Valeur1 As String
Public Valeur2 As String

Bonjour nne Journée
Jean marie

 

[ChTi160]

Re
ce qui semble fonctionner Lol Mais ! Serait-ce aussi Simple ? Lol

Option Explicit
Dim Valeur1
Dim Valeur2

Private Sub CommandButton1_Click()
With UserForm1
Valeur1 = .TextBox1
Valeur2 = .TextBox2
          .TextBox3 = Valeur1
          .TextBox4 = Valeur2
End With
End Sub

Bonne Journée

 

[ChTi160]

Re
Ou amors

Option Explicit
Dim Valeur1
Dim Valeur2

Private Sub CommandButton2_Click()
With UserForm1
Valeur1 = .TextBox1
Valeur2 = .TextBox2
          .TextBox3 = Valeur1
          .TextBox4 = Valeur2
End With
End Sub

Private Sub CommandButton3_Click()
With UserForm1
Valeur1 = .TextBox1
Valeur2 = .TextBox2
          .TextBox5 = Valeur1
          .TextBox6 = Valeur2
End With
End Sub

Private Sub CommandButton4_Click()
With UserForm1
Valeur1 = .TextBox1
Valeur2 = .TextBox2
          .TextBox7 = Valeur1
          .TextBox8 = Valeur2
End With
End Sub

Bonne Journée
Jean marie

 

[netparty]

Re
ce qui semble fonctionner Lol Mais ! Serait-ce aussi Simple ? Lol

Option Explicit
Dim Valeur1
Dim Valeur2

Private Sub CommandButton1_Click()
With UserForm1
Valeur1 = .TextBox1
Valeur2 = .TextBox2
          .TextBox3 = Valeur1
          .TextBox4 = Valeur2
End With
End Sub

Bonne Journée

Merci pour l'aide

 

[Valtrase]

Salut,
On n'use pas assez du débogage et de la compilation.

 Public Sub BP_Coller_Destination0_Click()
'   *****************************************
'   * Coller nouvelle valeur attribut TextBox
'   *****************************************
TextBox3.Text = valeur1
TextBox4.Text = valeur2
End Sub

Avec ce code, une simple compilation aurait affiché l'erreur variable non définie dans la mesure ou tu as bien définie Option Explicit en tête de module. ce que je conseille à tout le monde. Et qui aurait pu te mettre la puce à l'oreille.

 

[job75]

Bonjour à tous,

Je ne vois vraiment pas l'intérêt d'utiliser des variables ou de faire référence à UserForm1 :

Private Sub CommandButton2_Click()
TextBox3 = TextBox1
TextBox4 = TextBox2
End Sub

Private Sub CommandButton3_Click()
TextBox5 = TextBox1
TextBox6 = TextBox2
End Sub

Private Sub CommandButton4_Click()
TextBox7 = TextBox1
TextBox8 = TextBox2
End Sub

Et à quoi va servir CommandButton1 ?

A+