Discussion :

[flyersgoaler]

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!

[joe.levrai]

Bonjour,

tu as deux solutions simples (il y en a d'autres !)

1) Tu crées une procédure qui va effectuer uniquement le traitement sur les trois cellules

Au lieu d'écrire à chaque fois les trois lignes de code dans tes If/End If, tu appelles la procédure

2) Tu utilises une variable booléenne que tu passes à True si la condition est vérifiée. A la fin de tout tes If (juste avant de refaire une boucle) tu testes la valeur de la variable, si elle est à True alors tu fais le traitement sur les 3 cellules

à noter que tu peux mélanger les deux solutions : écrire une procédure pour remplir les 3 cellules ET utiliser une variable booléenne pour gérer le traitement ou non de ces trois cellules


Difficile d'aller plus loin avec juste un morceau de ton code .... sachant que chaque If réalise un test différent (parfois c'est des différences sur valeurs arrondies, parfois c'est la longueur de ce qui est dans la cellule, parfois c'est la valeur numérique d'une cellule etc...).

Il serait possible de radicalement simplifier tout ces tests ça se trouve .... impossible de le savoir

[Invité]

Bonjour,
dans ta boucle ça ça ne change pas pas besoin de les copier plusieur fois!

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)

à mon sens tu peux regrouper tes if avec un AND!

Code :

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

If Range("E" & y) = "Ciel" And Len(Range("AD" & y)) < 5 Then Sheets(4).Range("D4").Value = "Bleu"

Code :

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

1
2
3
4
5
6
7
8
For y = Sheets(2).Range("A1").End(xlDown).Row To 2 Step -1
 
Sheets(4).Range("A4").Value = Range("AE" & y)
Sheets(4).Range("B4").Value = Range("B" & y)
Sheets(4).Range("C4").Value = Range("C" & y)
If Round((Range("AF" & y).Value + Range("AG" & y).Value), 2) <> Round((Range("AH" & y).Value), 2) Then Sheets(4).Range("D4").Value = "Rouge"
If Range("E" & y) = "Soleil" And Range("AG" & y).Value <> 0 Then Sheets(4).Range("D4").Value = "Jaune"
If Range("E" & y) = "Ciel" And Len(Range("AD" & y)) < 5 Then Sheets(4).Range("D4").Value = "Bleu"