Discussion :

[Homer091]

Bonjour à toutes et à tous

J'ai fait la démarche de chercher dans le forum, mais je pense que mon manque de connaissance en VBA ne me permet pas de faire la recherche la plus efficiente qui soit, cela étant dit, voici mon petit souci:

J'ai une macro VBA, dans laquel je copie mes données pour les mettre à la suite des autres dans mon onglet "Evolution". Voici ma macro: (il manque peut être une petite partie au dessus)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Range("B39:G50").Select
    Selection.Copy
    Sheets("Evolution").Select
 
    ' Trouver la dernière cellule
 
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
        Cells(LastRow + 1, 4).Select
    End With
    Selection.PasteSpecial Paste:=xlPasteValues

Donc je colle mes donnée à la suite de la dernière ligne, mais j'ai besoin que la date du jour se mette dans la colonne C, mais là je suis perdu, car j'ai voulu reprendre "Lastrow" pour retrouver la dernière ligne utilisé en C et mettre ma date autant de fois qu'il verra de ligne dans la colonne D.

mais ça ne fonctionne pas

Par avance merci par avance de vos réponses

[Menhir]

J'ai des difficultés à comprendre ce que tu expliques en essayant de combler les trous en lisant ton code.

Quelle est l'adresse de tes données sources ?
A quelle adresse copies-tu tes données source ?
Qu'est-ce que tu appelles "date du jour" ? La date d'exécution de la macro ? Une date récupérée ailleurs (où ?) ?

[Homer091]

Bonjour

Pardon voici le code complet:

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 Macro2()
    ' Faire l'update par ODBC
 
    Sheets("Extract").Select
    ActiveCell.Offset(3, 2).Range( _
        "Tableau_Lancer_la_requête_à_partir_de_MS_Access_Database[[#Headers],[ZONSTS]]" _
        ).Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
 
    ' attendre la fin de l'update
    DoEvents
    Application.CalculateUntilAsyncQueriesDone
    'Application.ScreenUpdating = False
 
    ' Lancer l'update du TCD
    Sheets("All").Select
    ActiveCell.Offset(-10, 0).Range("A1").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique38").PivotCache.Refresh
 
    DoEvents
    Application.CalculateUntilAsyncQueriesDone
 
    ' Copier mes données à la suite
 
    Range("B39:G50").Select
    Selection.Copy
    Sheets("Evolution").Select
 
    ' Trouver la dernière cellule
 
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
        Cells(LastRow + 1, 4).Select
    End With
    Selection.PasteSpecial Paste:=xlPasteValues
 
End Sub

Dans mon onglet "Evolution" j'ai:
colonne A = Mois (formule de calcul)
Colonne B = Semaine (formule de calcul)
Colonne C = date du jour (date à laquelle j'actualise mon fichier, donc la date du jour, au moment où je clique sur la macro)
Colonne D à I = là où je colle mes données que je suis partie copier dans mon onglet "All" entre B39 et G50

Voici un imprim écran


Je souhaite donc quand je clique sur mon bouton, qu'il aille copier mes données dans l'onglet "All", pour les coller à la suite (ce que la macro fait déjà) ET QU'EN PLUS, il m'ajoute la date du jour où j'ai fait cette action (cliquer sur la macro), en colonne C, au même niveau que les données que je viens de coller

Sur l'exemple du 29/01/2018, j'aurais souhaité que la macro mette toute seule la date du 29/01 dans la colonne C de C18 à C29

A savoir que la date que vous voyez en C3, est une formule ==> aujourdhui() ; Je me suis dis que peut être cela pourrait servir pour la macro, avec une sorte de copier coller, même si je pense que la macro par une formule peu tme mettre la date sans avoir à faire à prendre l'information dans cette cellule (enfin j'en sais rien)

J'espère avoir été plus clair

[Homer091]

juste un petit up