macro qui fonctionnait mais bugue maintenant

[bpol]

Bonjour le Forum,

j'ai élaborer un fichier compta. tout fonctionnait mais maintenant que je veux l'utiliser j'ai une macro qui coince "impcaisse". à la page caisse

Où est l'os?

Merci
BPOL

voici le fichier http://cjoint.com/?bekHeFJJOs

 

[13GIBE59]

Re : macro qui fonctionnait mais bugue maintenant

Bonjour bpo

Dans

Range("C1") = Range("H4")

, tu n'as pas défini la feuille correspondante.

Ensuite, dans le test que j'ai fait, ta macro 'impcaisse appelle la macro 'caiise2 et là aussi il manque le nom de la feuille :

With Sheets([H26].Value)

A +

 

[Papou-net]

Re : macro qui fonctionnait mais bugue maintenant

Bonjour bpol,

Pas bien compris ton message, mais j'ai détecté une erreur lors du clic sur le bouton Caisse 2 de la feuille caisse, sii la case date ne contient aucune valeur.

J'ai donc corrigé ton code ainsi :

Sub caiise2()
'
' caiise2 Macro
' Macro enregistrée le 7/06/2009 par POLAIN
[COLOR="Blue"][B]On Error Resume Next[/B][/COLOR]
With Sheets(Feuil13.[H26])
        If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub
            Ligne = .[A65536].End(xlUp).Row + 1
            .Cells(Ligne, 1) = Format(Range("H27"), "mm/dd/yy")
            .Cells(Ligne, 2) = Range("H28")
            .Cells(Ligne, 3) = Range("H29")
 End With
 Sheets("caisse").Select
'and
Range("H9").Select
'
End Sub

J'ai fait de même avec caisse 1 :

Sub caisse1()
'
' caisse1 Macro
' Macro enregistrée le 4/06/2009 par POLAIN
[COLOR="Blue"][B]On Error Resume Next[/B][/COLOR]
With Sheets([H19].Value)
        If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub
            Ligne = .[A65536].End(xlUp).Row + 1
            .Cells(Ligne, 1) = Format(Range("H20"), "mm/dd/yy")
            .Cells(Ligne, 2) = Range("H21")
            .Cells(Ligne, 3) = Range("H22")
            
 End With
 Sheets("caisse").Select
 'and
 Range("N20") = Format(Range("H20"), "mm/dd/yy")
'and
Range("H9").Select

End Sub

Espérant t'avoir aidé.

PS : profites-en pour remplacer "caiise2" par "caisse2"

Cordialement.

 

[bpol]

Re : macro qui fonctionnait mais bugue maintenant

Bonjour,

quand j'apporte vos modifications les macros s'arrête et indique le message d'erreur
Sinon avec mes macros de Caisse1 et Caiise2 elle enregistre où il faut.
mais "impcaisse" s'arrête à:
Sub impCaisse()
'
' impCaisse Macro
' Macro enregistrée le 22/06/2009 par POLAIN
'
Application.ScreenUpdating = False

Sheets("caisse").Range("C1") = Sheets("caisse").Range("H4")
'and

With Sheets("journal caisse")
.Range("A1: D" & .[A65000].End(xlUp).Row).Name = "base"
Range("I4").FormulaR1C1 = "=TEXT('journal caisse'!R[-2]C[-8],""mmmm"")=R1C3"
.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I3:I4"), CopyToRange:=Range("B2: D2"), Unique:=False
[I4].Clear
End With
With ActiveSheet
.PageSetup.PrintArea = "$B:$D"
.PrintPreview



End With

'
End Sub

BPOL

 

[bpol]

Re : macro qui fonctionnait mais bugue maintenant

Bonsoir,

tout le monde seche sur mon problème ?😛

BPOL

 

[Papou-net]

Re : macro qui fonctionnait mais bugue maintenant

Bonjour,

quand j'apporte vos modifications les macros s'arrête et indique le message d'erreur
Sinon avec mes macros de Caisse1 et Caiise2 elle enregistre où il faut.
mais "impcaisse" s'arrête à:
Sub impCaisse()
'
' impCaisse Macro
' Macro enregistrée le 22/06/2009 par POLAIN
'
Application.ScreenUpdating = False

Sheets("caisse").Range("C1") = Sheets("caisse").Range("H4")
'and

With Sheets("journal caisse")
.Range("A1: D" & .[A65000].End(xlUp).Row).Name = "base"
Range("I4").FormulaR1C1 = "=TEXT('journal caisse'!R[-2]C[-8],""mmmm"")=R1C3"
.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I3:I4"), CopyToRange:=RangeCOLOR]("B2: D2"), Unique:=False
[I4].Clear
End With
With ActiveSheet
.PageSetup.PrintArea = "$B:$D"
.PrintPreview



End With

'
End Sub

BPOL

Essaies en rajoutant des points qui semblent manquer :

With Sheets("journal caisse")
    .Range("A1: D" & .[A65000].End(xlUp).Row).Name = "base"
    [B][COLOR="Red"].Range[/COLOR][/B]("I4").FormulaR1C1 = "=TEXT('journal caisse'!R[-2]C[-8],""mmmm"")=R1C3"
    [COLOR="Red"][B].Range[/B][/COLOR]("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[B][COLOR="Red"].Range[B][/B]( _
        "I3:I4"), CopyToRange:=[COLOR="Red"][B].Range[/B][/COLOR]("B2: D2"), Unique:=False[/B]   
 [I4].Clear
End With

Cordialement.

PS : je n'ai pas trouvé à quel endroit tu fais appel à la macro impCaisse.

 

[bpol]

Re : macro qui fonctionnait mais bugue maintenant

RE, le bouton de impcaisse se trouve sur la page "caisse" au dessus

Bpol

 

[bpol]

Re : macro qui fonctionnait mais bugue maintenant

Bonjour le forum,

me revoici avec mon problème

cette macro bloque à hauteur du gras

Sub impCaisse()
'
' impCaisse Macro
' Macro enregistrée le 22/06/2009 par POLAIN
'
Application.ScreenUpdating = False

Range("C1") = Range("H4")
'and

With Sheets("journal caisse")
.Range("A1😀" & .[A65000].End(xlUp).Row).Name = "base"
.Range("I4").FormulaR1C1 = "=TEXT('journal caisse'!R[-2]C[-8],""mmmm"")=R1C3"
.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I3:I4"), CopyToRange:=.Range("B2😀2"), Unique:=False
[I4].Clear
End With
With ActiveSheet
.PageSetup.PrintArea = "$B:$D"
.PrintPreview



End With

'
End Sub

et met comme message:
erreur d'execution 1004
nom de champ introuvable ou incorrect dans la plage d'extraction

Qui peut me résoudre ce problème car je devrais déjà l'utilisé et malheureusement cela devient urgent.

ci joint le fichier simplifié: http://cjoint.com/?bfkedDfD7z

BPOL

 

[Robert]

Re : macro qui fonctionnait mais bugue maintenant

Bonjour le fil, bonjour le forum,

Juste comme ça sans avoir ni testé ni approfondi... Ne manquerait-il pas un point ici :

.[B]Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[COLOR=red]•[/COLOR]Range( _[/B]
[B]"I3:I4"), CopyToRange:=.Range("B2:D2"), Unique:=False[/B]

 

[bpol]

Re : macro qui fonctionnait mais bugue maintenant

Bonjour Robert,

le problème ne provient pas du point.
Hélàs!

BPOL