Erreur d'éxecution 1004 - HELP

[ssassam]

Bonjour les amis,

Svp j'ai un bon code sauf qu'il beug par fois et me sort la fameuse Erreur 1004

Ci-aprés mon code , svp me corriger la ligne d'errer .

Option Explicit
Dim mot1 As String, mot2 As String, mot3 As String
Dim c As Integer, d As Integer
Dim e As Double
Dim cell As Range, cel As Range, Rg1 As Range, Rg2 As Range



Sub calculer()
e = Range("B23")
mot1 = Range("B16").Text
Set Rg1 = Sheets("BUDGET_BC").Range("c1:" & Range("C1").End(xlToRight).Address)


For Each cell In Rg1
        
    If cell.Value = mot1 Then
    c = cell.Column
    GoTo suite
    End If
Next cell


suite:

mot2 = Range("B17").Text
mot3 = Range("B18").Text
Set Rg2 = Sheets("BUDGET_BC").Range("A2:" & Range("A2").End(xlDown).Address)

For Each cel In Rg2
    
    If cel.Value = mot2 And cel.Offset(0, 1).Value = mot3 Then
    d = cel.Row
    GoTo suite2
    End If
        
Next cel

suite2:
Sheets("BUDGET_BC").Cells(d, c) = Sheets("BUDGET_BC").Cells(d, c) - e

Call hist

Sheets("BC").Range("B23").ClearContents
 
End Sub

Cordialement.

 

[gilbert_RGI]

Re : Erreur d'éxecution 1004 - HELP

cells(d,c) correspond à quelle cellule dans votre code ?

msgbox cells(d,c).address

 

[ssassam]

Re : Erreur d'éxecution 1004 - HELP

Voila la piece jointe , merci

 

[tbft]

Re : Erreur d'éxecution 1004 - HELP

Je ne vois pas d'erreur?????

 

[tbft]

Re : Erreur d'éxecution 1004 - HELP

tu devrais peut être prendre en compte lorsque c ou d =0

Sub calculer()
'Stop

e = Range("B23")
mot1 = Range("B16").Text
Set Rg1 = Sheets("BUDGET_BC").Range("c1:" & Range("C1").End(xlToRight).Address)


For Each cell In Rg1
        
    If cell.Value = mot1 Then
    c = cell.Column
    GoTo suite
    End If
Next cell

If c = 0 Then Exit Sub

suite:

mot2 = Range("B17").Text
mot3 = Range("B18").Text
Set Rg2 = Sheets("BUDGET_BC").Range("A2:" & Range("A2").End(xlDown).Address)

For Each cel In Rg2
    
    If cel.Value = mot2 And cel.Offset(0, 1).Value = mot3 Then
    d = cel.Row
    GoTo suite2
    End If
        
Next cel

If d = 0 Then Exit Sub

suite2:
Sheets("BUDGET_BC").Cells(d, c) = Sheets("BUDGET_BC").Cells(d, c) - e

Call hist

Sheets("BC").Range("B23").ClearContents
 
End Sub
[/highlight ]

 

[Dranreb]

Re : Erreur d'éxecution 1004 - HELP

Ma solution poste #13 affiche :
"613450" et "ASSURANCE-MATERIEL DE TRANSPORT" inexistant

C'était couru d'avance.

 

[ssassam]

Re : Erreur d'éxecution 1004 - HELP

Tbfp ton cordage a résolu mon problème 😀

Dranreb merci pour cette réclamation je ne sais pas pourquoi cette erreur 😕

Ou est l'errerr je sais pas , ça ma pris une semaine ce fichier Merde 😡

 

[tbft]

Re : Erreur d'éxecution 1004 - HELP

tu peux faire le test de plusieurs façons:
par exemple, il me semble que les "if c=0 then" ne soit pas obligatoire vue que ta macro passe directement à l'étiquette suite
tu pourrais faire un test juste avant la ligne avec

if (c=0) or (d=0) then
'petit message sur la boulette par msgbox
exit sub
end if

 

[gilbert_RGI]

Re : Erreur d'éxecution 1004 - HELP

il faut vérifier aussi c

même pas un like
super le service

 

[tbft]

Re : Erreur d'éxecution 1004 - HELP

il faut vérifier aussi c

même pas un like

????
je ne comprends pas

 

[ssassam]

Re : Erreur d'éxecution 1004 - HELP

Les amis est ce quelqu'un peux m'envoyer mon fichier test corriger avec vos remarque c'est le budget de la societé et je risque d'avoir des problème avec.
Merci infiniment pour votre aide

 

[tbft]

Re : Erreur d'éxecution 1004 - HELP

????????????????????
je ne comprends pas

La reprise peut être

 

[Dranreb]

Re : Erreur d'éxecution 1004 - HELP

Vous n'explorez pas toute les lignes de BUDGET_BC mais seulement les 10 1ères avec:
Set Rg2 = Sheets("BUDGET_BC").Range("A2:" & Range("A2").End(xlDown).Address), qui revient à :
Set Rg2 = Sheets("BUDGET_BC").Range("A2:" & ActiveSheet.Range("A2").End(xlDown).Address), qui revient à :
Set Rg2 = Sheets("BUDGET_BC").Range("A2:" & Sheets("BC").Range("A2").End(xlDown).Address). Il faut:
Set Rg2 = Sheets("BUDGET_BC").Range("A2:" & Sheets("BUDGET_BC").Range("A2").End(xlDown).Address), ou :
Set Rg2 = Feuil2.Range("A2:" & Feuil2.Range("A2").End(xlDown).Address

 

[ssassam]

Re : Erreur d'éxecution 1004 - HELP

Stp est ce que tu peux me communiquer le code complet je n'arrive plus a le toucher en risque de tout détruire.

 

[Dranreb]

Re : Erreur d'éxecution 1004 - HELP

Quand même pas difficile de rajouter Sheets("BUDGET_BC"). devant Range("A2").End(xlDown).Address ?!

Pareil pour le Set Rg1 plus haut d’ailleurs: il prend la Range("C1").End(xlToRight).Address de la feuille active, pas celle de BUDGET_BC puisque ce n'est pas précisé.

 

[ssassam]

Re : Erreur d'éxecution 1004 - HELP

Ah , oui j'ai reussi merci ,

Si vous avez des remarque n’hésiter pas svp.

Merci a vous tousse