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 : 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
 
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