erreur définie par l'application ou par l'objet

[kd13]

je suis entrain de programmer sur excel (vba) et je rencontre un probleme que j'ai pas pu le resoudre

erreur définie par l'application ou par l'objet

l'erreur est dans la ligne en rouge

Private Sub CheckBox1_Click()
sommeship1 = 0
sommeship2 = 0

a = CheckBox1.Value
DerniereLigne1 = Worksheets("ship1").Range("A10").CurrentRegion.End(xlDown).Row
If a = True Then
For i = 10 To DerniereLigne1
If Worksheets("ship1").Range("u" & i).Value = "Shipped" And _
Worksheets("ship1").Range("b" & i).Value = "01 January" And _
Worksheets("ship1").Range("f" & i).Value = "TN" Then
sommeship1 = sommeship1 + Worksheets("ship1").Range("t" & i).Value
End If
Next i

DerniereLigne2 = Worksheets("ship2").Range("A10").CurrentRegion.End(xlDown).Row

End If


Range("b2") = sommeship1

End Sub​

 

[Pierrot93]

Re : erreur définie par l'application ou par l'objet

Bonjour,

supprime peut être "CurrentRegion" :

DerniereLigne2 = Worksheets("ship2").Range("A10").End(xlDown).Row

A voir s'il est pas préférable de commencer par le bas et remonter :

Dim DerniereLigne2 As Long
DerniereLigne2 = Worksheets("ship2").Cells(Rows.Count, 1).End(xlUp).Row

bonne journée
@+

 

[kd13]

Re : erreur définie par l'application ou par l'objet

Merci bien Pierrot93 ca marche parfaitement !!!