copier valeur textbox USF1 dans autre textbox dans USF

[roybaf]

Bonjour,

L'intitulé parle de lui même, j'ai un textbox11 à remplir en USF1 je click sur un bouton de l'USF1 pour ouvrir un USF2 ou je dispose d'un autre textbox22 qui j aimerai, soit renseigné par la valeur de textbox11, sans que celui ci soit modifiable.

c'est en quelque sorte un formulaire qui ouvre un sous formulaire dont il reprend certains champs sans que l'on puisse les modifier.

le fichier est trop lourd je ne peut pas le déposer.

De plus j'ai un autre souci,

mon formulaire USF2 compte 6 lignes, qui une fois validés vont ce reporter dans un tableau, il trouve la dernière cellule renseigné en colonne A et se copie à la suite, mais j'ai des souci voici le code que j'ai :

[TABLE="class: outer_border, width: 500"]
[TR]
[TD]Private Sub valider2_Click()


If ComboBox1.Value = "" Then
MsgBox "Saisir nom du salarié ou Annuler"
Else: Sheets("DONNEES").Activate
With ActiveCell
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1) = ComboBox1.Value
Range("b" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = ComboBox7.Value
Range("c" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = TextBox18.Value
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1) = ComboBox2.Value
Range("b" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = ComboBox8.Value
Range("c" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = TextBox15.Value
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1) = ComboBox3.Value
Range("b" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 1) = ComboBox9.Value
Range("c" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 1) = TextBox12.Value
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1) = ComboBox4.Value
Range("b" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = ComboBox10.Value
Range("c" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = TextBox9.Value
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1) = ComboBox5.Value
Range("b" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = ComboBox11.Value
Range("c" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = TextBox6.Value
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1) = ComboBox6.Value
Range("b" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = ComboBox12.Value
Range("c" & Range("a" & Cells.Rows.Count).End(xlUp).Row + 0) = TextBox3.Value
End With
Unload salaire
End If


End Sub
[/TD]
[/TR]
[/TABLE]

J'aimerai bien qu'à la fermeture je soit renvoyé à la page "menu"

Gros chantier!!! Un courageux?
Merci à tous .

 

[Compte Supprimé 979]

Re : copier valeur textbox USF1 dans autre textbox dans USF

Bonjour Roybaf 😉

Pour ton 1er problème, dans le code du bouton, tu mets

UserForm2.TextBox22.Value = Me.TextBox11.value

Pour ton second et 3ème problème, tu incrémentes certaines lignes qui ne devraient pas l'être
Utilises plutôt ce code

Private Sub valider2_Click()
  Dim NLig As Long
  If ComboBox1.Value = "" Then
    MsgBox "Saisir nom du salarié ou Annuler"
  Else
    With Sheets("DONNEES")
      NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
      .Range("A" & NLig) = ComboBox1.Value
      .Range("B" & NLig) = ComboBox7.Value
      .Range("C" & NLig) = TextBox18.Value
      NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
      .Range("A" & NLig) = ComboBox2.Value
      .Range("B" & NLig) = ComboBox8.Value
      .Range("C" & NLig) = TextBox15.Value
      NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
      .Range("A" & NLig) = ComboBox3.Value
      .Range("B" & NLig) = ComboBox9.Value
      .Range("C" & NLig) = TextBox12.Value
      NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
      .Range("A" & NLig) = ComboBox4.Value
      .Range("B" & NLig) = ComboBox10.Value
      .Range("C" & NLig) = TextBox9.Value
      NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
      .Range("A" & NLig) = ComboBox5.Value
      .Range("B" & NLig) = ComboBox11.Value
      .Range("C" & NLig) = TextBox6.Value
      NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
      .Range("A" & NLig) = ComboBox6.Value
      .Range("B" & NLig) = ComboBox12.Value
      .Range("C" & NLig) = TextBox3.Value
    End With
    Sheets("Menu").Activate
    Unload salaire
  End If
End Sub

A+

 

[roybaf]

Re : copier valeur textbox USF1 dans autre textbox dans USF

Merci bruno, ton code à fonctionné sans problème du premier coup alors que cela faisait deux jours que je tournais ca dans tous les sens, par contre pour ma copie de textbox sa ne fonctionne pas, voilà mon code bouton, et mon USF1 se nomme "donées"(j'ai zappé un n mais pas grave sa me ferais changer trop de choses) et ma seconde USF "salaire"

Private Sub masse_Click()
salaire.Show
salaire.TextBox22.Value = Me.TextBox11.Value
End Sub

De plus, et je ne sais pas si c'est faisable, la textbox 22 devras se mettre en colonne d pour chaque champs renseignés pour le précédant code est-ce possible?

 

[Compte Supprimé 979]

Re : copier valeur textbox USF1 dans autre textbox dans USF

Re,

Normal, tu ouvres ton USF2 avant de remplir le TextBox, qui lui se remplira à la fermeture de ton USF2

Il faut faire

Private Sub masse_Click()
  salaire.TextBox22.Value = Me.TextBox11.Value
  salaire.Show
End Sub

Pour le reste sans fichier difficile de te répondre

A+

 

[roybaf]

Re : copier valeur textbox USF1 dans autre textbox dans USF

la text box se recopie, il fallait juste que je place le code au-dessus de salaire.show, merci bruno, rapide et efficace...

Pour mon dernier souci, je souhaiterai que lorsque combobox"X" est différent de "" alors copier textbox11 dans la colonne D de la ligne concernée est-ce possible?

 

[roybaf]

Re : copier valeur textbox USF1 dans autre textbox dans USF

je pourrai te l'envoyer par mail si tu me la communique par message privé, ou le mettre sur un serveur, j'essaye de trouver un serveur

 

[roybaf]

Re : copier valeur textbox USF1 dans autre textbox dans USF

Fichier : Partage de gros fichiers rapide internet
Taille du fichier : 309.25 KB
Utilisateur : t7rxh6q8
Mot de passe : mxkau5ky

 

[roybaf]

Re : copier valeur textbox USF1 dans autre textbox dans USF

merci de t'occuper de mon souci bruno.