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

ReneDav14000 · 15 Octobre 2022

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

VB:

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

job75 · 16 Octobre 2022

Bonjour,

Ecrire à la fin :

VB:

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+

Staple1600 · 15 Octobre 2022

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 · 16 Octobre 2022

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 · 16 Octobre 2022

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 · 16 Octobre 2022

Staple1600 à dit:
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 · 16 Octobre 2022

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 · 16 Octobre 2022

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 · 16 Octobre 2022

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 · 16 Octobre 2022

Bonjour,

Ecrire à la fin :

VB:

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 · 16 Octobre 2022

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

Dranreb · 16 Octobre 2022

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 · 16 Octobre 2022

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 · 16 Octobre 2022

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 · 16 Octobre 2022

Le fichier ne suffit pas ?

Dranreb · 16 Octobre 2022

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

Code:

=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);"")

VB:

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),"""")"

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

ReneDav14000

XLDnaute Occasionnel

job75

Staple1600

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

ReneDav14000

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

XL 2016 - Retranscrire une formule conditionnelle en Vba

Pièces jointes

Dranreb

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires