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

  • Initiateur de la discussion Initiateur de la discussion kd13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kd13

XLDnaute Nouveau
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​
 
Re : erreur définie par l'application ou par l'objet

Bonjour,

supprime peut être "CurrentRegion" :

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

A voir s'il est pas préférable de commencer par le bas et remonter :
Code:
Dim DerniereLigne2 As Long
DerniereLigne2 = Worksheets("ship2").Cells(Rows.Count, 1).End(xlUp).Row
bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Réponses
6
Affichages
604
Réponses
3
Affichages
582
Réponses
9
Affichages
580
Réponses
4
Affichages
548
Retour