vba erreur d'éxecution-2447417848(80010108)

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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 ?

Bonjour,

Et si tu essayais ainsi?

Code:

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

07/05/2018, 21h07
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... ;) )
07/05/2018, 21h24
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 ..
07/05/2018, 21h40
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...
07/05/2018, 21h40
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?
07/05/2018, 21h57
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
07/05/2018, 22h02
parmi

Le bouton est bien sur le formulaire et il contient un contrôle txtCodMat?
07/05/2018, 22h06
bptlv

oui oui il est bien là. je te met un lien pour télécharger le fichier xlsm si tu veux voir.

https://drive.google.com/open?id=1PA...xyDB5SRTmWtHy2

il suffit de lancer le formulaire ingresoPieza et écrire n'importe quoi dans les champs puis Añadir et ça plante..

re
pierre a raison

pas utiliser xldown
pas selectionner
pas activate

tu peut te simplifier l'ecriture comme suit

Code:

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:

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 :oops:

Citation:
Envoyé par patricktoulon
re
pierre a raison

pas utiliser xldown
pas selectionner
pas activate

tu peut te simplifier l'ecriture comme suit
Code:

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:

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 :oops:
J'ai essayé les deux codes que tu as proposé, et l'erreur initiale 2447417848(80010108) persiste: il me dit que la méthode range à échoué...
ce que je ne comprends pas vu qu'il n'y a pas de range dans ta solution

07/05/2018, 22h52
parmi

Citation:

Envoyé par bptlv

oui oui il est bien là. je te met un lien pour télécharger le fichier xlsm si tu veux voir.

https://drive.google.com/open?id=1PA...xyDB5SRTmWtHy2

il suffit de lancer le formulaire ingresoPieza et écrire n'importe quoi dans les champs puis Añadir et ça plante..

Ton contrôle txtCodMat n'est pas sur le formulaire frmIngresoPieza, mais sur frmIngresoMat...
07/05/2018, 23h02
bptlv

Citation:

Envoyé par parmi

Ton contrôle txtCodMat n'est pas sur le formulaire frmIngresoPieza, mais sur frmIngresoMat...

Oups pardon je me suis trompé en ércivant la réponse: il faut bien lancer le formulaire frmingresomat

désolé

Tu travailles avec des tableaux listobjects, ce qui change un peu la donne...
Essaie comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub btnAñadir_Click()
    Dim nbLignes As Long
    Dim lstObj As ListObject, lstRow As ListRow
 
    Set lstObj = Worksheets("Materiales").ListObjects("Tableau3")
    With Worksheets("Materiales")
        Set lstRow = lstObj.ListRows.Add
        nbLignes = lstObj.DataBodyRange.Rows.Count + 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
 
    Set lstObj = Nothing
    Set lstRow = Nothing
 
End Sub

08/05/2018, 02h03
bptlv

j'ai essayé to programme et j'obtiens ce message d'errreur:

erreur d'execution -2147417848(80010108)
L méthode Add de l'objet 'ListRows a échoué.

ce qui est exactement le même code d'erreur que pour tous les autres codes que j'ai testé avant. Je pense donc que vous avez tous raison, mais qu'il doit y avoir quelquechose de pourri dans mon code qui fait que rien ne marche .... Vous pensez que si je recommence ce formulaire depuis le début j'ai une chance de régler l'affaire ?
08/05/2018, 03h38
parmi

J'ai bien fait le test et ça fonctionne bien de mon côté... (?)
Je ne pense pas que le problème vient du code, mais d'où ?
08/05/2018, 07h04
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:

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

PS: Au passage, je suppose que tu as bien vérifié la valeur de nbLignes...
08/05/2018, 13h51
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)
08/05/2018, 14h06
parmi

Commence par supprimer les lignes en trop dans tes onglets BOM et Materiales.
Le fichier va passer de 24 mo à 72 ko
08/05/2018, 14h14
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:

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

Voir 40 message(s) de cette discussion en une page