Blocks if
rikito
Messages postés
5
Statut
Membre
-
rikito Messages postés 5 Statut Membre -
rikito Messages postés 5 Statut Membre -
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!
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!
A voir également:
- Blocks if
- Code blocks - Télécharger - Langages
- The realtek network controller was not found. if deep sleep mode is enabled please plug the cable ✓ - Forum Pilotes (drivers)
- Php if multiple conditions ✓ - Forum PHP
- If exist - Forum Java
- If char ✓ - Forum Programmation
3 réponses
oui, tes boucles et confitions se melangent .....
voici brievement le principe
if xxxxx then
--for n = .....
voici brievement le principe
if xxxxx then
--for n = .....
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
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
