XL 2016 Erreur 1004 - Erreur définie par l'application ou par l'objet

[ReneDav14000]

Bonjour à tous,
Lorsque j'exécute le code ci-dessous, j'ai le message d'erreur ci-dessus qui apparaît et la dernière ligne du code est surlignée en jaune. D'où provient cette erreur s'il vous plaît ?
Merci par avance pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Code As Variant
Dim Systeme, Retard As Date

Application.ScreenUpdating = False
    
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        Sheets("BDD").Select
        
            Code = Sheets("BDD").Range("C3").Value
            
                If Not IsError(Application.Match(Code, Sheets("BDD").Range("C6:C1048576"), 0)) Then
                
            Ligne = Application.Match(Code, Sheets("BDD").Range("C6:C1048576"), 0) + 5
            Systeme = Format(Now, "hh:mm")
            
                If Sheets("BDD").Range("G" & Ligne).Value = "" Then
                    Sheets("BDD").Range("G" & Ligne).Value = Systeme
                
                ElseIf Sheets("BDD").Range("H" & Ligne).Value = "" Then
                    Sheets("BDD").Range("H" & Ligne).Value = Systeme
                    
                 ElseIf Sheets("BDD").Range("I" & Ligne).Value = "" Then
                    Sheets("BDD").Range("I" & Ligne).Value = Systeme
                  
                ElseIf Sheets("BDD").Range("J" & Ligne).Value = "" Then
                    Sheets("BDD").Range("J" & Ligne).Value = Systeme
                  
                ElseIf Sheets("BDD").Range("K" & Ligne).Value = "" Then
                    Sheets("BDD").Range("K" & Ligne).Value = Systeme
                  
                ElseIf Sheets("BDD").Range("L" & Ligne).Value = "" Then
                    Sheets("BDD").Range("L" & Ligne).Value = Systeme
                  
                Sheets("BDD").Range("C3").Select
                    Selection.ClearContents
                
                Sheets("BDD").Range("C3").Select
        End If
        End If
       End If
                        
                        DLigne = Range("A1048576").End(xlUp).Row
                            '[B]CETTE LIGNE EN-DESSOUS[/B]                  
                           Sheets("BDD").Range("M6:M" & DL).FormulaLocal = "si(et(G6<>"";H6<>"");H6-G6;si(et(G6<>"";H6="";et(I6<>"";J6=""));"";si(et(G6<>"";H6="";I6;J6<>"");Max_Matin-G6;si(et(G6<>"";H6="";et(K6<>"";L6<>""));"";si(et(G6<>"";H6="";I6="";J6="";K6="";L6<>"");Max_Matin-G6;"")))))"
                            
      
End Sub

 

[Staple1600]

Bonjour


Logiquement je dirais que
DLigne = Range("A1048576").End(xlUp).Row
'CETTE LIGNE EN-DESSOUS
Sheets("BDD").Range("M6:M" & DL).FormulaLocal =...

Devrait plutôt être, non ?

DLigne = Range("A1048576").End(xlUp).Row
'CETTE LIGNE EN-DESSOUS
Sheets("BDD").Range("M6:M" & DLigne ).FormulaLocal =...

 

[ReneDav14000]

Bonjour à tous,
Après modification du code comme me l'a suggéré Staple1600, que je remercie, j'ai maintenant cette erreur toujours sur la même ligne. Il copie la ligne de formule en L, je n'y comprends rien.
Merci pour votre aide s'il vous plait.

 

[Staple1600]

Bonjour le fil


@ReneDav14000
Il manque aussi le signe égal en début de formule
Sheets("BDD").Range("M6:M" & DLigne).FormulaLocal = "=si(et(G6

 

[ReneDav14000]

Bonjour le fil


@ReneDav14000
Il manque aussi le signe égal en début de formule
Sheets("BDD").Range("M6:M" & DLigne).FormulaLocal = "=si(et(G6

J'ai corrigé cette erreur mais j'ai toujours un message sur la même ligne. Désolé de vous ennuyer avec ça.
je vais essayer de reprendre mon code en entier et voir ce qui se passe.
Merci pour votre patience

 

[ReneDav14000]

MAX_Matin se trouve dans la feuille "Données" et c'est le nom d'une cellule, alors que la formule se trouve dans la feuille "BDD", le nom est valable pour tout le classeur, il faut peut-être que je l'indique dans la formule ?

 

[Staple1600]

Re

@ReneDav14000
Si on avait une version allégée, simplifiée et anonymisée de ton classeur, ne crois tu pas qu'on serait plus efficace pour t'aider ?

 

[Dranreb]

Bonjour.
Il faut un quatre guillemets consécutifs pour spécifier la constante texte vide.
Si, à défaut de joindre le classeur, vous nous expliquiez exactement à quelle condition vous voulez que M6 soit égal Max_Matin-G16 …

 

[job75]

Bonjour,

Ecrire à la fin :

DLigne = Range("A1048576").End(xlUp).Row
If DLigne < 6 Then DLigne = 6
Application.EnableEvents = False
Sheets("BDD").Range("M6:M" & DLigne).FormulaLocal = "=si(et(G6<>"""";H6<>"""");H6-G6;si(et(G6<>"""";H6="""";et(I6<>"""";J6=""""));"""";si(et(G6<>"""";H6="""";I6;J6<>"""");Max_Matin-G6;si(et(G6<>"""";H6="""";et(K6<>"""";L6<>""""));"""";si(et(G6<>"""";H6="""";I6="""";J6="""";K6="""";L6<>"""");Max_Matin-G6;"""")))))"
Application.EnableEvents = True

Comme le dit Dranreb il faut doubler les guillemets dans la formule.

A+

 

[ReneDav14000]

Bonjour Dranreb et job75,
Merci job75, avec ton code ça fonctionne. Merci également à Dranreb et à Staple1600 pour leur suggestion.
Meilleures salutations

 

[Dranreb]

Il n'empêche qu'on pourrait probablement écrire cette formule d'une façon un peu plus courte, si on parvenait déjà à comprendre d'une façon un peu plus synthétique ce qu'elle est censée faire.
(Quel dommage que dans vos images, celle du message cache les titres …)

 

[ReneDav14000]

Dranreb,
Merci pour votre proposition. Vous trouverez les explications dans une discussion que j'avais ouverte :

XL 2016 - Retranscrire une formule conditionnelle en Vba

Bonjour à tous, J'ai cette formule de calcul en colonne G de mon tableau et elle doit s'appliquer à toutes la colonne G quel que soit le nombre de ligne. Comment dois-je procéder ? Je pense devoir la traduire en Anglais ? Merci pour votre aide...

excel-downloads.com

S'il vous manque des éléments, n'hésitez pas à revenir vers moi.
Je joins également le fichier.

 

[Dranreb]

La discussion ne répond toujours pas à question du sens de cette formule. Seul un classeur joint y répondrait je crois. Je vais regarder ce dernier …

 

[ReneDav14000]

Le fichier ne suffit pas ?

 

[Dranreb]

Alors pourquoi tentez vous de liez les 3 paires d'informations alors qu'elles semble indépendantes ?
En M6 :

=SI([@[Heure départ matin]]>0;SI([@[Heure arrivée matin]]>[@[Heure arrivée matin]];[@[Heure départ matin]]-[@[Heure arrivée matin]];Max_Matin);"")

Feuil2.[M6].FormulaR1C1 = "=IF([@[Heure départ matin]]>0,IF([@[Heure arrivée matin]]>[@[Heure arrivée matin]],[@[Heure départ matin]]-[@[Heure arrivée matin]],Max_Matin),"""")"