erreur d'exécution 1004 erreur définie par l'application ou par l'objet

[xgaudin]

Bonjour à tous,
J'ai beau cherché, je ne trouve pas l'origine de cette erreur d'autant que le code est la copie exacte (hors références cellules) d'un code utilisé dans un autre fichier et qui fonctionne parfaitement.
A noter que je ne suis pas un expert en VBA et que j'ai construit mes fichiers en utilisant des codes glanés sur le net. Début du code bloquant (validation après modification sur le formulaire de modification) :

Private Sub Valider_Click()

Sheets("Données").Range("D" & LigneDeTransfert) = CDate(Me.ComboDate)
Sheets("Données").Range("G" & LigneDeTransfert) = Me.TextBox1.Value
Sheets("Données").Range("H" & LigneDeTransfert) = Me.TextBox7.Value

Merci à vous si vous pouvez m'éclairer.

 

[fhoest]

Re : erreur d'exécution 1004 erreur définie par l'application ou par l'objet

Bonjour,
je n'ai pas tester mais je pense que cela vient du fait que la variable LigneDeTransfert n'est pas déclarer.
il faut mettre ceci en tout en haut du code au dessus de tout.

dim LigneDeTransfert as long

puis ceci

Private Sub Valider_Click()

    If LigneDeTransfert = 0 Then Exit Sub
    
    Sheets("Données").Range("D" & LigneDeTransfert) = CDate(Me.ComboDate)
    Sheets("Données").Range("G" & LigneDeTransfert) = Me.TextBox1.Value
    Sheets("Données").Range("H" & LigneDeTransfert) = Me.TextBox7.Value
    Sheets("Donn

il faut instancier les variables c'est important.
A+

 

[pierrejean]

Re : erreur d'exécution 1004 erreur définie par l'application ou par l'objet

bonjour xgaudin

En tete du module userform mettre:

Public LigneDeTransfert

 

[xgaudin]

Re : erreur d'exécution 1004 erreur définie par l'application ou par l'objet

Merci pierrejean
Cela fonctionne parfaitement !

Bonne soirée