corriger une macro

[bpol]

bonjour,

je fais rncore appel au pro !

j'ai essayé de confectionner une macro mais elle m'indique une erreur

qui peut me donner un coup de main, je parie encore que c'est une con.....

Merci d'avance


Bpol

 

[phlaurent55]

Re : corriger une macro

Bonjour bpol,

essaie avec ceci

Sub caisse1()
'
' caisse1 Macro
' Macro enregistrée le 3/06/2009 par POLAIN
'
On Error Resume Next

  Ligne = Range("A65536").End(xlUp).Row + 1

  Cells(Ligne, 1) = Sheets("caisse").Range("H9")
  Cells(Ligne, 2) = Sheets("caisse").Range("H11")
  Cells(Ligne, 3) = Sheets("caisse").Range("H12")
  Cells(Ligne, 4) = Sheets("caisse").Range("H13")
  Cells(Ligne, 5) = Sheets("caisse").Range("H14")
' And

If Range("H12") > 250 Then

Sheets("caisse").Select

With Sheets([H10].Value)
 If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub

   Ligne = .[A65536].End(xlUp).Row + 1
  Cells(Ligne, 4) = Sheets("caisse").Range("H9")
  Cells(Ligne, 5) = Sheets("caisse").Range("H11")
  Cells(Ligne, 6) = Sheets("caisse").Range("H12")
  



Range("H9,H11 :H14").ClearContents
'And

Range("H9").Select
'and

ActiveWorkbook.Save


'
End With
End If
End Sub

 

[sabzzz]

Re : corriger une macro

bonjour Bpol ,

il manquait un End With,

If Range("H12") > 250 Then
Sheets("caisse").Select
With Sheets([H10].Value)
If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub
Ligne = .[A65536].End(xlUp).Row + 1
Cells(Ligne, 4) = Sheets("caisse").Range("H9")
Cells(Ligne, 5) = Sheets("caisse").Range("H11")
Cells(Ligne, 6) = Sheets("caisse").Range("H12")
End With
End If

 

[Cousinhub]

Re : corriger une macro

Bonjour,

un peu plus concis...
De plus, la deuxième définition de Ligne, sur la feuille "janvier", est erronée...

Tu dois prendre la colonne D en référence..

Sub caisse1()
On Error Resume Next
Ligne = Range("A65536").End(xlUp).Row + 1
Cells(Ligne, 1) = Range("H9")
Cells(Ligne, 2) = Range("H11")
Cells(Ligne, 3) = Range("H12")
Cells(Ligne, 4) = Range("H13")
Cells(Ligne, 5) = Range("H14")

If Range("H12") > 250 Then
    With Sheets([H10].Value)
        If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub
            Ligne = .[D65536].End(xlUp).Row + 1
            .Cells(Ligne, 4) = Format(Range("H9"), "mm/dd/yy")
            .Cells(Ligne, 5) = Range("H11")
            .Cells(Ligne, 6) = Range("H12")
    End With
End If
Range("H9,H11 :H14").ClearContents
Range("H9").Select
ActiveWorkbook.Save
End Sub

 

[bpol]

Re : corriger une macro

OKi merci à tout les deux elle tourne maintenant
mais

elle ne fait pas la 2 e partie c'est à dire de choisir la feuille égale à H 10 si condition acceptée
elle recopie sur la même feuille

Bpol

 

[Cousinhub]

Re : corriger une macro

Re,

tu as lu ma réponse?

il manquait effectivement les . (points) devant les Cells, ce qui désigne les cellules de la feuille de travail, définie par le With Sheets......

Bonne soirée

 

[bpol]

Re : corriger une macro

oups bhbh,

ta réponse n'était pas encore parue

merci . ca fonctionne

mais pourquoi elle ne veut pas effacer les cellules sélectionnées?

 

[bpol]

Re : corriger une macro

bonsoir,

personne pour trouver le stuuutt?

ca doit etre une bétise que je ne vois pas!

 

[Cousinhub]

Re : corriger une macro

Re,

comme quoi, les cellules fusionnées.......
En as-tu vraiment l'utilité?

sinon, avec ce code à remplacer, en fin de code :

Range("H9").MergeArea.ClearContents
For i = 11 To 14
    Range("H" & i & ":H" & i).MergeArea.ClearContents
Next i

 

[bpol]

Re : corriger une macro

merci pour tout bhbh

bpol