Menu

Erreur d'execution 1004, erreur définie par l'application ou l'objet

-
Bonjour,

Je cherche à utiliser un userform qui viens récupérer les données de la pièce que je cherche à fabriquer et renseigne en sortie l'outillage nécessaire. Pour cela, je vais chercher dans une (assez petite) base de donnée excel les données outils afin de les comparer avec ce que veut l'utilisateur.

C'etait la théorie, maintenant dans la pratique, mon programme Excell plant dès que je vais récupérer les données dans la table où elles sont stockées, l'erreur exacte qui s'affiche est :
"Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet".

Pourriez-vous m'expliquer comment corriger ce problème ?
Je vous met la partie du code concernée avec la ligne qui pose problème ici:

Type CôtesNorm
    Diamètre As Double
    Dôme As String * 10
    Pression As Double
    Matrice As String * 10
    AngleRéel As Double
    Angle As Double
    HautParoi As Double
    BasParoi As Double
    EpaisseurFond As Double
    CoteRognage As Double
    HautDôme As Double
End Type

Dim CotesNorm(1 To 100) As CôtesNorm

'***********************
'LectureCotesNormalisées
'***********************

'Ce sous programme récupère les côtes présente dans la table CôtesNormalisées
'et les enregistre dans un tableau de variables pour effectuer les calculs.

Sub LectureCotesNormalisées()
    Dim I, J, K As Integer
    Sheets("CôtesNormalisées").Activate
    I = Sheets("CôtesNormalisées").Range("CôtesNormalisées").Row
    J = Sheets("CôtesNormalisées").Range("CôtesNormalisées").Column
    K = 1
    Range("CôtesNormalisées").Worksheet.Activate
        Do While Cells(I, J) <> Empty
            With CotesNorm(K)
                .Diamètre = Cells(I, J)
                .Dôme = Cells(I, J + 1)
                .Pression = Cells(I, J + 2)
                .Matrice = Cells(I, J + 4)
                .AngleRéel = Cells(I, J + 5)
                .Angle = Cells(I, J + 6)
                .HautParoi = Cells(I, J + 7)
                .BasParoi = Cells(I, J + 8)
                .EpaisseurFond = Cells(I, J + 9) - 0.08
                .CoteRognage = Cells(I, J + 10)
                .HautDôme = Cells(I, J + 11)
            End With
        I = I + 1
        K = K + 1
        Loop
    NbCotes = K - 1 'compteur du nombre de côtes
End Sub



Les lignes qui ne fonctionnent pas sont les lignes 27 et 28.


Merci d'avance !
Afficher la suite 

Votre réponse

3 réponses

Messages postés
539
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
7 mai 2019
77
0
Merci
Bonjour

Le nom de la feuille et de ton Range est identique
Commence par le renommer, et évite de placer des accents dans ton code,
cela sera des sources de problème en moins
Sheets("CôtesNormalisées").Range("CôtesNormalisées")
Commenter la réponse de M-12
0
Merci
Effectivement ça crée quelques problèmes...

J'ai finalement trouvé la source principale du problème, j'avais juste oublié de donner le bon nom à la cellule qui m'intéressait ^^
Commenter la réponse de Boxcop1999
Messages postés
14352
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 mai 2019
1371
0
Merci
Bonjour,

qui ne fonctionnent pas
Veut dire quoi au juste ???
Par "qui ne fonctionnent pas" j'entendais qui étaient affiché comme erronées lors du déboguage.
f894009
Messages postés
14352
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 mai 2019
1371 -
Bonjour,

Toujours pas resolu ??
Si Oui pas resolu, pouvez mettre un fichier exemple a dispo??
Bonjour,

Problème résolu, j'appelais tout simplement une case qui n'existait pas dans mon tableur !

Merci pour l'aide !
Commenter la réponse de f894009