Coller valeur chaque semaine

G

gaetandu80

Guest

• 16 Décembre 2009

• #2

Re : Coller valeur chaque semaine

Personne n'a d'idée?

 

Vote positif 0 Vote négatif

G

gui59300

XLDnaute Occasionnel

• 16 Décembre 2009

• #3

Re : Coller valeur chaque semaine

gaetandu80 à dit:

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).

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

gaetandu80

Guest

• 16 Décembre 2009

• #4

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.

 

Vote positif 0 Vote négatif

G

gaetandu80

Guest

• 16 Décembre 2009

• #5

Re : Coller valeur chaque semaine

dsl oublié d'ajouté le fichier 😉

 

Pièces jointes

• Classeur1.xls

  26.5 KB · Affichages: 46
• Classeur1.xls

  26.5 KB · Affichages: 56
• Classeur1.xls

  26.5 KB · Affichages: 50

Vote positif 0 Vote négatif

G

gaetandu80

Guest

• 18 Décembre 2009

• #6

Re : Coller valeur chaque semaine

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Décembre 2009

• #7

Re : Coller valeur chaque semaine

Bonjour à tous,

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

Un essai :

Code:

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

 

Pièces jointes

• JC Copie Valeurs Semaine.xls

  27 KB · Affichages: 57

Vote positif 0 Vote négatif

G

gaetandu80

Guest

• 6 Janvier 2010

• #8

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.

Code:

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

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

 

Pièces jointes

• solution.xls

  40.5 KB · Affichages: 54
• solution.xls

  40.5 KB · Affichages: 48
• solution.xls

  40.5 KB · Affichages: 47

Vote positif 0 Vote négatif