Coller valeur chaque semaine

[gaetandu80]

Bonjour j'ai mis ci-joint mon fichier.
En voici le fonctionnement.
En B1 c'est une valeur importée qui va augmenter chaque lundi.
J'aimerai coller cette valeur chaque semaine.
Par contre cela va etre une valeur cumulé mais je voudrai la différence chaque semaine ( Sem2=X-Sem1).

j'espere avoir etait assez clair par contre je ne connais pas du tout VB.
Merci d'avance!

 

[gaetandu80]

Re : Coller valeur chaque semaine

Personne n'a d'idée?

 

[gui59300]

Re : Coller valeur chaque semaine

Bonjour j'ai mis ci-joint mon fichier.
J'aimerai coller cette valeur chaque semaine.
Par contre cela va etre une valeur cumulé mais je voudrai la différence chaque semaine ( Sem2=X-Sem1).

Tu voudrais coller cette valeur ou ? et a partir de quel source ?

 

[gaetandu80]

Re : Coller valeur chaque semaine

Je travail decu depuis ce matin et j'ai à trouver ceci

Sub coller()
Dim semaine As String
semaine = Cells(1, 9)

For i = 2 To 60
If Range("A" & i) = semaine Then
Range("C" & 1 & "" & 1).Copy
Range("B" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Else

End If
Next i


End Sub

Seulement ma valeur en C1 et D1 augmente chaque semaine, et ce qui m'interesserai c'est d'avoir de combien on augmente chaque semaine avec une formule du genre (Sem2= C1-Sem1).
J'espere etre clair.

Voici un exmple en fichier avec ma macro deja en place.
Dans la colonne B c'est ce que j'obtien actuellement mais j'aimerai obtenir les résultats de la colonne E à la place.

 

[gaetandu80]

Re : Coller valeur chaque semaine

dsl oublié d'ajouté le fichier

 

[gaetandu80]

Re : Coller valeur chaque semaine

Résolu.
Merci pour vos reponses!!!!

 

[JCGL]

Re : Coller valeur chaque semaine

Bonjour à tous,

Malgré le résolu (sans la solution trouvée....)

Un essai :

Option Explicit

Sub Coller()
Dim Sem As String
Sem = Cells(1, 5)
Application.ScreenUpdating = 0
 For i = 3 To 55
          If Cells(i, 1) = Sem Then Cells(i, 2) = Cells(1, 3) - Cells(i - 1, 2)
          If Cells(i, 1) = Sem Then Cells(i, 3) = Cells(1, 4) - Cells(i - 1, 3)
     Next i
    Application.CutCopyMode = False
    Cells(1, 1).Select
End Sub

A+ à tous

 

[gaetandu80]

Re : Coller valeur chaque semaine

Dsl, j'ai oublié de mettre la solution.
Voici le fichier avec les macros
Ma base de données est une importation de données externes.
Lors du démarrage une boite de dialogue me permet ou non de mettre à jour cette base et de copier coller les valeurs.
Mes données sont mise à jour chaque semaine, c'est pour cela que j'utilise la macro ci-dessous, cela me permet de mettre l'évolution chaque semaine.

Dim semaine As String
semaine = Cells(1, 12)

 For i = 4 To 55
          If Range("A" & i) = semaine Then