[VBA-E] Copier N vers N-1

Bonjour,

Je réalise des tableaux de bord en logistique.
Pour chaque indicateur on peut comparer l'année N-1 et N.
Je souhaite lorsque l'on passe de l'année N à N+1 (début d'une nouvelle année), copier les données du tableau de l'année N dans le tableau N-1.
Peut-on utiliser les conditions ? Si Année prend +1 alors copier les cellules du tableau N dans le tableau N-1.

Code:

---

1 2 3 4 5

Sheets("Réception").Range("C20:N20").Select Selection.SpecialCells(xlCellTypeConstants, xlNumbers).Cut Sheets("Réception").Range("C17:N17").Select ActiveSheet.Paste Application.CutCopyMode = False

---

Merci d'avance

Code:

---

1 2 3 4 5

Sheets("Réception").Range("C" & i & ":N " & i).Select Selection.SpecialCells(xlCellTypeConstants, xlNumbers).Cut Sheets("Réception").Range("C" & (i-3) & ":N " & (i-3)).Select ActiveSheet.Paste Application.CutCopyMode = False

---

Regarde de ce coté la pour la gestion des années:

Code:

---

1 2 3 4

If Not(right(date,4) = curYear) Then curYear=right(date,4) 'Faire ce qu'il faut End IF

---

Merci pour la réponse

L'année est rentrée manuellement par l'utilisateur.
La cellule ne contient pas le format date.

Quelqu'un à une idée?

Soit un peu plus clair...

1. Comment retrouver la ligne de l'année en cours?
2. L'utilisateur entre quelle année? A quoi sert cette information?
3. Que doit il se passer ensuite, quand on a l'information 2.
4. Quelles cellules doit t on d"placer de ou a ou ?

bonjour,

La code d'un bouton permet à l'utilisateur d'ajouter une année. Il doit permettre également de couper et coller les données du tableau N ( certaines cellules ne contienent pas de données) vers le tableau N-1
Ces 2 tableaux comprennent les 12 mois de l'année

Voici le code qui pose probléme:

Code:

---

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

Private Sub NouvelleAnnee_Click()   Range("C10") = (Range("C10").Value + 1)   Sheets("Réception").Select Range("C20:N20").Select Selection.Cut Sheets("Réception").Select Range("C17").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False   End Sub

---

Le message suivant apparaît: la méthode select de la classe range a échoué

Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub NouvelleAnnee_Click() Application.CutCopyMode = False Sheets("Réception").Range("C10") = (Sheets("Réception").Range("C10").Value + 1)   Sheets("Réception").Range("C20:N20").Copy   Sheets("Réception").Range("C17:N17").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   Sheets("Réception").Range("C20:N20").ClearContents End Sub

---

Merci Vesta,
Le code fonctionne du feu de dieu !