'''''''''''''''''''''''''''''''''''''''''''
Bonjour aux membres du forum,
Je reviens vers vous pour un léger bug. J'ai voulu reprendre à l'identique un code proposé par un des membres du forum sur un autre de mes tableaux (quasi identique), mais il m'apparaît une erreur de type 438 "propriété ou méthode non gérée par cet objet".
J'ai du mal encoder un élément.
'Procédure permettant de valider les champs du formulaire, confirmer et quitter
'''''''''''''''''''''''''''''''''''''''''''
Private Sub Cmdbvalider_Click()
Dim Ctl As Control
Dim Cell As Range
Set Cell = Worksheets("Animations 2017").Range("A" & Rows.Count).End(xlUp).Offset(1)
For Each Ctl In Me.Controls
If IsNumeric(Ctl.Tag) Then
Cel.Offset(0, Ctl.Tag - 1).Value = Ctl.Value
End If
Next
Unload Frmajout
MsgBox "Cette demande d'animation a bien été ajoutée", vbOKOnly + vbInformation, "CONFIRMATION D'AJOUT"
End Sub
Merci d'avance