Boucle For sortie condition IF
Bonjour à tous,
Je vous remercie de m'aider tout le temps!
Je souhaite sortir de ma boucle "For" lorsque ma boucle "IF" affiche le MSg box!!
Merci d'avance pour votre réponse
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
'on récupère les Date of loss
For cmpt2 = 0 To Int((End_triangle_row - Date_loss1_row) / incre_Date_loss) 'on prend la partie entière pour avoir le nombre exact de valeur
a = ws.Cells(Date_loss1_row + cmpt2 * incre_Date_loss, Date_loss1_col)
If IsDate(a) Then ' on teste si le format est une date
If Month(a) > 7 Then 'si la date est supérieure à juillet alors on ne la touche pas
ws2.Cells(16 + cmpt2, 4) = a
Else
ws2.Cells(16 + cmpt2, 4) = DateSerial(Year(a), 7, 1) ' si la date est inférieur à juillet alors on la met au 1 juillet
End If 'If Month(a) > 7 Then
'on teste la longeur de la chaine de caractère et on fait une déduction
ElseIf Len(a) < 5 Then ' on suppose que nous sommes seulement en présence de la date
ws2.Cells(16 + cmpt2, 4) = DateSerial(a, 7, 1)
Else
MsgBox "Change the format of Date of loss"
End If 'If IsDate(a)
Next cmpt2 |
