Erreur d'éxecution 1004 - HELP

gilbert_RGI

XLDnaute Barbatruc

• 6 Janvier 2014

• #16

Re : Erreur d'éxecution 1004 - HELP

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

msgbox cells(d,c).address

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 6 Janvier 2014

• #17

Re : Erreur d'éxecution 1004 - HELP

Voila la piece jointe , merci

 

Pièces jointes

• test.xlsm

  100.3 KB · Affichages: 23
• test.xlsm

  100.3 KB · Affichages: 28
• test.xlsm

  100.3 KB · Affichages: 33

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 6 Janvier 2014

• #18

Re : Erreur d'éxecution 1004 - HELP

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 6 Janvier 2014

• #19

Re : Erreur d'éxecution 1004 - HELP

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

VB:

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 ]

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Janvier 2014

• #20

Re : Erreur d'éxecution 1004 - HELP

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

C'était couru d'avance.

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 6 Janvier 2014

• #21

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 😡

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 6 Janvier 2014

• #22

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 6 Janvier 2014

• #23

Re : Erreur d'éxecution 1004 - HELP

il faut vérifier aussi c

même pas un like
super le service

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 6 Janvier 2014

• #24

Re : Erreur d'éxecution 1004 - HELP

gilbert_RGI à dit:

il faut vérifier aussi c

même pas un like

Cliquez pour agrandir...

????
je ne comprends pas

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 6 Janvier 2014

• #25

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 6 Janvier 2014

• #26

Re : Erreur d'éxecution 1004 - HELP

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

La reprise peut être

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Janvier 2014

• #27

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

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 6 Janvier 2014

• #28

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Janvier 2014

• #29

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

 

Dernière édition: 6 Janvier 2014

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 6 Janvier 2014

• #30

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

 

Vote positif 0 Vote négatif