Bonjour,
je débute avec VBA et j'ai une question concernant les boucles.
je voudrais simplifier le code ci-dessous :
(je n'ai mis que la partie concernée)
If numero1 > strike Then
Sheets("Feuil2").Range("C8").Value = numero1 - Points
Else
Sheets("Feuil2").Range("C8").Value = strike - Points
End If
If numero2 > strike Then
Sheets("Feuil2").Range("C9").Value = numero2 - Points
Else
Sheets("Feuil2").Range("C9").Value = strike - Points
End If
If numero3 > strike Then
Sheets("Feuil2").Range("C10").Value = numero3 - Points
Else
Sheets("Feuil2").Range("C10").Value = strike - Points
End If
If numero4 > strike Then
Sheets("Feuil2").Range("C11").Value = numero4 - Points
Else
Sheets("Feuil2").Range("C11").Value = strike - Points
End If
If numero5 > strike Then
Sheets("Feuil2").Range("C12").Value = numero5 - Points
Else
Sheets("Feuil2").Range("C12").Value = strike - Points
End If
If numero6 > strike Then
Sheets("Feuil2").Range("C13").Value = numero6 - Points
Else
Sheets("Feuil2").Range("C13").Value = strike - Points
End If
If numero7 > strike Then
Sheets("Feuil2").Range("C14").Value = numero7 - Points
Else
Sheets("Feuil2").Range("C14").Value = strike - Points
End If
If numero8 > strike Then
Sheets("Feuil2").Range("C15").Value = numero8 - Points
Else
Sheets("Feuil2").Range("C15").Value = strike - Points
End If
If numero9 > strike Then
Sheets("Feuil2").Range("C16").Value = numero9 - Points
Else
Sheets("Feuil2").Range("C16").Value = strike - Points
End If
If numero10 > strike Then
Sheets("Feuil2").Range("C17").Value = numero10 - Points
Else
Sheets("Feuil2").Range("C17").Value = strike - Points
End If
If numero11 > strike Then
Sheets("Feuil2").Range("C18").Value = numero11 - Points
Else
Sheets("Feuil2").Range("C18").Value = strike - Points
End If
If numero12 > strike Then
Sheets("Feuil2").Range("C19").Value = numero12 - Points
Else
Sheets("Feuil2").Range("C19").Value = strike - Points
End If
If numero13 > strike Then
Sheets("Feuil2").Range("C20").Value = numero13 - Points
Else
Sheets("Feuil2").Range("C20").Value = strike - Points
End If
If numero14 > strike Then
Sheets("Feuil2").Range("C21").Value = numero14 - Points
Else
Sheets("Feuil2").Range("C21").Value = strike - Points
End If
If numero15 > strike Then
Sheets("Feuil2").Range("C22").Value = numero15 - Points
Else
Sheets("Feuil2").Range("C22").Value = strike - Points
Merci de votre aide.
End If
je débute avec VBA et j'ai une question concernant les boucles.
je voudrais simplifier le code ci-dessous :
(je n'ai mis que la partie concernée)
If numero1 > strike Then
Sheets("Feuil2").Range("C8").Value = numero1 - Points
Else
Sheets("Feuil2").Range("C8").Value = strike - Points
End If
If numero2 > strike Then
Sheets("Feuil2").Range("C9").Value = numero2 - Points
Else
Sheets("Feuil2").Range("C9").Value = strike - Points
End If
If numero3 > strike Then
Sheets("Feuil2").Range("C10").Value = numero3 - Points
Else
Sheets("Feuil2").Range("C10").Value = strike - Points
End If
If numero4 > strike Then
Sheets("Feuil2").Range("C11").Value = numero4 - Points
Else
Sheets("Feuil2").Range("C11").Value = strike - Points
End If
If numero5 > strike Then
Sheets("Feuil2").Range("C12").Value = numero5 - Points
Else
Sheets("Feuil2").Range("C12").Value = strike - Points
End If
If numero6 > strike Then
Sheets("Feuil2").Range("C13").Value = numero6 - Points
Else
Sheets("Feuil2").Range("C13").Value = strike - Points
End If
If numero7 > strike Then
Sheets("Feuil2").Range("C14").Value = numero7 - Points
Else
Sheets("Feuil2").Range("C14").Value = strike - Points
End If
If numero8 > strike Then
Sheets("Feuil2").Range("C15").Value = numero8 - Points
Else
Sheets("Feuil2").Range("C15").Value = strike - Points
End If
If numero9 > strike Then
Sheets("Feuil2").Range("C16").Value = numero9 - Points
Else
Sheets("Feuil2").Range("C16").Value = strike - Points
End If
If numero10 > strike Then
Sheets("Feuil2").Range("C17").Value = numero10 - Points
Else
Sheets("Feuil2").Range("C17").Value = strike - Points
End If
If numero11 > strike Then
Sheets("Feuil2").Range("C18").Value = numero11 - Points
Else
Sheets("Feuil2").Range("C18").Value = strike - Points
End If
If numero12 > strike Then
Sheets("Feuil2").Range("C19").Value = numero12 - Points
Else
Sheets("Feuil2").Range("C19").Value = strike - Points
End If
If numero13 > strike Then
Sheets("Feuil2").Range("C20").Value = numero13 - Points
Else
Sheets("Feuil2").Range("C20").Value = strike - Points
End If
If numero14 > strike Then
Sheets("Feuil2").Range("C21").Value = numero14 - Points
Else
Sheets("Feuil2").Range("C21").Value = strike - Points
End If
If numero15 > strike Then
Sheets("Feuil2").Range("C22").Value = numero15 - Points
Else
Sheets("Feuil2").Range("C22").Value = strike - Points
Merci de votre aide.
End If