Macro avec If-Then-Else

Bonjour à tous!!!

Je dois créer un test et je pense utiliser la fonction If cependant je ne sais pas trop comment m'y prendre et si c'est la fonction adéquate. Le test consiste a comparer la date d'une cellule avec celle entrée par l'utilisateur et si celle-ci est inférieur a la date entrée on ne modifie rien. Cependant si la date est supérieur alors on va modifier la valeur de 3 colonnes différentes et c'est de là que viens mon problème. J'ai essayer de commencer mon code comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim firstDate As Date Dim i As Long Dim Res As Variant   For i = 2 To ActiveSheet.UsedRange.Rows.Count firstDate = CDate(InputBox("Entrer une date"))   If Range ("R" & i).Value < firsdate Then Res = Range ("R" & i).Value Else If Range ("R & i).Value > firstdate Then ....

---

A partir de là je ne sais pas trop comment insérer mes 3 modifications.
Merci pour votre aide!

salut,
je peux te recommander un peu de lecture sur la syntaxe des boucles de tests http://heureuxoli.developpez.com/off...l/?page=page11

la syntaxe est

Code:

---

1 2 3 4 5

If test Then 'cas si test=vrai Else 'cas si test=faux End If

---

C'est bon j'ai trouvé la réponse de moi même voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim firstDate As Date Dim i As Long   firstDate = CDate(InputBox("Entrer une date"))   For i = 2 To ActiveSheet.UsedRange.Rows.Count   If Range("R" & i).Value < firstDate Then Range("R" & i).Value = Range("R" & i).Value Else Range("F" & i).Value = 3 Range("I" & i).Value = Range("Q" & i).Value Range("G" & i).Value = "BL"   End If Next i

---