Discussion :

[eliot.raymond]

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

[mercatog]

Code :

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

1
2
3
4
5
With Feuil1
    With .Cells(17, Month(Date) + 3).Resize(10, 1)
        If Month(Date) > 1 Then .Copy .Offset(0, 1)
    End With
End With

[eliot.raymond]

Salut mercatog

Merci pour ta rapide réponse

j'ai essayer ton code mais ca ne marche pas

cela engendre une erreur ( #VALEUR! )

je regarde si je peux trouver, bonne après midi

Cdlt Ray
'---------------

Re salut

Peut etre plus facile de modifier le code ci dessous qui fait la mème chose

j'ai essayer d'adapter ton code a celui ci dessous mais pas réussi.

Code :

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

1
2
3
4
5
6
7
 
If Month(Date) > 1 Then
   For I = 17 To 26
       .Cells(I, Month(Date) + 4).Resize(3, 1).Value = .Cells(I, Month(Date) + 3).Resize(3, 1).Value
 
   Next I
End If

[eliot.raymond]

Salut a tous

Bon après de multiples essais bah bof pas réussi a faire fonctionner

bonne soirée a tous

Cdlt Ray

[mercatog]

As-tu un fichier exemple? (la solution est peut être facile)

[clementmarcotte]

Bonjour a toutes et tous, Forum bonjour
Petit soucis le code recopie bien la valeur MAIS ca m'éfface la formule de la cellule de destination.
Cordialement Ray

C'est le comportement normal d'Excel. Tu ne peux pas avoir dans la même cellule une donnée unique et une formule.

[eliot.raymond]

Bonjour a tous, bonjour forum

Salut mercatog

je regarde pour poster mon fichier, merci pour ton aide

Vu l'heure bon app et bonne après midi

Cdlt Ray

C'est le comportement normal d'Excel. Tu ne peux pas avoir dans la même cellule une donnée unique et une formule.

Salut clement marcotte


merci pour ta réponse

suis pas sur de comprendre, dit m'en plus svp, bonne après midi

Cdlt Ray

[patricktoulon]

Bonjour eliot

pas sur de comprendre ?????!!!!!

tu a une cellule de destination dans la quelle se trouve une formule
forcement en lui injectant une simple valeur calculée par une macro la formule est remplacée par la valeur

c'est évident en fin pour moi

au plaisir

[eliot.raymond]

Salut a tous

je joins mon fichier peux etre ca sera plus facile

j'ai mis quelques commentaires

merci de l'aide apporter, bonne fin d'après midi

Cdlt Ray

http://www.cjoint.com/?3JdqoDulibX

[mercatog]

Code :

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

1
2
3
4
5
6
With Feuil1
    With .Cells(17, Month(Date) + 3).Resize(10, 1)
        If Month(Date) > 1 Then .Copy .Offset(0, 1)
    End With
    .Calculate
End With

[eliot.raymond]

Salut Mercatog

Merci bien pour la modification du code

ca fonctionne presque bien SAUF pour les lignes 18 et 19

peut etre a cause des formules qui sont dedans ?????

De mème que je n'arrive pas a effacer la zone des données que je viens de copier avec le code ci-dessous trouver sur le site qui doit effacer les valeurs sans supprimer les formules.

Code :

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

1
2
 
.SpecialCells(xlCellTypeConstants, 3).ClearContents

bonne fin d'après midi

Cdlt Ray

Bonjour eliot

pas sur de comprendre ?????!!!!!

tu a une cellule de destination dans la quelle se trouve une formule
forcement en lui injectant une simple valeur calculée par une macro la formule est remplacée par la valeur

c'est évident en fin pour moi

au plaisir

Salut Patrick

Merci pour ton info

Mais pour moi ca a l'air de marcher

avec le code de l'ami Mercatog

Mais je n'ai sans doute pas tout compris

Cdlt Ray

Bonjour a tous, Forum bonjour,

Salut Mercatog

Merci bien pour la modification du code, ca fonctionne presque bien SAUF pour les lignes 18 et 19 ????

Peut etre a cause des formules qui sont dedans ?????

j'ai fait d'autres essais mais je ne comprends pas pourquoi, ca ne marche pas pour les lignes 18 et 19
---------
De mème que je n'arrive pas a effacer la zone des données que je viens de copier avec le code ci-dessous trouver sur le site qui doit effacer les valeurs sans supprimer les formules.


Code :Sélectionner tout - Visualiser dans une fenêtre à part12
.SpecialCells(xlCellTypeConstants, 3).ClearContents

Merci pour l'aide apporter, Bon W-end

Cdlt Ray

[mercatog]

Que veut dire que ça ne fonctionne pas pour les lignes 18 et 19?

N'as tu pas toute la plage copiée?

J'ai testé ce code sur ton fichier

Code :

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

1
2
3
4
5
6
7
8
9
With Feuil1
    With .Cells(17, Month(Date) + 3).Resize(10, 1)
        If Month(Date) > 1 Then
            .Copy .Offset(0, 1)
            .SpecialCells(xlCellTypeConstants).ClearContents
        End If
    End With
    .Calculate
End With

Regarde le contenu des formules et des valeurs copiées

[Invité]

Bonjour,
si ta formule prend en compte la cellule de destination, tu n'as plus de problème.
il te suffis d'insérer un colonne à la fin de ton tableau pour décaler ta formule qui tien toujours compte d'elle même comme point de fin:

Code Formule Excel :

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

=SOMME(E2:DECALER(Q2;0;-1))

Code :

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

1
2
3
Sub test()
Worksheets("Compte").Columns(Month(Date) + 4).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub