Bonjour a toutes et tous, Forum bonjour

Ce petit code au 01 de chaque mois recopie quelques lignes (17 à 26 ) sur la colonne suivante par la droite les valeurs de la colonne précédente ou du mois précédent.

Petit soucis le code recopie bien la valeur MAIS ca m'éfface la formule de la cellule de destination.

Pas trouver comment modifier ce code pour que cela n'efface plus mes formules, si quelqu'un veux bien modifier et si c'est possible bien sur.

Merci de votre aide et de votre temps.

Cordialement Ray


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
      If Month(Date) > 1 Then
        .Cells(17, Month(Date) + 4).Resize(3, 1).Value = .Cells(17, Month(Date) + 3).Resize(3, 1).Value
        .Cells(18, Month(Date) + 4).Resize(3, 1).Value = .Cells(18, Month(Date) + 3).Resize(3, 1).Value
        .Cells(19, Month(Date) + 4).Resize(3, 1).Value = .Cells(19, Month(Date) + 3).Resize(3, 1).Value
        .Cells(20, Month(Date) + 4).Resize(3, 1).Value = .Cells(20, Month(Date) + 3).Resize(3, 1).Value
        .Cells(21, Month(Date) + 4).Resize(3, 1).Value = .Cells(21, Month(Date) + 3).Resize(3, 1).Value
        .Cells(22, Month(Date) + 4).Resize(3, 1).Value = .Cells(22, Month(Date) + 3).Resize(3, 1).Value
        .Cells(23, Month(Date) + 4).Resize(3, 1).Value = .Cells(23, Month(Date) + 3).Resize(3, 1).Value
        .Cells(24, Month(Date) + 4).Resize(3, 1).Value = .Cells(24, Month(Date) + 3).Resize(3, 1).Value
        .Cells(25, Month(Date) + 4).Resize(3, 1).Value = .Cells(25, Month(Date) + 3).Resize(3, 1).Value
        .Cells(26, Month(Date) + 4).Resize(3, 1).Value = .Cells(26, Month(Date) + 3).Resize(3, 1).Value
      End If