VBA Excel, TextBox qui ne fonctionne pas. - VB/VBA/VBS - Programmation
MarshPosté le 21-07-2019 à 11:50:10
Bonjour, Mon problème concerne l'utilisation d'un TextBox en VBA Excel. J'en utilise d'autres sur plusieurs programme et celui-ci ne fonctionne pas normalement. Pour chaque caractère inscrit, une ligne s'ajoute dans le fichier concerné avec pour la première ligne le premier caractère, puis les deux pour la deuxième lignes, etc.
Citation :
Private Sub Ob_cre_Change() Lab_txt.Visible = True Tb_cre.Visible = True Cmd_valid.Enabled = True Cmd_quit.Enabled = True With Tb_cre .SetFocus .SelStart = 0 End With End Sub Private Sub Tb_cre_Change() MaxLength = 40 txt1 = Tb_cre.Value dl = dl + 1 Sheets("Abt" ).Cells(dl, 3) = txt1
Ci-dessus, le code concerné. Merci d'avance pour toute réponse.
Marsh Posté le 21-07-2019 à 11:50:10
Bonjour,
Mon problème concerne l'utilisation d'un TextBox en VBA Excel.
J'en utilise d'autres sur plusieurs programme et celui-ci ne fonctionne pas normalement.
Pour chaque caractère inscrit, une ligne s'ajoute dans le fichier concerné avec pour la
première ligne le premier caractère, puis les deux pour la deuxième lignes, etc.
Private Sub Ob_cre_Change()
Lab_txt.Visible = True
Tb_cre.Visible = True
Cmd_valid.Enabled = True
Cmd_quit.Enabled = True
With Tb_cre
.SetFocus
.SelStart = 0
End With
End Sub
Private Sub Tb_cre_Change()
MaxLength = 40
txt1 = Tb_cre.Value
dl = dl + 1
Sheets("Abt" ).Cells(dl, 3) = txt1
Ci-dessus, le code concerné.
Merci d'avance pour toute réponse.