Recuperer valeur TextBox Userform et utiliser dans second module

Version imprimable

30/06/2017, 12h43
Allanbzh

1 pièce(s) jointe(s)

Recuperer valeur TextBox Userform et utiliser dans second module

Bonjour a tous,

Je vous contacte car je suis bloqué. Comme vous pouvez le voir sur mon fichier joint, lorsque l'on ajoute une production une forme se crée ainsi qu'un onglet. Ces deux créations sont reliées entre elles par un lien hypertexte.

Cependant, ce que j'aimerai c'est de créer ce lien en appuyant sur le bouton "Finish" et non sur le bouton "Add" une fois la textbox renseigner. Mais je n'arrive à rien car je ne sais pas stocker la valeur de la Textbox1.... J'ai essayer avec Public mais il apparaît en rouge, j'ai essayer dans un module de classe etc mais rien n'y fait...

Si je pouvais avoir une petite aide de ce coté ca serait un plus pour moi :roll:

PS : J'ai laissé la création de l'hyperlink avec le bouton add pour l'instant.

Merci d'avance

Allan
30/06/2017, 13h39
Majaaaax

Bonjour,

Peut de gens ici télécharge les fichiers. Essaye également de placer du code dans tes explications. Ça ferais un bon point pour que les membres veuilles te répondre.

Concernant ton problème, je ne comprend pas trop ce que tu tente de faire. Mais une fois que tu "Add" un texte, il est disponible sur ta feuille, donc autant récupérer le texte de la feuille plutôt que la valeur de la textbox, ce sera plus simple.

Enfin bon, essaye d'être un peu plus précis sur ce ton objectif s'il te plait.

Bonjour Majaaaax,

Ok pas de problème (je croyais justement que les utilisateurs préféraient les fichiers directement) :)

Code dans le module de lancement du bouton ajouter une nouvelle production :

Code:

1
2
3
4
Public Prod As String, X As String
Sub Lance3()
   Add_NewProduct.Show 1
End Sub

Code dans le UserForm (C'est ici que la textbox est remplie) :

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub UserForm_Initialize()
    Me.TextBox1.SetFocus
End Sub
Private Sub CommandButton1_Click()
 
Unload Me
 
End Sub
 
Private Sub CommandButton2_Click()
Dim L As Single, T As Single, H As Single, W As Single
Dim Shp As Shape
 
Prod = TextBox1.Text
 
X = Forme 'Prose probleme ici
 
If TextBox1.Text = "" Then
    MsgBox "Please Select a Product", vbExclamation, "Message Erreur"
Else
    ActiveSheet.Unprotect ("1995")
    With Worksheets("Main Sheet")
        Set Shp = .Shapes.AddShape(msoShapeRoundedRectangle, 525, 45, 89.5, 24.5)
        With Shp
'            .Fill.ForeColor.RGB = RGB(204, 255, 204)
'            .Line.ForeColor.RGB = RGB(0, 0, 0)
           .Name = "Forme"
            .TextFrame.Characters.Text = Me.TextBox1
            .TextFrame.HorizontalAlignment = xlHAlignLeft
            .TextFrame.Characters.Font.ColorIndex = xlAutomatic
            .TextFrame.Characters.Font.FontStyle = "Bold"
            .TextFrame.VerticalAlignment = xlVAlignCenter
            .TextFrame.HorizontalAlignment = xlHAlignCenter
            .Locked = True
        End With
 
Shp.Select
 
        'Paramètre Texte
   With Selection.Font
        .Name = "Calibri" '<-- police
        .Color = RGB(255, 255, 255)
       .Size = 12 '<-- taille
       .Bold = True '<-- mise en gras
   End With
 
End With
 
 
    Unload Me
 
    Sheets("Main Sheet").Select
 
        'Unhide shape new product (Done with Record Macro)
   ActiveSheet.Shapes.Range(Array("Horizontal Scroll 96")).Select
   ActiveSheet.Shapes.Range(Array("Group 104")).Visible = msoTrue
   Application.CommandBars("Selection").Visible = False
 
    ActiveSheet.Protect ("1995")
 
End If
End Sub

Code dans le module du bouton Finish qui va permettre d'ajouter le lien hypertext entre l'onglet et la forme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Protect()
Dim NouvelPage As String  '' petit changement ici
 
'Hide shape new product (Done with Record Macro)
    ActiveSheet.Shapes.Range(Array("Group 104")).Select
    ActiveSheet.Shapes.Range(Array("Group 104")).Visible = msoFalse
    Application.CommandBars("Selection").Visible = False
 
'Creation Hyperlink between Shape and Last Tab
 
    Sheets("PATTERN").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Prod
 
    NouvelPage = "'" & Prod & "'!A1"    '' petit changement ici > les deux lignes
   Worksheets("Main Sheet").Hyperlinks.Add Anchor:=(X), Address:="", SubAddress:=NouvelPage, ScreenTip:=" Page " & Prod
 
'Protectsheet
ActiveSheet.Protect ("1995")
 
End Sub

Donc vous pouvez voir que je n'arrive pas à définir ma variable dans le code de l'userform (X=....) pour pouvoir y faire reference dans le code ou je veux creer le lien hypertexte (Anchor:=(X)) ... Par rapport au premier post, j'ai reussi a definir ma variable "Prod" mais toujours pas le "X" :(

Allanbzh

30/06/2017, 14h47
Majaaaax

Je comprend ta demande, maintenant, il semblerais que tu ne déclare pas tes variables.
Le "Forme" ci contre, c'est quoi ? où est ce que tu récupères sa valeur ?

Code:

X = Forme 'Prose problème ici
30/06/2017, 14h52
Allanbzh

Re Majaaax,

Bien pourtant je pense la déclarer dans le module public du bouton nouvelle production ?? Je la déclare dans le module public pour pouvoir la réutiliser dans l'userform pour lui indiquer que le rectangle que je crée = X (ma forme), puis ensuite dans le module Finish pour relier la forme créée à mon onglet créé par la même occasion dans l'userform

Non ?

Allanbzh