Discussion :

[bptlv]

bonjour bonjour,

je suis un bon gros débutant en vba et je rencontre un problème que je n'arrive pas à résoudre dans l'un de mes formulaires:

"erreur d'éxecution-2447417848(80010108), la methode default de lo'bjet Range a échoué"

j'ai en fait 2 formulaires où je saisis des informations qui viennent s'ajouter dans des lignes d'excel. le code est très simple mais je ne comprends pas pourquoi ça ne fonctionne pas. J'ai l'impression que l'erreur arrive au moment d'appeler Activecell pour la 1ere fois. Le programme plante et excel crash:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub btnAñadir_Click()
 
 
Worksheets("Materiales").Activate
Range("A1").Activate
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = txtCodMat
ActiveCell.Offset(0, 1).Value = txtNomMat
ActiveCell.Offset(0, 2).Value = txtDescripcionMat
ActiveCell.Offset(0, 3).Value = cboUnidadMaterial
ActiveCell.Offset(0, 4).Value = txtPesoUnid
ActiveCell.Offset(0, 5).Value = txtPrecioUnitario
MsgBox "Material añadido", vbOKOnly + vbInformation, "Comfirmacion"
 
 
End Sub

j'ai écrit le même code dans un autre formulaire, qui fonctionne très bien et n'affiche pas cette erreur. De plus, je modifie parfois le code pour essayer une autre solution et parfois il fonctionne au 1er lancement, mais plante aux suivants...

Pouvez vous m'aider svp ?

[parmi]

Bonjour,

Et si tu essayais ainsi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub btnAñadir_Click()
    Dim nbLignes As Long
 
    With Worksheets("Materiales")
        nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row + 1   '1ere ligne vide
        .Range("A" & nbLignes) = Me.txtCodMat
        .Range("B" & nbLignes) = Me.txtNomMat
        .Range("C" & nbLignes) = Me.txtDescripcionMat
        .Range("D" & nbLignes) = Me.cboUnidadMaterial
        .Range("E" & nbLignes) = Me.txtPesoUnid
        .Range("F" & nbLignes) = Me.txtPrecioUnitario
 
        MsgBox "Material añadido", vbOKOnly + vbInformation, "Comfirmacion"
 
    End With
End Sub

[Pierre Fauconnier]

Salut.

As-tu déjà quelque chose dans ta feuille Materials en colonne A?

Si non, avec .End(xlDown]tu vas plonger sur A1048576, puis tu vas essayer d'aller une ligne plus bas, mais il n'y en a pas.

En général, on remonte de A1048576 puis on décale de 1 vers le bas.

D'une façon générale, on ne sélectionne pas les cellules avec des .Select.

(C'est pour cela que je ne trouve pas pertinent qu'on dise à des débutants d'utiliser l'enregistreur de macros... )

[bptlv]

Bonjour Pierre, Bonjour Parmi

Pierre: Ma colonne A de la feuille Materiales contient déjà des données, et le code s'exécute très bien jusqu'au premier Activecell, puisque je vois qu'il se positionne juste en dessous de cette cellule comme je lui demande. Justement j'ai trifouillé sur le net et apparemment on peut faire le taf avec .Select ou .Activate, mais l'erreur est la même dans les deux cas. c'est donc au moment d'appeler ActiveCell que ça plante.
Je suppose que j'ai du coder comme un énorme débutant et que j'ai du faire une erreur évidente mais là je vois pas ...

Parmi: Ta solution fonctionne magnifiquement bien, je te remercie !
en revanche je ne comprends pas pourquoi ma solution ne fonctionne pas... tu aurais une idée ? c'est à dire que j'ai pas l'esprit programmation alors si je comprends pas je vais sans doute la refaire ..

[bptlv]

en fait je me suis trompé: ça marchait très bien, puis j'ai sauvegardé, fermé, réouvert, et ça ne marche plus. cette fois cest le range de

.Range("A" & nbLignes) = Me.txtCodMat

qui me fait afficher la même erreur, et plantage d'excel également...

[parmi]

Comme spécifié par Pierre (salut!), les Select/Activate/... ne sont pas conseillés, sauf peut-être dans de très rares cas.
Est-ce que tu peux voir sur quelle ligne survient l'erreur? ou est-ce aléatoire?

Tu parles de 2 formulaires... Est-ce qu'ils sont ouverts tous les deux au moment où ça plante?

[bptlv]

le code plante à la ligne 6 de ton code.
La methode range de l'objet worksheet a échoué

je t'avoue que je ne suis pas sur mais j'ai bien l'impression que seulement le formulaire en question est ouvert

[parmi]

Le bouton est bien sur le formulaire et il contient un contrôle txtCodMat?

[patricktoulon]

re
pierre a raison

1. pas utiliser xldown
2. pas selectionner
3. pas activate

tu peut te simplifier l'ecriture comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub btnAñadir_Click()
    Worksheets("Materiales").Activate
    With Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 6)
        .Value = Array(txtCodMat, txtNomMat, txtDescripcionMat, cboUnidadMaterial, txtPesoUnid, txtPrecioUnitario)
        MsgBox "Material añadido", vbOKOnly + vbInformation, "Comfirmacion"
    End With
End Sub

a noter que j'aurais pu merger le sheets et cell dans le with je lai laisser au cas ou un visuel sur le sheets t'es necessaire
comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub btnAñadir_Click()
    With Worksheets("Materiales").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 6)
        .Value = Array(txtCodMat, txtNomMat, txtDescripcionMat, cboUnidadMaterial, txtPesoUnid, txtPrecioUnitario)
        MsgBox "Material añadido", vbOKOnly + vbInformation, "Comfirmacion"
    End With
