Bonjour Le Forum,
Je voudrais faire en sorte d'alleger mon code, et pour cela, j'aimerai, au lieu d'avoir pleins de "if", une syntaxe plus compacte.
Pour cela, je pense que d'inserer des "for" a la place des touts mes "if" pourrait m'aider
Comme je ne suis pas a l'aise encore avec les structures "for", je voudrais savoir si une personne pouvait m'adapter ce bout de code avec une boucle "for", pour la serie de "if" en milieu de code, si cela est possible, afin de me servir de modele pour l'adapter au reste de mon code.
Voici le code en question :
Merci![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Je voudrais faire en sorte d'alleger mon code, et pour cela, j'aimerai, au lieu d'avoir pleins de "if", une syntaxe plus compacte.
Pour cela, je pense que d'inserer des "for" a la place des touts mes "if" pourrait m'aider
Comme je ne suis pas a l'aise encore avec les structures "for", je voudrais savoir si une personne pouvait m'adapter ce bout de code avec une boucle "for", pour la serie de "if" en milieu de code, si cela est possible, afin de me servir de modele pour l'adapter au reste de mon code.
Voici le code en question :
Code:
top_section = Split(Range("topAml").Address, "$")
bot_section = Split(Range("botAml").Address, "$")
bot_sectionfin = Split(Range("botAu").Address, "$")
i = top_section(2)
Do
If (Range("B" & i).Value <> "") Then
If (Range("E" & i).Value <> "") Or (Range("F" & i).Value <> "") Or (Range("G" & i).Value <> "") Or (Range("H" & i).Value <> "") Or (Range("I" & i).Value <> "") Or (Range("K" & i).Value <> "") Then
If (Range("E" & i).Value = "") Or (Range("F" & i).Value = "") Or (Range("G" & i).Value = "") Or (Range("H" & i).Value = "") Or (Range("I" & i).Value = "") Or (Range("K" & i).Value = "") Then
flag_inc_acierml = True
If (Range("E" & i).Value = "") Then
Range("E" & i).Interior.Color = RGB(255, 0, 0)
End If
If (Range("F" & i).Value = "") Then
Range("F" & i).Interior.Color = RGB(255, 0, 0)
End If
If (Range("G" & i).Value = "") Then
Range("G" & i).Interior.Color = RGB(255, 0, 0)
End If
If (Range("H" & i).Value = "") Then
Range("H" & i).Interior.Color = RGB(255, 0, 0)
End If
If (Range("I" & i).Value = "") Then
Range("I" & i).Interior.Color = RGB(255, 0, 0)
End If
If (Range("K" & i).Value = "") Then
Range("K" & i).Interior.Color = RGB(255, 0, 0)
End If
End If
End If
If (Range("K" & (CInt(bot_sectionfin(2)) + 1)).Value = "") Then
flag_inc_acierchutes = True
Range("K" & (CInt(bot_sectionfin(2)) + 1)).Interior.Color = RGB(255, 0, 0)
End If
End If
i = i + 1
Loop Until i = CInt(bot_section(2)) - 1
Merci
Dernière édition: