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

Membres actuellement en ligne

Statistiques des forums

Discussions
314 655
Messages
2 111 605
Membres
111 217
dernier inscrit
aladinkabeya2