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:
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
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:
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 = [COLOR="red"]"1"[/COLOR]
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 = [COLOR="Red"]"0"[/COLOR]
With ActiveCell.Offset(0, 14)
.Borders.Weight = xlMedium
End With
End If
Je ne sais pas où est le problème
Merci de m'aider