Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

eric72

XLDnaute Accro
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
 

Dudu2

XLDnaute Barbatruc
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.
 
Dernière édition:

eric72

XLDnaute Accro
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
 

eric72

XLDnaute Accro
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

XLDnaute Barbatruc
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 ?
 

Dudu2

XLDnaute Barbatruc
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.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…