Code pour ajouter une nouvelle donnéé dans un tableau excel

[linkon007]

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

 

[CHALET53]

Re : Code pour ajouter une nouvelle donnéé dans un tableau excel

Bonjour et bienvenue

difficile de tester puisque ton userform ouvre un autre fichier que nous n'avons pas

Peut-être un mauvais positionnement de ton End if dans ta procédure de validation

Private Sub cmdValider_Click()
If txtDanger.Value = "" Then
MsgBox ("Il faut marquer le danger")
Exit Sub
End If
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 Sub