copie uerform vers une autre userform

[angoul]

Bonjour,

j'ai un userform article que je renseigne, quand je saisie un article non connu, il m'ouvre une nouvelle fenetre de saisie.

est ce qu'il est possible de copie les informations de mon useform article, dans mon nouveau userform saisie automatiquement, ce qui permettrai d'avoir certaine case rempli a l'avance.

cordialement

 

[Dull]

Re : copie uerform vers une autre userform

Salut angoul, le Forum

Tu as UserForm1 et UserForm2

quand tu es sur le 2 et au click sur le Bouton Valider

with UserForm1
    .TextBox1.value=TextBox1.value
    .TextBox2.value=TextBox2.value
    .TextBox3.value=TextBox3.value
    'Etc...Etc
End With

un essai en Pièce Jointe

Bonne Journée

 

[JNP]

Re : copie uerform vers une autre userform

Bonjour Angoul, Dull 🙂,
Désolé, Dull, mais ton exemple ne marche pas...😱
Une solution avec une publication de variable :
Code dans l'USF1

Public Texte1, Texte2, Texte3 ' Etc.
Private Sub CommandButton1_Click()
Texte1 = TextBox1.value
Texte2 = TextBox2.value
Texte3 = TextBox3.value
' Etc.
USF2.Show
End Sub

Code dans l'USF2

Private Sub UserForm_Initialize()
TextBox1.value = Texte1
TextBox2.value = Texte2
TextBox3.value = Texte3
' Etc.
End Sub

Bonne journée 😎

 

[Pierrot93]

Re : copie uerform vers une autre userform

Bonjour Angoul, Dull, Jnp

une autre solution :

code à placer dans le module de l'usf1

Private Sub CommandButton1_Click()
Load UserForm2
With UserForm2
    .TextBox1.Value = TextBox1.Value
    .TextBox2.Value = TextBox2.Value
    .Show
End With
End Sub

bonne fin d'après midi
@+

 

[angoul]

Re : copie uerform vers une autre userform

helas sa ne marche pas
parce que j'ai pas de CommandButton1
voici ou j'ai mis ma commande mais cela ne marche pas
une idée :
Private Sub CbxArticle_AfterUpdate()
'Pas d'article saisi
If Len(LTrim(Me.CbxArticle.Value)) = 0 Then
MsgBox "Renseigner l'article", vbInformation, "Caisse"
Exit Sub
End If
'Controle existance article
If Not ArticleExist(Me.CbxArticle.Value) Then
'Non : Appel a la saisie du de la fiche article
If MsgBox("article inconnu. Voulez-vous le créer", vbQuestion + vbYesNo, "Caisse") = vbNo Then
Me.CbxArticle.Value = " "
Load FrmArticle
With FrmArticle
.TxtCodArt.Value = CbxArticle.Value
.Show
End With
Else
FrmArticle.Show
End If
Else
Dim Lig As Long
Lig = ArticleLigne(Me.CbxArticle.Value)
Me.TxtArticle.Value = WrbCaisse.Sheets("Article").Range("B" & Lig).Value
End If
End Sub
merci

 

[JNP]

Re : copie uerform vers une autre userform

Re 🙂,
Tu le mets ici :

Me.CbxArticle.Value = " "
[COLOR=red]Texte1 = TextBox1.value
Texte2 = TextBox2.value
Texte3 = TextBox3.value
' Etc.
[/COLOR]Load FrmArticle

Bonne soirée 😎

 

[Pierrot93]

Re : copie uerform vers une autre userform

Re

peu importe, faut placer le code après avoir renseigné le(s) textbox concerné :

Load UserForm2 'ligne à supprimer si l'usf 2 est déjà chargé  
With UserForm2
    .TextBox1.Value = TextBox1.Value
    .Show 'tu peux supprimer cette ligne si tu ne veux pas afficher usf 2 immédiatement
End With

sans fichier, difficile pour moi de t'en dire plus...

@+

 

[angoul]

Re : copie uerform vers une autre userform

voila mon fichier
si quelqu'un peut y regarder :
Cijoint.fr - Service gratuit de dépôt de fichiers

merci