Bonjour au forum
J'ai un problème depuis 1 jour que je n'arrive pas à résoudre. Dans un USF, j'ai un combobox pouvant prendre 2 valeurs (Ajout et Suppr). Une fois que la valeur est prise, des textbox sont renvoyées sur une feuille.
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
35
36
37
38
39
40
41
42
43
44
45
46
47
If ComboBox1.Value = "AJOUT" Then
    Sheets("duo").Select
    Range("c65536").End(xlUp).Offset(0, 0).Select
    ActiveCell.Offset(0, 1).Value = "AJOUT"
    ActiveCell.Offset(0, 2).Value = "EFF"
    ActiveCell.Offset(0, 5).Value = UserForm2.TextBox3.Value
    ActiveCell.Offset(0, 6).Value = UserForm2.TextBox4.Value
    ActiveCell.Offset(0, 7).Value = UserForm2.TextBox5.Value
    ActiveCell.Offset(0, 8).Value = UserForm2.TextBox10.Value
    With ActiveCell.Offset(0, 1)
        .Borders.Weight = xlMedium
    End With
    With ActiveCell.Offset(0, 2)
        .Borders.Weight = xlMedium
    End With
    End If
    If ActiveCell.Offset(0, 6).Value = "6b" Or ActiveCell.Offset(0, 6).Value = "6a" Or ActiveCell.Offset(0, 6).Value = "5c" _
    Or ActiveCell.Offset(0, 6).Value = "5b" Or ActiveCell.Offset(0, 6).Value = "5a" Or ActiveCell.Offset(0, 6).Value = "4" Then
    ActiveCell.Offset(0, 14).Value = "1"
    With ActiveCell.Offset(0, 14)
        .Borders.Weight = xlMedium
    End With
    End If

If ComboBox1.Value = "SUPPR" Then
    Sheets("duo").Select
    Range("c65536").End(xlUp).Offset(0, 0).Select
    ActiveCell.Offset(0, 1).Value = "SUPPR"
    ActiveCell.Offset(0, 2).Value = "EFF"
    ActiveCell.Offset(0, 5).Value = UserForm2.TextBox3.Value
    ActiveCell.Offset(0, 6).Value = UserForm2.TextBox4.Value
    ActiveCell.Offset(0, 7).Value = UserForm2.TextBox5.Value
    ActiveCell.Offset(0, 8).Value = UserForm2.TextBox10.Value
    With ActiveCell.Offset(0, 1)
        .Borders.Weight = xlMedium
    End With
    With ActiveCell.Offset(0, 2)
        .Borders.Weight = xlMedium
    End With
    End If
    If ActiveCell.Offset(0, 6).Value = "6b" Or ActiveCell.Offset(0, 6).Value = "6a" Or ActiveCell.Offset(0, 6).Value = "5c" _
    Or ActiveCell.Offset(0, 6).Value = "5b" Or ActiveCell.Offset(0, 6).Value = "5a" Or ActiveCell.Offset(0, 6).Value = "4" Then
    ActiveCell.Offset(0, 14).Value = "0"
    With ActiveCell.Offset(0, 14)
        .Borders.Weight = xlMedium
    End With
    End If
Or quelque soit la valeur de ma combobox, j'ai toujours la valeur 0
Je ne sais pas où est le problème
Merci de m'aider