Bonsoir à tous
j'ai mis sur un module les déclaration suivante :
et sur un autre module
je fais appel au dernier code sur mon userform en validant sur le button enregistrer et la erreur d'exécution 1004 quelqu'un peux me donné un coup de demain svp
j'ai mis sur un module les déclaration suivante :
Code:
Public DES As Integer
Public Novo As Single
Code:
Public Function SauveD()
'Dim r
'Anomalies.Cells(DES, 8) = hotNewSign.Réf
Anomalies.Cells(DES, 2) = Hôt_Signalement.OptM
Anomalies.Cells(DES, 2) = Hôt_Signalement.OptV
Anomalies.Cells(DES, 3) = Hôt_Signalement.SignDate
Anomalies.Cells(DES, 4) = Hôt_Signalement.PlateForme
Anomalies.Cells(DES, 5) = Hôt_Signalement.NomTS
Anomalies.Cells(DES, 6) = Hôt_Signalement.Nomhôtel
Anomalies.Cells(DES, 8) = Hôt_Signalement.NomFamille
Anomalies.Cells(DES, 9) = Hôt_Signalement.CléLien
Anomalies.Cells(DES, 10) = Hôt_Signalement.Désignation
Anomalies.Cells(DES, 11) = Hôt_Signalement.DateSignalement
Anomalies.Cells(DES, 12) = Hôt_Signalement.OptOui
Anomalies.Cells(DES, 12) = Hôt_Signalement.OptNon
Anomalies.Cells(DES, 13) = Hôt_Signalement.DatePrise
Anomalies.Cells(DES, 14) = Hôt_Signalement.Commentaire