Discussion :

[fred bx]

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 :

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

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

[Vesta]

Code :

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

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 :

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

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

[fred bx]

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?

[Vesta]

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 ?

[fred bx]

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 :

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

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

[Vesta]

Code :

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

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