End Sub

j'ai fait quelques corrections

[Pierre Fauconnier]

Salut.

Essaies en utilisant explicitement les propriétés Value, car ici, ton code essaie de passer un textbox à une plage, alors que ce que tu veux faire, c'est passer la valeur du textbox à la valeur de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A" & nbLignes).VAlue = Me.txtCodMat.Value

PS: Au passage, je suppose que tu as bien vérifié la valeur de nbLignes...

[bptlv]

Bonjour et merci pour vos messages,

Je ne comprends toujours pas pourquoi ça ne fonctionne pas ... J'ai essayé d'envoyer un msgbox afin de savoir la valeur de nblignes, mais le programme plante sur la ligne avant, sur le Add de l'objet ListRows ...

J'ai effacé le formulaire, réécrit vos programmes et même en faisant ça j'obtiens ce message d'erreur. Je ne sais pas si ça va aider à résoudre, mais avant ça marchait très bien, et depuis, j'ai fait tourner un code matlab qui vient récupérer les données de la feuilles "Materiales" et qui corrige les erreurs de frappe et replace les données saines dans leurs cellules. Vous pensez que ça peut avoir une influence ? (j'ai fait ce code sur matlab parceque je suis beaucoup plus à l'aise avec)

[parmi]

Commence par supprimer les lignes en trop dans tes onglets BOM et Materiales.
Le fichier va passer de 24 mo à 72 ko

[bptlv]

J'ai essayé de remettre les données initiales (avant traitement sous matlab) dans l'onglet "Materiales", et j'ai lancé le programme de Parmi:
Le programme à fonctionné, ça marchait sans problème. J'ai sauvegardé sous un autre nom, fermé, réouvert, et quand j'ai voulu relancer, l'erreur -2447417848(80010108) réapparait...
Y aurait-il quelquechose qui se "corromp" quand je sauvegarde/ferme/réouvre ?

Parmi, pourrait tu m'envoyer ton exemple qui fonctionne stp ?

[parmi]

Parmi, pourrait tu m'envoyer ton exemple qui fonctionne stp ?

Je n'ai rien utilisé d'autre que ce que je t'ai écris.
Par contre, j'ai supprimé l'excédent de lignes des onglets BOM et Materiales pour ramener le fichier à 72 ko

[bptlv]

Je n'ai rien utilisé d'autre que ce que je t'ai écris.
Par contre, j'ai supprimé l'excédent de lignes des onglets BOM et Materiales pour ramener le fichier à 72 ko

ah okay, je l'ai fait aussi pourtant..

[Pierre Fauconnier]

Voilà un code générique qui illustre comment ajouter une ligne à un tableau structuré et pointer sur la nouvelle ligne dans la première colonne du tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
  Dim tb As ListObject
  Dim NewCell As Range
  Set tb = Feuil1.ListObjects(1)
 
  tb.ListRows.Add
  Set NewCell = tb.ListColumns(1).DataBodyRange(tb.ListRows.Count)
End Sub

Au passage, es-tu certain des noms que tu utilises pour la feuille et le tableau? Lors du plantage, vérifie dans tes variables locales si ton lstobj pointe bien vers un tableau ou s'il est nothing. Vu l'erreur, je pense qu'il est Nothing

[bptlv]

j'ai lstObj de type ListObject/ListObject dans l'afficheur de variables locales, sa valeur est à 0
ensuite à a ligne Set lstRow = lstObj.ListRows.Add
lstRow est de type ListRow mais prend la valeur Nothing
ensuite je bascule le point d'arret a la ligne en dessous et excel crash

pour les noms des feuille je suis sur que je me suis pas trompé car le programme marche, je viens de réussir à entrer des lignes, ensuite j'ai sauvegardé - fermé - ouvert et ça re-crash

[Pierre Fauconnier]

Qu'as-tu sauvegardé, fermé, ouvert? Le classeur?

Y-a-t-il du code qui s'exécute entre la fermeture du userform et celle du classeur (évènement à la fermeture, évènement sur une feuille ou dans le classeur...) ou à l'ouverture du classeur?

Ave le code de Parmi, il n'y a aucune raison que cela plante si tu fermes le classeur et que tu l'ouvres à nouveau. C'est qu'il se passe forcément quelque chose à un moment donné...

[clementmarcotte]

Bonjour,

À mon avis, tu dois regarder un peu ailleurs,

-2447417848(80010108) : C'est une erreur automation et tu viens enfin d'avouer que Matlab, ton serveur automation est dans le portrait. Tu as probablement quelque chose qui vient de Matlab et qu'Excel perd en chemin.

Quand on parle d'une question claire...

[bptlv]

Pierre, je parle bien de fermer le fichier .xlsm, mais il n'y a aucun code qui s'execute entre deux ouvertures/ fermetures de formulaires.

Je viens de faire l'expérience de quelquechose de très étrange puisque le problème semble avoir disparu tout seul sans que je fasse quoi que ce soit. Je n'ai aucune idée de la raison, mais en tout cas maintenant avec le programme de parmi ça fonctionne impeccablement bien.

Clement, je suppose que tu as raison l'erreur doit venir de là, mais je ne comprends pas car j'ai lancé le traitement matlab 1 seule fois et tout ce qu'il fait cest changer 2-3 caractères ma écrits dans des strings contenus dans mes cellules. Je ne vois pas où ça peut cafouiller. Désolé pour la clarté de la question... voyez vous je suis ingénieur mécanique et ignorant en langages de programmation