Bonjour,
Je souhaite savoir s'il y a un moyen d'éviter les répétions de mon code, car je dois avoir une cinquantaine de "if...then" et si les conditions s'avèrent vraies, les 3 premières lignes de code doivent toujours s'inscrire. Je voudrais donc savoir si je peux faire référence aux lignes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sheets(4).Range("A4").Value = Range("AE" & y) 
Sheets(4).Range("B4").Value = Range("B" & y) 
Sheets(4).Range("C4").Value = Range("C" & y)
une seule fois afin d'éviter de devoir les répéter constamment.
Voici un extrait de mon 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
17
18
19
20
21
22
23
24
For y = Sheets(2).Range("A1").End(xlDown).Row To 2 Step -1 
If Round((Range("AF" & y).Value + Range("AG" & y).Value), 2) <> Round((Range("AH" & y).Value), 2) Then 
Sheets(4).Range("A4").Value = Range("AE" & y) 
Sheets(4).Range("B4").Value = Range("B" & y) 
Sheets(4).Range("C4").Value = Range("C" & y) 
Sheets(4).Range("D4").Value = "Rouge" 
End If 
If Range("E" & y) = "Soleil" Then 
If Range("AG" & y).Value <> 0 Then 
Sheets(4).Range("A4").Value = Range("AE" & y) 
Sheets(4).Range("B4").Value = Range("B" & y) 
Sheets(4).Range("C4").Value = Range("C" & y) 
Sheets(4).Range("D4").Value = "Jaune" 
End If 
End If 
If Range("E" & y) = "Ciel" Then 
If Len(Range("AD" & y)) < 5 Then 
Sheets(4).Range("A4").Value = Range("AE" & y) 
Sheets(4).Range("B4").Value = Range("B" & y) 
Sheets(4).Range("C4").Value = Range("C" & y) 
Sheets(4).Range("D4").Value = "Bleu" 
End If 
End If 
Merci!