Erreur d'exécution 1004

[xgaudin]

Bonjour,
Sans connaître VBA, je l'utilise en ayant récupéré des codes sur le net. Un code utilisé sans PB sur d'autres fichiers ne fonctionne pas sur celui joint. La validation des données par le biais du formulaire "Saisie des réponses" génère une erreur 1004. Quelqu'un aurait-il la solution détaillée ? Merci d'avance

Private Sub Valider_Click()


Sheets("Données").Range("A" & LigneDeTransfert) = CDate(Me.ComboDate.Value)
Sheets("Données").Range("B" & LigneDeTransfert) = Me.ComboTheme.Value

 

[Guest]

Re : Erreur d'exécution 1004

Bonjour,

Il manque la déclaration de la variable LigneDeTransfert.

Rajouter en tête de module du userform avant toute déclaration de sub ou function la ligne suivante:

Private LigneDeTransfert As Long

A+

 

[xgaudin]

Re : Erreur d'exécution 1004

Merci beaucoup Hasco. Bonne fin de journée