Bonjour à tous,
désolé d'avance si ce post est un doublon... mais... j'aurais besoin d'un coup de main!
Voilà, j'essaye de mettre au point une macro qui executerai des conditions if/then multiples, le tout sur plusieurs lignes.
Je m'explique:
j'ai 5 lignes (nommées de A a E pour l'occasion) et le calcul des 3 dernières lignes dépends des relations entre les 2 premières.
Par exemple:
Si A>=B alors D=B
et Si A<B alors 2 solutions:
-Si A+C<=B alors D=A+C
-Si A+C>B alors D=B
Et il faudrait le faire pour toutes les lignes (12 lignes).
J'ai tenté un
Sub D()
Dim score As Integer, result As Integer
A = Range("E2").Value
B= Range("E2").Offset(1, 0).Value
C = Range("E2").Offset(2, 0).Value
If A >= B Then
result = B
Else
If A + C > B Then
result = B
End If
End If
Range("E5").Value = result
End Sub
Merci d'avance pour votre aide!!!!!!
désolé d'avance si ce post est un doublon... mais... j'aurais besoin d'un coup de main!
Voilà, j'essaye de mettre au point une macro qui executerai des conditions if/then multiples, le tout sur plusieurs lignes.
Je m'explique:
j'ai 5 lignes (nommées de A a E pour l'occasion) et le calcul des 3 dernières lignes dépends des relations entre les 2 premières.
Par exemple:
Si A>=B alors D=B
et Si A<B alors 2 solutions:
-Si A+C<=B alors D=A+C
-Si A+C>B alors D=B
Et il faudrait le faire pour toutes les lignes (12 lignes).
J'ai tenté un
Sub D()
Dim score As Integer, result As Integer
A = Range("E2").Value
B= Range("E2").Offset(1, 0).Value
C = Range("E2").Offset(2, 0).Value
If A >= B Then
result = B
Else
If A + C > B Then
result = B
End If
End If
Range("E5").Value = result
End Sub
Merci d'avance pour votre aide!!!!!!