Bonjour,
Je suis nouveau au niveau du forum qui est très intéressant.
Mon soucis est le suivant : J'ai un tableau "Dangers" avec les cellules "étapes, danger, détails, etc....
J'ai réussi à créer un userform avec tous les boutons, lorsque je clique sur le bouton valider, cela ne marche pas. Pour votre information, j'ai mis le code suivant :
Private Sub UserForm_Initialize()
Workbooks("Exemple HACCP.xls").Activate
cboEtape.RowSource = ("Parametrage!Etapes")
cboEtape.ListIndex = -1
cboDanger.RowSource = ("Parametrage!Dangers")
cboDanger.ListIndex = -1
cboFré.RowSource = ("Parametrage!Frequence")
cboFré.ListIndex = -1
cboGra.RowSource = ("Parametrage!Gravité")
cboGra.ListIndex = -1
cboDét.RowSource = ("Parametrage!Détection")
cboDét.ListIndex = -1
End Sub
Private Sub cmdValider_Click()
If txtDanger.Value = "" Then
MsgBox ("Il faut marquer le danger")
Exit Sub
num = Sheets("Dangers").Range("A65536").End(xlUp).Row + 1
Sheets("Dangers").Activate
Range("A" & num).Value = cboEtape.Value
Range("B" & num).Value = cboDanger.Value
Range("C" & num).Value = txtDanger.Value
Range("D" & num).Value = cboFré.Value
Range("E" & num).Value = cboGra.Value
Range("F" & num).Value = cboDét.Value
End If
End Sub
Je serais ravi si j'aurais un code correct et merci d'avance
Je suis nouveau au niveau du forum qui est très intéressant.
Mon soucis est le suivant : J'ai un tableau "Dangers" avec les cellules "étapes, danger, détails, etc....
J'ai réussi à créer un userform avec tous les boutons, lorsque je clique sur le bouton valider, cela ne marche pas. Pour votre information, j'ai mis le code suivant :
Private Sub UserForm_Initialize()
Workbooks("Exemple HACCP.xls").Activate
cboEtape.RowSource = ("Parametrage!Etapes")
cboEtape.ListIndex = -1
cboDanger.RowSource = ("Parametrage!Dangers")
cboDanger.ListIndex = -1
cboFré.RowSource = ("Parametrage!Frequence")
cboFré.ListIndex = -1
cboGra.RowSource = ("Parametrage!Gravité")
cboGra.ListIndex = -1
cboDét.RowSource = ("Parametrage!Détection")
cboDét.ListIndex = -1
End Sub
Private Sub cmdValider_Click()
If txtDanger.Value = "" Then
MsgBox ("Il faut marquer le danger")
Exit Sub
num = Sheets("Dangers").Range("A65536").End(xlUp).Row + 1
Sheets("Dangers").Activate
Range("A" & num).Value = cboEtape.Value
Range("B" & num).Value = cboDanger.Value
Range("C" & num).Value = txtDanger.Value
Range("D" & num).Value = cboFré.Value
Range("E" & num).Value = cboGra.Value
Range("F" & num).Value = cboDét.Value
End If
End Sub
Je serais ravi si j'aurais un code correct et merci d'avance