Discussion :

[Jay29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Jean-Philippe André]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If test Then
'cas si test=vrai
Else
'cas si test=faux
End If

[Jay29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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