Répétions code vba Excel

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:

---

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:

---

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!

---

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

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

Code:

---

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:

---

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

---

Code:

---

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"

---