Simplification de code avec boucle

Bonjour à tous,
Je souhaiterais faire une boucle pour cette macro.

Un trimestre est entré en cellule A2 par l'utilisateur. J'ai ensuite trois zones dans ma feuille Excel : de F2 à W2, de X2 à AN2 et de AO2 à BC2.
Il faut qu'à chaque nouveau trimestre rentré en A2 aller coller ce trimestre dans la première case non vide de mes trois zones (les trois zones fonctionnent à l'identique : si un trimestre est collé en F2 il le sera forcément en X2 et en AO2), si et seulement si le trimestre est supérieur à celui précédemment collé. Dans le cas contraire, une boite de dialogue s'ouvre et demande de saisir une nouvelle date.
J'ai commencé à écrire un code :

Code:

---

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

If Sheets("Outil suivi").Range("F2") = "" Then   Sheets("Outil suivi").Range("A2").Copy Sheets("Outil suivi").Range("F2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("W2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("AN2").PasteSpecial Paste:=xlPasteValues   Else   If Sheets("Outil suivi").Range("G2") = "" Then If Year(Range("A2")) & " Q" & DatePart("q", Range("A2")) > Year(Range("F2")) & " Q" & DatePart("q", Range("F2")) Then Sheets("Outil suivi").Range("A2").Copy Sheets("Outil suivi").Range("G2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("X2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("AO2").PasteSpecial Paste:=xlPasteValues Else: MsgBox "The quarter you want to analyse already exists, please choose another date" Range("A2").ClearContents End If

---

Merci par avance

Salut, déjà ce code ne peut pas fonctionner.

ensuite Il faut baliser ton code

Salut,

Je pensais avoir balisé mon code.

Code:

---

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

If Sheets("Outil suivi").Range("F2") = "" Then   Sheets("Outil suivi").Range("A2").Copy Sheets("Outil suivi").Range("F2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("W2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("AN2").PasteSpecial Paste:=xlPasteValues   Else   If Sheets("Outil suivi").Range("G2") = "" Then If Year(Range("A2")) & " Q" & DatePart("q", Range("A2")) > Year(Range("F2")) & " Q" & DatePart("q", Range("F2")) Then Sheets("Outil suivi").Range("A2").Copy Sheets("Outil suivi").Range("G2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("X2").PasteSpecial Paste:=xlPasteValues Sheets("Outil suivi").Range("AO2").PasteSpecial Paste:=xlPasteValues Else: MsgBox "The quarter you want to analyse already exists, please choose another date" Range("A2").ClearContents End If

---

Ce code fonctionne actuellement, c'est juste qu'il est beaucoup trop laborieux! :)

sans trop détailler la demande, juste un exemple pour écrire

Code:

---

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

With Sheets("Outil suivi") If .Range("F2") = "" Then .Range("F2").Value = .Range("A2").Value .Range("W2").Value = .Range("A2").Value .Range("AN2").Value = .Range("A2").Value ElseIf .Range("G2") = "" Then If Year(Range("A2")) & " Q" & DatePart("q", .Range("A2")) > Year(.Range("F2")) & " Q" & DatePart("q", .Range("F2")) Then .Range("G2").Value = .Range("A2").Value .Range("X2").Value = .Range("A2").Value .Range("AO2").Value = .Range("A2").Value Else MsgBox "The quarter you want to analyse already exists, please choose another date" .Range("A2").ClearContents End If End If End With

---

Je regarde ça demain et vous dis si ça fonctionne. Merci pour l'aide apportée

Bonjour,
même code sur moins de lignes

Code:

---

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

With Sheets("Outil suivi") If .Range("F2") = "" Then Union(.Range("F2"), .Range("W2"), .Range("AN2")).Value = .Range("A2").Value ElseIf .Range("G2") = "" Then If Year(Range("A2")) & " Q" & DatePart("q", .Range("A2")) > Year(.Range("F2")) & " Q" & DatePart("q", .Range("F2")) Then Union(.Range("G2"), .Range("X2"), .Range("AO2")).Value = .Range("A2").Value Else MsgBox "The quarter you want to analyse already exists, please choose another date" .Range("A2").ClearContents End If End If End With

---