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