Bonjour à tous,
Dans un formulaire de saisies, j'ai plusieurs TxtBox que j'efface après une saisie afin de faire une nouvelle saisie. Le problème que je rencontre est que après l'effacement, la tabulation devient inactive.
D'où peut provenir ce problème et avez-vous une solution à me proposer ?
Merci par avance
Voici le code d'effacement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Private Sub CmbEf_Click() UFengt.CmbListeCred.SetFocus Dim vNUM As Long Dim Vcellule As Object With UFengt If Sheets("Engagements").Range("A6").Value = "" Then .TnumInc.Value = 1 Else vNUM = Sheets("Engagements").Range("A5").End(xlDown).Value + 1 .TnumInc.Value = vNUM .TxtDate = Date End If .CmbListeCred = "" .CmbListeTiers = "" .CmbListeBat = "" .CmbMarche = "" .CmbNom = "" .LstImpu1.Clear .LstImpu2.Clear .LstImpu3.Clear .LstLigne.Clear .LstTiers.Clear .TxtNumDev = "" .TxtDevis = "" .TxtObjet = "" .TxtNum = "" .TxtMontant = "0.00" .TxtNome = "" .CmbListeCred.SetFocus End With End Sub
Partager