Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion xgaudin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

xgaudin

XLDnaute Nouveau
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.
 

Pièces jointes

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.
Code:
dim LigneDeTransfert as long
puis ceci
Code:
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+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
1 K
Réponses
4
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…