Ajout de textbox a un userform ???

[Yves Vaillant]

je veux ajouter un textbox a un userform déja existant et quand je le fait il ne prend pas le nouveau textbox meme si il a une ligne de commande approprier quoi faire pour ne pas tout refaire a zéro..
Merci.....

 

[macpoy]

bonsoir le forum, bonsoir yves,
si tu as un classeur à modifier, il serait préferable de le mettre en piece jointe Stp.
avec une base de départ et quelques indications je veus bien tenter de t'aider.
bon excel @ +

 

[Yves Vaillant]

ok , bonjour a tous c est que mon classeur est trop grand pour le zipper alor je vais essayer d expliquer, J ai un userform une boite carrer qui apparait pour faire des entrée de données genre dans un carré la sorte de piece produite, la quantité , et de ex. 7:00 a 8:00 mais la j ai décider de rajouter la date et le numéro de l employer alor j ai ajouter deux carrés texbox dans mon userform qui se trouve dans ma macro et j ai rajouter deux ligne dans le programme quand je clique sur le userform qui se trouve dans la macro , mais quand je l essaie il ne voit que les carré qui exitait déja et non les nouveaux , alor c'est la ma question doige refaire au complet ou bien si je peut rajouter comme je l ai fait ...merci Yves...

 

[Abel]

Bonjour Yves, le fil,

Ben, normalement, quand tu ajoutes des objets dans un UserForm depuis la barre d'outils de VBE, ils doivent s'afficher avec le reste.

Au fait, les propositions Lien supprimé et Lien supprimé te conviennent-elles ?

Abel.

 

[Yves Vaillant]

Merci beaucoup pour ce petit bout de programme tu me sauve la vie..il a eu juste a ajouter Dim Labonneheure As String avec les autres et tout fonctionne a merveille merci encore..et pour le reste cé quand je rajoute deux autres carrer et les ligne de programme quand je l aissaie mon curseur ne va pas dedans comme si il n exitait pas
by by PAPA ...

 

[Abel]

Bonjour Yves,

Il nous faudrait un exemple (extrait) de ton fichier pour qu'on puisse voir ce qui ne colle pas.

Abel.

 

[Yves Vaillant]

Bonjour , ok avec ce programme j'entre dans un userform c'est a dire un carré avec des case , un pop pop et la j'en avait 6 et je veut en rajouté 2 autres puis j'ai rajouté deux autres et puis cela ne fonctionne pas car le curseur ne va que dans les six déja exitante et les autre sont la visuelle mais cé tout..pour le programme j'ai essayer de le réduire au plus simple expression et le max obtenue cé 74 k zipper. alor...
Merci



Option Explicit


'Macro pour entrée de donnée Yves Vaillant , prix de revient

Private Sub Userform1_Initialize()
Me.Caption = X
TextBox1.SetFocus 'Donne le focus à Cbo1 à l'initialisation

End Sub
Sub Heures()
Heure = TextBox5
Labonneheure = Replace(Heure, ".", ":")
Range("D15000") = Labonneheure

End Sub

Private Sub CommandButton1_Click()
Dim X As Integer
Dim i As Integer
Dim Nom As String
Dim Labonneheure As String
Dim Msg As Byte

Nom = TextBox1.Value 'PIECE
If Nom = "" Then Exit Sub
Msg = MsgBox(Nom, vbYesNo)
If Msg = 6 Then
X = Sheets("ENTRÉE").Range("A65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("A" & X).Value = Nom
For i = Range("A65536").End(xlUp).Row - 1 To 2 Step 1
Next



Nom = TextBox2.Value ' INDIRECT
X = Sheets("ENTRÉE").Range("C65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("C" & X).Value = Nom

Nom = TextBox3.Value ' EQUIPEMENT
X = Sheets("ENTRÉE").Range("b65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("b" & X).Value = Nom

Nom = TextBox4.Value ' QUATITÉ
X = Sheets("ENTRÉE").Range("F65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("F" & X).Value = Nom


Nom = TextBox5.Value ' DE
X = Sheets("ENTRÉE").Range("D65536").End(xlUp).Row + 1
Labonneheure = Replace(Nom, ".", ":")
Sheets("ENTRÉE").Range("D" & X).Value = Labonneheure


Nom = TextBox6.Value ' A
X = Sheets("ENTRÉE").Range("E65536").End(xlUp).Row + 1
Labonneheure = Replace(Nom, ".", ":")
Sheets("ENTRÉE").Range("E" & X).Value = Labonneheure
End If

TextBox1.Value = "" ' POUR VIDÉ LES CASES DU POP
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox1.SetFocus 'le curseur revient en haut
End Sub

Private Sub Image1_Click()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub UserForm_Click()

End Sub
Private Sub CommandButton2_Click() ' POUR QUITTER LE POP
Unload Me
End Sub