TextBox
[Bonjour,
j'ai créé à partir de différents forums une macro pour insérer de manière dynamique des textbox et des labels dans un userform.
Voici une version "simplifiée":
[size=85]Private Sub NbTotChas_Change()
Dim Obj As Control
Dim Cl As Classe1
Dim i As Integer
Dim PosX As Long
Set Collect = New Collection
PosX = 18
'test saisie
If NbTotChas.Value = "" Or NbTotChas.Value > 20 Then
MsgBox "Merci de saisir une valeur numérique et inférieure ou égale à 20"
Else:
RepèreLabel.Visible = True
DésignationLabel.Visible = True
QtéEnsembleLabel.Visible = True
QtéSousEnsLabel.Visible = True
For i = 1 To NbTotChas.Value
Set Obj = Me.Controls.Add("forms.TextBox.1")
With Obj
'textbox pour repère
.Name = "DésignationTextBox" & i
.Object.Value = "n°" & i
.Left = PosX + 50
.TextAlign = 2
.Top = 185 + (i * 20)
.Width = 70
.Height = 15
End With
Next i
End If
UserForm2FSC.Height = 255 + (NbTotChas.Value) * 19
UserForm2FSC.Width = 430
End Sub[/size]
Dans mon userform j'ai un bouton Creer_Click pour renseigner cette feuille excel du même classeur qui me sers de base de données.
Je crée dynamiquement une à plusieurs TexBox qui ont pour Name "DésignationTextBox1", "DésignationTetxBox2" etc,etc...
Private Sub CreerFSC_Click()
Sheets("Table").Range("A2").Value = AffaireFSCCombo.Value 'affaire
Sheets("Table").Range("B2").Value = NoAffFSCTextBox.Value 'NoAffaire
Sheets("Table").Range("C2").Value = PhaseAff.Value 'Phase affaire
Sheets("Table").Range("D2").Value = HeureDebitFSCTextBox.Value 'heures débit
Sheets("Table").Range("E2").Value = HeureUsiFSCTextBox.Value 'heures Usinage
Sheets("Table").Range("F2").Value = HeureSerFSCTextBox.Value ' heures Sertissage
Sheets("Table").Range("G2").Value = HeureMonFSCTextBox.Value 'heures Montage
Sheets("Table").Range("H2").Value = TotHeureFSCTextBox.Value ' Total heures
Sheets("Table").Range("I2").Value = NbTotChas.Value 'qté chassis
Sheets("Table").Range("J2").Value = DésignationTextBox1.Value
etc, etc suivant le nombre de textbox crée dynamiquement.
End Sub
Mais, j'ai une erreur 'd'éxécution 424' - Objet requis.
Qui peut me dire pourquoi cette erreur ? Faut-il inclure une instruction set?
Merci pour vos réponses.
Merci i20100 pour cette réponse, mais cela ne réponds pas exactement à ma question.
Je souhaite récupérer la valeur dans la textbox et la copier dans une cellule sans que cela provoque une erreur
d'éxécution '424'.
re,
peux-tu joindre ton fichier excel ?