Discussion :

[jgs012]

Bjr,

Je souhaite sur l'onglet recap effectuer le calcul des ventes du jour plus le solde précédent pour chaque vendeur (Voir PJ). La macro ne fonctionne pas comme je voudrais, j'ai sans doute fait une erreur. Etant novice un petit coup de main serait le bien venu. Merci.

[Kimy_Ire]

Bonjour jgs012,

Trop peu d'explications...
En "Recap" tu veux en colonne G la somme pour tous les "NOMS" et "PRENOMS" identiques de ton onglet "Journalier" ?
Que souhaites-tu sur "Reprise veille" ?

Que se passerait-il si tu lances plusieurs fois ta macro ?

Bref, quelques explications supplémentaires permettraient peut-être à la communauté de t'aider d'avantage.

Cordialement,
Kimy

[sebing]

La colonne d origine risque t elle de changer?
Car importer les valeurs pose pas de problème, et deplacer l ancien chiffre de la veille non plus sauf si les noms de la colonne bougent car les chiffres de la veille seront erronées.
Je reflechie pour prendre ce paramètre.
bonne soirée
seb

[jgs012]

Bonsoir et merci pour vos réponses. Des précisions:
sur la première feuille je saisie chaque jour les ventes. Le bouton contrôle devra me permettre d'ajouter les ventes du jour à celles déjà faites et porté en recap colonnes h, ce qui donnera un nouveau total sur cette colonne h et qui écrasera les données antérieurs. Je remet en fichier joint les tableau avec des explication.

Bonne soirée et encore merci.

jgs012 toujours novice

[jgs012]

La colonne d origine risque t elle de changer?
Car importer les valeurs pose pas de problème, et deplacer l ancien chiffre de la veille non plus sauf si les noms de la colonne bougent car les chiffres de la veille seront erronées.
Je reflechie pour prendre ce paramètre.
bonne soirée
seb

Bonsoir et merci pour vos réponses. Des précisions:
sur la première feuille je saisie chaque jour les ventes. Le bouton contrôle devra me permettre d'ajouter les ventes du jour à celles déjà faites et porté en recap colonnes h, ce qui donnera un nouveau total sur cette colonne h et qui écrasera les données antérieurs. Je remet en fichier joint les tableau avec des explication.

Bonne soirée et encore merci.

jgs012 toujours novice

[sebing]

Bonjour,

Je te propose ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Alim_Recap()
'
'
Dim derlignej As Byte 'attention si plus de 255 ligne mettre integer
Dim derlignereport As Byte 'attention si plus de 255 ligne mettre integer
Dim i As Byte 'attention si plus de 255 ligne mettre integer
Dim r As Byte 'attention si plus de 255 ligne mettre integer
derlignej = Worksheets("Journalier").Range("A" & Rows.Count).End(xlUp).Row 'va cherhcher la derniere ligne du tableau journalier
derlignereport = Worksheets("Recap").Range("A" & Rows.Count).End(xlUp).Row 'va cherhcher la derniere ligne du tableau Recap
'verifie si les ventes du jour ont été deja transférés
    If Worksheets("Recap").Range("C1").Value = Worksheets("Journalier").Range("A2").Value Then
        MsgBox ("le transfert a déja été fait")
    Else
        'effectue une boucle
         r = 7 'donne la valeur de la premiere ligne du tableau récap
        For i = 5 To derlignej
 
            If Worksheets("Journalier").Cells(i, 1).Value = Worksheets("Recap").Cells(r, 1).Value Then
 
            'transfert les données de la veille h dans f
                Worksheets("Recap").Cells(r, 6).Value = Worksheets("Recap").Cells(r, 8).Value
            'recupere les données des ventes du jour
                Worksheets("Recap").Cells(r, 7).Value = Worksheets("Journalier").Cells(i, 8).Value
                r = r + 1 'agremente la ligne du tableau de 1
            Else
        'il s'agit d'un nouveau vendeur
            Worksheets("Recap").Cells(r, 1).Value = Worksheets("Journalier").Cells(i, 1).Value
            Worksheets("Recap").Cells(r, 2).Value = Worksheets("Journalier").Cells(i, 2).Value
            Worksheets("Recap").Cells(r, 7).Value = Worksheets("Journalier").Cells(i, 8).Value
            r = r + 1 'agremente la ligne du tableau de 1
            End If
        Next i
        'on efface toutes les données, on inscrit la date du transfert
            Worksheets("Recap").Range("C1").Value = Worksheets("Journalier").Range("A2").Value
            Worksheets("Journalier").Range(Cells(5, 3), Cells(i, 7)).Select
            Selection.ClearContents
    End If
End Sub

Je te mets aussi le fichier.

Bonne journée
Seb

[jgs012]

Bonjour et merci,

Cela semble fonctionner parfaitement et même plus avec l'impossibilité de saisir 2 fois à la même date. Super. J'ai encore beaucoup de progrès à faire pour arriver à me débrouiller seul...
Heureusement que ces forum d'entraide existe.
Bonne journée.
jgs012