Discussion :

[alxdlx2704]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour, bonjour !

Et oui, encore un heureux gagnant, la réponse est déjà dans l'aide VBA intégrée ‼

Placer le curseur texte sur For dans le code puis cliquer sur la touche et lire évidemment …

Rendez-vous chers amis lors du prochain tirage de notre grand jeu
« Je préfère perdre du temps en posant une question sur un forum au lieu de consulter l'aide pourtant disponible ! »

__________________________________________________________________________________________________
Tous unis, tous Charlie

[Mrfreeze117]

Exit for