Erreur Excel : La méthode _Default de l'objet Range a echoué

Fermé

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 - 7 mars 2020 à 18:56
pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 - 9 mars 2020 à 09:45

Bonjour,
J'ai créé un code qui marchait (jusqu'à présent) et qui me permet d'ajouter à ma feuille de calcul les valeurs recueillies dans les textbox de mon userform.

Mais ici, il y a une erreur qui se déclenche dès que je clique sur le bouton AJOUTER , erreur qui fait au passage planter Excel.

Private Sub btnajouter_Click ()

Dim ligne As Integer

ligne = Sheets("données").Range("K456789").End(xlUp).Row + 1
Worksheets("données").Select
Feuil3.Select 'pour moi c'est la même chose que la ligne précédente, on m'a dit que ça réglerait le problème mais non...
Cells(ligne, 11) = TxtBox1.Value
Cells(ligne, 12) = TxtBox2.Value
Cells(ligne, 13) = TxtBox3.Value

End Sub

Le débogage me met (avant de faire crasher Excel) sur la ligne :

Cells(ligne, 11) = TxtBox1.Value

Merci de votre aide !

A voir également:

La méthode _default de l'objet range a échoué
Erreur 0x80070643 - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Une erreur s'est produite instagram ✓ - Forum Instagram
Si et excel - Guide

4 réponses

Réponse 1 / 4

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 mars 2020 à 07:32

Bonjour,

1- Ce n'est pas TxtBox, mais TextBox

2- Pour rechercher la première ligne vide, ecrivez plutôt ceci

 ligne = Sheets("données").Range("K" & rows.count).End(xlUp).Row + 1

Cdlt

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020
8 mars 2020 à 11:35

D'abord, merci de votre réponse, hélas cela ne fonctionne toujours pas (même message d'erreur sur la même ligne).

Pour le TextBox c'est le bon nom (j'ai renommé l'objet sur mon userform) et même avec votre code ça ne fonctionne pas..

Réponse 2 / 4

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 mars 2020 à 12:00

Dans votre code vous sélectionnez la feuille "Données" puis la feuille 3, les données vont donc dans la feuille 3.
Voici le code, avez-vous comme ceci?

Private Sub btajouter_Click()
    Dim ligne As Integer
    ligne = Sheets("données").Range("K" & Rows.Count).End(xlUp).Row + 1
    Sheets("données").Select
    Cells(ligne, 11) = TxtBox1.Value
    Cells(ligne, 12) = TxtBox2.Value
    Cells(ligne, 13) = TxtBox3.Value
End Sub

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020
8 mars 2020 à 15:42

Justement c'est ça le problème, le code fonctionne (je l'ai refait sur un autre userform) mais après une ou deux utilisations, il me remet ce message d'erreur...

Honnêtement je sais plus quoi faire ça m'énerve énormément...

Réponse 3 / 4

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 mars 2020 à 16:47

Et comment est fait le deuxième Userform? est-il identique?
Il y a forcément une explication, mais sans voir le fichier difficile d'en dire plus.
Si vous pouviez déposer un bout de fichier sans donnée confidentielle, !!!

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020
8 mars 2020 à 18:57

J'ai tout simplifié pour que mes données ne soient pas affichées et pour que vous puissiez tout de même constater l'erreur (j'ai peut-être mal réalisé une connexion entre variables mais le principal est là).
J'ai essayé avant de l'envoyer et ça ne marche toujours pas.
https://mon-partage.fr/f/kloMD8K1/
Merci.

Réponse 4 / 4

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 mars 2020 à 04:36

Bonjour,

Désolé, je n'arrive pas à reproduire votre problème, pour moi tout fonctionne correctement.
Quelles sont exactement les opérations que vous effectuez et sur quelle liste?

Cdlt

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020
9 mars 2020 à 09:45

Je clique sur le bouton qui permet l'ouverture du formulaire d'ajout, j'entre des données et je clique sur ajouter et c'est la que se déclenche l'erreur.

Mais je sais que tout doit fonctionner, ça marche sur d'autres ordinateurs mais pas sur le mien je comprendd pas...

Discussions similaires

Eerreur d’exécution '1004' "la méthode 'Range' de l'objet _ Global a échoué

erreur 438

Accéder à un objet depuis une de ses propriétés

Erreur 1004 : Méthode 'Range' de l'objet '_Worksheet' a échoué

La methode SAVE AS de l'objet Workbook a échoué

méthode range de l'objet global à échoué

Discussions similaires

Newsletters