bug dans une macro

[bpol]

bonjour tout le monde,

voici une macro que j'ai améliorée mais il y a une ligne qui ne fonctionne pas ( en gras)

Sheets("journal caisse").Select
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")
Cells(Ligne, 6) = Sheets("caisse").Range("H15")
'and
Sheets("caisse").Select
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) = Sheets("caisse").Format(Range("H9"), "mm/dd/yy")
.Cells(Ligne, 5) = Sheets("caisse").Range("H11")
.Cells(Ligne, 6) = Sheets("caisse").Range("H12")
End With
End If

Range("H9").MergeArea.ClearContents
For i = 11 To 15
Range("H" & i & ":H" & i).MergeArea.ClearContents
Next i
'and
Range("H9").Select


elle ne copie pas la cellule à l'endroit demandé sinon tout le reste fonctionne

Merci
BPOL

 

[ROGER2327]

Re : bug dans une macro

Bonjour bpol

Je pense que votre problème vient de l'utilisation d'une plage de cellules fusionnées contenant H9 et dont la première cellule n'est pas H9. Me trompé-je ?​

ROGER2327

 

[Pierrot93]

Re : bug dans une macro

Bonjour bpol

essaye peut être ainsi :

.Cells(Ligne, 4) = Format(Sheets("caisse").Range("H9"), "mm/dd/yy")

bonne journée
@+

 

[bpol]

Re : bug dans une macro

Merci Pierrot93,

c'est logique puisque j'allonge la référence de la cellule donc le "format" devait être déplacé vers l'avant

bon WE
Bpol

PS Roger c'est bien une cellule fusionnée mais elle est la première des deux.

 

[ROGER2327]

Re : bug dans une macro

Re...

(...) PS Roger c'est bien une cellule fusionnée mais elle est la première des deux. (...)

Alors je me trompe...
_
Bonne journée.
ROGER2327