Discussion :

[Chatvador]

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

[kiki29]

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

ensuite Il faut baliser ton code

[Chatvador]

Salut,

Je pensais avoir balisé 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
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!

[casefayere]

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

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

[Chatvador]

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

[casefayere]

Bonjour,
même code sur moins de lignes

Code :

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

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