Microsoft 365 Problème Débogage VBA

[eric72]

Bonjour à tous,
J'ai une macro qui me pose un problème, lorsque j'utilise celle-ci elle fonctionne parfaitement 2 fois et la 3ème fois elle me fait un débogage de type erreur 1004 la méthode cells de l'objet worksheet à échoué ( à la ligne " .Cells(Derligne, 4) = IIf(Date_entree = 0, "", Date_entree") et je ne vois pas du tout pourquoi.
Avez vous une idée et pourquoi seulement 1 fois sur 3 :

Private Sub CommandButton1_Click()
Dim Date_entree As Date
Dim Date_sortie As Date
Dim Derligne As Long

'Contrôle date d'entrée

'If Me.TextBox1.Value <> "" Then
'Date_entree = Format(Me.TextBox1.Value, "dd/mm/yyyy")
'End If

'If Me.TextBox6.Value <> "" Then
'Date_sortie = Format(Me.TextBox6.Value, "dd/mm/yyyy")
'End If
If Me.TextBox1.Value <> "" Then
If Not IsDate(Me.TextBox1.Value) Then
MsgBox "La date d'entrée saisie n'est pas un date valide !"
Me.TextBox1.SetFocus
Exit Sub
Else
Date_entree = CDate(Me.TextBox1.Value)
End If
End If

'Contrôle date de sortie
If Me.TextBox6.Value <> "" Then
If Not IsDate(Me.TextBox6.Value) Then
MsgBox "La date de sortie saisie n'est pas un date valide !"
Me.TextBox6.SetFocus
Exit Sub
Else
Date_sortie = CDate(Me.TextBox6.Value)
End If
End If

'Inhibe l'affichage
Application.ScreenUpdating = False



'Ajouter un nouvel article
If MsgBox("Confirmer la saisie", vbYesNo, "confirmation") = vbYes Then
With ThisWorkbook.Sheets("SAISIE")
.Select
'Déprotection
Call ToutDeproteger
Derligne = .Range("F" & Rows.Count).End(xlUp).Row + 1

.Cells(Derligne, 4) = IIf(Date_entree = 0, "", Date_entree)
.Cells(Derligne, 5) = IIf(Date_sortie = 0, "", 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 With
End If


'Error handling
On Error GoTo Defaut

Photo = ComboBox4.Value
Image1.Picture = LoadPicture("C:\JCR\Photos Bijoux\" & Photo & ".Jpg")
GoTo FinSub

Defaut:
'Image1.Picture = LoadPicture("C:\JCR\Photos Bijoux\Defaut.Jpg")
'Rafraichir le tableau croisé dynamique
Columns("D").NumberFormat = "m/d/yyyy"

Sheets("Stock Par Produit").Select
ActiveWorkbook.RefreshAll
Sheets("SAISIE").Select
Cells.Replace What:="#REF", Replacement:="SAISIE", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Save

Unload FormulaireSaisie
Call formuleColC
Call formuleColQ
Call formuleColR

Call ToutProteger
'FormulaireSaisie.Show


FinSub:
'Error handling
On Error GoTo 0

'Protection
Call ToutProteger

'Désinhibe l'affichage
Application.ScreenUpdating = True
End Sub

Merci de votre aide toujours aussi précieuse
Eric

 

[job75]

Bonjour eric72,

Merci de votre aide toujours aussi précieuse

Oui elle est précieuse et pour ne pas la fatiguer il faut joindre le fichier.

A+

 

[eric72]

merci pour votre réponse, le problème est qu'il y a plus de 3000 lignes de données, désolé je pensais que le texte de la macro suffirait, je vais voir si je peux effacer les données et envoyer un exemple simplifié
Merci

 

[eric72]

Et voilà le fichier!!!
Merci

 

[job75]

Chez moi quand j'entre la date 24/02/2021 en Date Entrée et clique sur Ajouter il y a bug et Excel plante.

Malgré mes recherches je ne vois pas pourquoi, tout ce que je peux dire :

- en feuille SAISIE les formules de la colonne C ne vont pas du tout, supprimez-les

- votre fichier est probablement vérolé ou endommagé.

 

[eric72]

dans la colonne C La formule permet d'agrémenter un N° automatique qui tient compte de l'année, du fournisseur, et d'un N° chronologique et c'est important pour moi.

Merci quand même!!!
Eric

 

[job75]

dans la colonne C La formule permet d'agrémenter un N° automatique qui tient compte de l'année, du fournisseur, et d'un N° chronologique et c'est important pour moi.

Mettez en colonne C une formule (unique) qui tient la route comme par exemple celle-ci :

=TEXTE([@[Date entrées]];"aa")&RECHERCHEV([@Fournisseur];Donnees!A$1:B$500;2;0)&" "&LIGNE()-1

 

[eric72]

J'ai essayé ta formule et elle me renvoie #N/A !!!

 

[job75]

J'ai essayé ta formule et elle me renvoie #N/A !!!

Elle renvoie #N/A uniquement si le fournisseur n'existe pas ou n'est pas trouvé, voyez le fichier joint.

On peut l'éviter en utilisant SIERREUR, vous le savez sûrement.

 

[job75]

Concernant le bug il semble qu'il soit dû au tableau structuré dans la feuille SAISIE.

En effet chez moi il n'y a plus de bug si l'on convertit ce tableau en plage.

 

[eric72]

j'ai refait un tableau sur un nouveau fichier, j'y ai intégré toutes mes données, recopié toutes les formules et cela ne bug plus, je pense en effet que mon fichier était endommagé.
Merci 1000 fois pour votre aide
Bonne soirée
Eric

 

[job75]

Comme je le pressentais au post #10 c'est le tableau structuré de la feuille SAISIE qui était vérolé.

Sur le fichier de votre post #4 :

- convertissez ce tableau en plage

- effacez tous les formats de la feuille

- recréez le tableau structuré

- mettez les colonnes D et E au format Date.

Il n'y a plus de problème avec l'entrée des données via l'UserForm.

 

[eric72]

Je crois avoir trouvé, dans mon userform de saisie, tout en haut dans ma liste déroulante, dès que je remet le lien par "decaler nbval" et que je renseigne le nom dans "rowsource", ça recommence à beuguer, je pense que le problème vient de là

 

[job75]

Bonjour eric72,

Vous avez tout à fait raison, c'est la propriété RowSource qui créait le pataquès.

Il faut créer la liste de ComboBox4 avec cette macro dans l'UserForm du fichier joint :

Private Sub ComboBox4_Enter()
ComboBox4 = ""
ComboBox4.List = [BaseDeDonnees].Value
ComboBox4.DropDown 'déroule la liste
End Sub

A+

 

[eric72]

super mais quand je copie la macro dans mon fichier il me met une erreur d'objet requis sur "ComboBox4.List = [BaseDeDonnees].Value", y a t il autre chose à modifier à part cette private sub
Désolé mais je ne suis pas très doué!!!