Microsoft 365 erreur d'éxecution -2147417848 (80010108)

[eric72]

Bonsoir,

J'utilise un userform pour entrer des données dans un tableau et, bizzarement à intervalle irrégulier (1 fois sur 3 ou 4 entrées) j'ai ce bug qui apparait
et du coup ca ne prend pas en compte mon ajout de données, a ce moment il note juste ma date-entree et il plante sur cette ligne.
Quelqu'un a t il déjà rencontré ce problème ?
Merci beaucoup pour votre aide
Eric

Private Sub CommandButton1_Click()
Dim date_entree As Date
If Me.TextBox1.Value <> "" Then
date_entree = Format(Me.TextBox1.Value, "dd/mm/yyyy")
End If
Dim date_sortie As Date
If Me.TextBox6.Value <> "" Then
date_sortie = Format(Me.TextBox6.Value, "dd/mm/yyyy")
End If
Dim derligne As Integer
'Ne pas voir la macro s'exécuter
Application.ScreenUpdating = False
Call ToutDeproteger
'Ajouter un nouvel article
Sheets("Saisie").Select
If MsgBox("Confirmer la saisie", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("saisie").Range("f1048576").End(xlUp).Row + 1

Cells(derligne, 4) = date_entree 'VOILA LA CAUSE DU BUG
Cells(derligne, 5) = date_sortie
Cells(derligne, 6) = ComboBox1.Value
Cells(derligne, 7) = ComboBox2.Value
Cells(derligne, 8) = ComboBox3.Value
Cells(derligne, 9) = TextBox2.Value
Cells(derligne, 10) = TextBox3.Value
Cells(derligne, 11) = TextBox4.Value
Cells(derligne, 12) = TextBox5.Value
Cells(derligne, 16) = TextBox7.Value
End If
On Error GoTo Defaut

Photo = ComboBox4.Value
Image1.Picture = LoadPicture("C:\JCR\Photos Bijoux\" & Photo & ".Jpg")
Exit Sub
Defaut:
'Image1.Picture = LoadPicture("C:\JCR\Photos Bijoux\Defaut.Jpg")
'Rafraichir le tableau croisé dynamique
Columns("D").Select

Selection.NumberFormat = "m/d/yyyy"
Sheets("Stock Par Produit").Select
ActiveWorkbook.RefreshAll
Sheets("SAISIE").Select

Call ToutProteger
Unload FormulaireSaisie
'FormulaireSaisie.Show
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

 

[eric72]

du coup c'est ok pour les dates, par contre ca bug toujours toutes les 5 ou 6 nouvelles entrées,
un vrai casse tete ce truc
merci encore

 

[Dudu2]

Je ne comprends pas du tout ce qui se passe. Est-ce que c'est le tableau mis en forme Excel ?
Essaie ceci:
Créé un nouvelle feuille, sélectionne toute la feuille SAISIE (clic sur le petit triangle en haut à gauche), et Copier. Va sur la nouvelle feuille en A1 et Coller.
Renomme SAISIE en SAISIEOld et la nouvelle feuille en SAISIE.
Chez moi ça se passe mieux ainsi.

 

[eric72]

Apparemment cela fonctionne
le seul petit hic c'est que ma formule dans la colonne "produit"
affiche toujours le lien vers "saisie old" à chaque nouvelle entrée et donc affiche un n/a
au lieu du résultat,.
Merci beaucoup
eric

 

[Dudu2]

Ah oui, en effet. Il faut faire une rechercher / remplacement sur le classeur de "Saisie old" en "Saisie".

 

[eric72]

C’est ce que j’ai fait mais à la prochaine entrée ça ne tient pas compte de la modif, c’est bizarre
Tu vas en avoir marre de moi!!!

 

[Dudu2]

Avec le UserForm ça reprend l'ancienne feuille.
Où dans le code est valorisée cette colonne C ?

 

[Dudu2]

Y a plein de noms dans le Gestionnaire de noms. Sans doute à chercher par là...

 

[eric72]

J'ai bien fait remplacer par, ca marche pour les lignes existantes mais à chaque nouvelle entrée il me met un #Réf! à la place de "SAISIE!$F2988" dans la formule ci-après
La solution serait de inclure dans la macro le remplacer par mais ca n'est pas très académique comme méthode.
Pas simple tout ça!!!

=CONCATENER(TEXTE(D2988;"aa");RECHERCHEV(SAISIE!$F2988;donnees!$A$2:$B$500;2);" ";DROITE(C2987;NBCAR(C2987)-TROUVE(" ";C2987))+1)

 

[Dudu2]

D'où vient cette formule ?
Elle est mise par la macro ? A quel endroit ? Par quel moyen ?

 

[eric72]

non elle est dans la colonne "C"

 

[Dudu2]

Certes, mais elle n'y arrive pas toute seule ou par l'intervention des anges
Elle n'y est pas sur une ligne vide en colonne C. Lorsqu'on ajoute un item à la liste, qui l'y met ? Par quel moyen ?

 

[eric72]

si si c'est un tableau donc à chaque entrée avec le UserForm, les formules se dupliquent a la création d'une nouvelle ligne

 

[Dudu2]

Ok, donc c'est dans le Gestionnaire de Noms qu'il y a la pagaille.
D'ailleurs y a pas mal de #REF! dedans.
Mais là c'est ingérable pour intervenir dans les bidouilles d'Excel sur la gestion de ses tableaux.
D'ailleurs les modifications de ses Noms ne sont pas toutes autorisées.
Je ne sais plus quoi te proposer pour corriger, c'est plus possible.
A ta place (mais je n'y suis pas) je partirais de l'ancien fichier (sans SAISIEold), je supprimerai la feuille SAISIE (celle qui plante et qui a déjà probablement des soucis sur son tableau Excel pour planter), et je referais un feuille from scratch en vérifiant entre temps qu'il n'y a plus trace de la feuille SAISIE dans les Gestionnaire de Noms.

 

[eric72]

Bonjour,
Je vais voir ça, quoi qu'il en soit merci beaucoup pour le temps passé a tenter de me "dépatouiller"
Eric