[XL-2007] Recopie d'une somme dans une autre feuille

[eliot.raymond]

Bonjour a toutes et tous, Forum

Je souhaiterai svp recopier une somme d'une feuille dans une autre, une seule fois par jour.

Voyez svp le fichier ci-joint, les explications sont a l'intérieur.

Bonne journée a vous et merci de votre aide

Bonnes fètes de fin d'année a tous

ainsi qu'a tout le Forum

Raymond

[White Mibu]

Slt Raymond

Regarde le fichier si joint,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Rows(23)) Is Nothing Then
 
    If Day(Date) = 1 Then NewMonth
 
    i = Sheets("AXA").Range("A65536").End(xlUp).Row
    j = ActiveCell.Column
 
    If Sheets("AXA").Cells(i, 1).Value = Date Then Exit Sub
 
    Sheets("AXA").Cells(i + 1, 1) = Date
    Sheets("AXA").Cells(i + 1, 2) = Sheets("Compte").Cells(23, j).Value
 
End If
 
End Sub

Grâce à cette ligne :

Code :

    If Day(Date) = 1 Then NewMonth

Les données concernant le mois précèdent sont supprimées automatiquement.

Si tu veux que les données soient supprimées uniquement lorsque tu appuis sur le bouton dans l'onglet AXA, supprime cette ligne.

Tiens moi au courant, si t'a des questions n'hésite pas !

Cordialement

[eliot.raymond]

Bonjour a tous, forum

Bonjour White Mibu,

Merci pour ta réponse, c'est gentil je regarde ton fichier aujourd'hui dès que

possible et te tient au courant.


Bye a plus tard bonne journée

Raymond

bonsoir White Mibu,

bon ca ne fonctionne pas comme il faut, faut t'il ajouter une réference et dans la colonne (A) feuille (axa) je mets date comme parametre ????

Pas trouver encore

A plus tard