Discussion :

[Chicard]

Bonjour,

tous n'est pas dans le titre.

La question posée et comment importer plusieurs textbox d'un usf dans un autre pour ensuite remplir une cellule.

Donc en fait j'ai deux usf.

Le premier envoie dans mon second un nom(non modifiable).

Dans le second, on retrouve donc le nom envoyé par le premier puis des valeurs à rentrer (que des textbox).

Dans l'absolu, mon second usf enregistrera le texte des textbox que je stockerais (je ne sais pas où) lors de la sortie de mon usf n°2 jusqu'a ce que l'on finisse et valide l'usf n°1. Le tout étant ensuite placé dans une cellule.


dans la cellule en question nous aurons les données (concernées) disposées comme ceci:

nom boite
adresse
code postal + ville + cédex(éventuellement)
personne référente (prénom+nom)
tel
fax

J'utiliserais bien la ruse en créant un textbox invisible qui serais rempli par les autres textbox avec la mise en forme puis je le fais revenir dans le premier comme j'ai fait pour le nom avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm_rens_titulaire.TextBox_nom = UserForm_saisie_marche.TextBox_titulaire_marche

Mais je sais pas si je peux garder les données comme ça (y a toujours moyen).

Je voudrais savoir si il existe d'autres possibilités qui soit plus subtile que celle que j'ai "créé".

[SfJ5Rpw8]

Bonjour,

tu peu utiliser une variable de type chaine et publique pour cela tu créé un module (standard) ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim stMonNom as string

et dans ton userForm1 sur validation par exemple ... tu met à jour cette variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stMonNom = textBox1.text

et tu récupère cela dans le code de ton userform2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 textBox5.text =stMonNom

[Chicard]

J'avais pas pensé au variable publique.

Vu que j'ai 5 ou 6 textbox (voir un peu plus), je dois pouvoir les passer dans un tableau de string (), le tableau étant la variable publique.

Question (surement conne mais bon): pourquoi créer un module? Je ne pourrais pas faire ma déclaration publique avant de coder mon usf et ses composants.

[Chicard]

Bon je cale. Je pensais qu'en déclarant ça comme ça, ça passerait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim information As String
 
Private Sub Bouton_coordonnées_Click()
    'affichage fenêtre de renseignements du titulaire du marché
    UserForm_rens_titulaire.Show
End Sub  (en fait la déclaration est tout en au c'est la première chose que l'on voit)

c'est pas le cas car il est pas reconnu dans mon second userform. donc la solution par module standard est pas faite car j'arrive pas à la trouver sur le forum.

sinon j'ai fit ça en attendant ce qui ne sert à rien tant que l'envoie ne passe pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Bouton_enregistrer_Click()
 
     'Création d'une chaine pour contenir le texte de la textbox
    Dim text As String, fax As String, telephone As String, cedex As String
 
    If TextBox_cedex.text = Null Then
        cedex = ""
    Else
        cedex = "cedex " + TextBox_cedex.text
    End If
 
    TextBox_cedex.text = cedex
 
    If TextBox_telephone.text = Null Then
        telephone = ""
    Else
        telephone = "tel : " + TextBox_telephone.text
    End If
 
    TextBox_fax.text = fax
 
    If TextBox_fax.text = Null Then
        fax = ""
    Else
        fax = "fax : " + TextBox_fax.text
    End If
 
    TextBox_fax.text = fax
 
 
    text = TextBox_nom.text & vbLf & TextBox_adresse & vbLf & TextBox_code_postal & _
        TextBox_ville.text & TextBox_cedex.text & vbLf & _
        TextBox_prenom_referent.text & " " & TextBox_nom_referent.text & _
        vbLf & TextBox_telephone.text & vbLf & TextBox_fax.text
 
 
    'Remise de la chaine dans la variable textbox.text pour intégration dans
    'la dernière ligne du fichier par l'appel fait plus haut
 
 
    Unload UserForm_rens_titulaire
 
End Sub

[SfJ5Rpw8]

(...)
c'est pas le cas car il est pas reconnu dans mon second userform. donc la solution par module standard est pas faite car j'arrive pas à la trouver sur le forum.
(...)

peu-être que standard n'est pas le bon terme.. tu fais insertion module , tout simplement dans l'éditeur VBE.

[Chicard]

donc suite à ton conseil j'ai créé un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub declaration()
    Dim information As String
End Sub

Suite au remplissage de mes differents champs j'ai fait ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 text = TextBox_nom.text & vbLf & TextBox_adresse & vbLf & TextBox_code_postal & _
        TextBox_ville.text & TextBox_cedex.text & vbLf & _
        TextBox_prenom_referent.text & " " & TextBox_nom_referent.text & _
        vbLf & TextBox_telephone.text & vbLf & TextBox_fax.text
 
    information = text

jolie message d'erreur

variable ou procédure attendue et non un module

moi qui pensais que le module me servirait qu'à faire une déclaration de variable (mais j'ai peut-être merdé aussi.

Que c'est dur d'être une quiche en vba