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

Fermé
Boxcop1999 - Modifié le 30 avril 2019 à 13:46
 Boxcop1999 - 17 mai 2019 à 08:57
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 !
A voir également:

3 réponses

M-12
Messages postés
1202
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
2 juillet 2022
263
30 avril 2019 à 16:27
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")
0
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 ^^
0
f894009
Messages postés
16610
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 juillet 2022
1 646
30 avril 2019 à 16:34
Bonjour,

qui ne fonctionnent pas
Veut dire quoi au juste ???
0
Par "qui ne fonctionnent pas" j'entendais qui étaient affiché comme erronées lors du déboguage.
0
f894009
Messages postés
16610
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 juillet 2022
1 646
Modifié le 17 mai 2019 à 08:10
Bonjour,

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

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

Merci pour l'aide !
0