Bonjour à toutes et à tous,
Dans un UserForm, j'ai un bonton qui me permet d'effacer toutes les données inscrites dans les différentes zones.
Le soucis que je rencontre est que lorsque les données sont effacées, la tabulation ne fonctionne plus. Pouvez-vous me venir en aide s'il vous plait ? Merci par avance
Voici mon code :
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
34 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