blocks if Fermé

Question

Bonjour,

Bonjour,

dans ce code, on me dit que j'ai un Next sans For et que les else sont sans if, alors qu'ils sont placés.
Ma question est: quand on code des fonctions avec plusieurs partie if then else, comment fait-on pour passer à la ligne sans rompre la chaine if then else? Y a-t-il un endroit spécial ou lees placer? 

Sub essai()
Dim j, monjour As Integer
For j = 2 To 1000
monjour = Day(Cells(j, 8))
monmois = Month(Cells(j, 8))
If monjour < 10 Then
Cells(j, 1).Value = "01/" & monmois & "-10/" & monmois
Else: If monjour < 20 Then Cells(j, 1).Value = "11/" & monmois & "-20/" & monmois Else
Select Case monmois
Case 1, 3, 5, 7, 8, 10, 12
Cells(j, 1).Value = "21/" & monmois & "-31/" & monmois
Case 4, 6, 9, 11
Cells(j, 1).Value = "21/" & monmois & "-30/" & monmois
Case 2
Cells(j, 1).Value = "21/" & monmois & "-28/" & monmois
Next j
end if
End Sub

MERCI!

jack · Answer

oui, tes boucles et confitions se melangent .....
voici brievement le principe

if xxxxx then
--for n = .....

jack · Answer

ton code corrige mais ja sais pas si tu aura le resultats escompté


Sub essai() 
Dim j, monjour As Integer 
For j = 2 To 1000 
monjour = Day(Cells(j, 8)) 
monmois = Month(Cells(j, 8)) 
If monjour < 10 Then 
Cells(j, 1).Value = "01/" & monmois & "-10/" & monmois 
Else: If monjour < 20 Then Cells(j, 1).Value = "11/" & monmois & "-20/" & monmois Else 
Select Case monmois 
Case 1, 3, 5, 7, 8, 10, 12 
Cells(j, 1).Value = "21/" & monmois & "-31/" & monmois 
Case 4, 6, 9, 11 
Cells(j, 1).Value = "21/" & monmois & "-30/" & monmois 
Case 2 
Cells(j, 1).Value = "21/" & monmois & "-28/" & monmois
end if 
end if 
Next j
End Sub

rikito · Answer

merci jack, je vais voir ça

Blocks if

3 réponses

Discussions similaires