j'ai un zone de texte activex dans worksheet1 cela doit changer automatiquement basé sur valeur de la cellule lequel est dedans worksheet2 (où est ma table).
Cette valeur devrait être incrémenté, comme le concept de numéro d'identification qui augmente si vous ajoutez un client, la valeur incrémentée doit être affiché dans la zone de texte prêt à être sauvé.
Quelqu'un a-t-il une suggestion constructive concernant ce qui précède?
Réponses:
1 pour la réponse № 1Veuillez coller le code ci-dessous dans les feuilles de calcul (2) de votre classeur. TxtVal est également le nom de la zone de texte sur les feuilles de calcul (1).
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
"Assuming A1 is the cell in worksheet 2 and it has numeric value as it should be incremented.
If Target.Count = 1 And Target.Address = "$A$1" Then
If IsNumeric(Target.Value) Then Sheet1.txtVal.Text = CInt(Target.Value) + 1
End If
Application.EnableEvents = True
End Sub
