Recopie d'une somme dans une autre feuille

[eliot raymond]

Bonjour a toutes et tous, Forum

Je relève manuellement une fois par jour, une donnée (somme) sur un site que j'inscris ensuite dans une cellule d'un tableau (Compte), je souhaiterai transférer automatiquement cette somme dans la feuille (Axa) en face de la date du jour.

le code dans thisworkbook sert a mettre la date a l'ouverture chaque jour du fichier.

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

 

[eliot raymond]

Re : Recopie d'une somme dans une autre feuille

Salut a tous,

Ok bon tant pis

Raymond

 

[Arpette]

Re : Recopie d'une somme dans une autre feuille

Bonsoir Raymond et joyeux Noël,

si j'ai bien compris code à mettre en feuil "Compte".

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D23:O23")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
    Dim dernLign As Long
    With Sheets("AXA")
    dernLign = .Range("B65536").End(xlUp).Row + 1
    .Cells(dernLign, 2) = Target.Offset
    End With
  End If
  Application.EnableEvents = True
End Sub

 

[eliot raymond]

Re : Recopie d'une somme dans une autre feuille

Bonjour a tous, forum et joyeux noël

Bonjour Arpette, et joyeux noël a toi également

Merci a toi pour le code, c'est sympa, ca fonctionne bien sauf que Ex:

aujourd'hui j'ai entrer une valeur dans D23 et transfert dans feuille (AXA) ca c'est ok

en supposant que je me sois tromper, si je veux corriger et que j'entre une nouvelle valeur dans D23

ca fonctionne toujours sauf que dans (axa) la valeur s'inscrit une ligne en dessous.

Je suppose qu'il faudrait effectuer un test en cas d'erreur de saisie ???

Voila j'espere que c'est bien explicite pour toi.

Bon Dimanche j'espere que le père noël a été généreux (LOL)

Au plaisir de relire Raymond

 

[Arpette]

Re : Recopie d'une somme dans une autre feuille

Bonjour Raymond, le forum
Merci Raymond, oui le père Noël a été généreux.
Voici une modification pour éffacer dans feuil"AXA" si "compte est éffacée
Bon Dimanche

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D23:O23")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
    Dim dernLign, dernLign1 As Long
    With Sheets("AXA")
    dernLign = .Range("B65536").End(xlUp).Row + 1
    .Cells(dernLign, 2) = Target.Offset
    If Target.Value = "" Then
    dernLign1 = .Range("B1").End(xlDown).Row
    .Cells(dernLign1, 2) = ""
    Else
    End If
    End With
  End If
  Application.EnableEvents = True
End Sub

 

[eliot raymond]

Re : Recopie d'une somme dans une autre feuille

Salut Arpette,

merci de ta réponse voila
j'ai tester mais ca fait toujours pareil,
vois svp la photo ci jointe, c'est mieux qu'un long discours ihihi

donc j'ai entrer 77 € pas de soucis transfert dans axa ok

je vois que j'ai entrer la mauvaise somme alors
je retourne dans compte je modifie la somme ca marche toujours, sauf que ca ecrit sur la ligne en dessous

moins bien

bon app a plus tard et bon dimanche

merci

 

[Arpette]

Re : Recopie d'une somme dans une autre feuille

Bonsoir Raymond, excuses moi, j'ai oublié de te dire qu'il faut faire suppr sur la valeur erronée pour effacer et ressaisir une nouvelle valeur
@+

 

[eliot raymond]

Re : Recopie d'une somme dans une autre feuille

Bonsoir Arpette,

Tu es tout excusé, c'est pas grave, merci pour la réponse

on pourrait pas svp effectuer un test qui ferai ca automatiquement

j'ai fait quelques essais mais je n'ai pas trouver

merci a plus tard

Merci a toi pour l'aide que tu m'a apporter, comme tu a certainement vu JNP a donner une solution ca fonctionne, ce qui boucle le programme.

Encore merci a toi, passe également de bonnes fètes de fin d'année

Raymond

 

[JNP]

Re : Recopie d'une somme dans une autre feuille

Bonjour le fil 🙂,
Si tu te bases sur la colonne de date en modifiant la ligne

    dernLign = .Range("A65536").End(xlUp).Row

chaque modification le même jour se fera sur la bonne ligne 😛...
Bonne suite 😎

 

[eliot raymond]

Re : Recopie d'une somme dans une autre feuille

Bonjour a toutes et tous, forum

Bonjour JNP

Merci de ta réponse, ca marche nickel, je reconnais la un oeil expert, ca boucle mon programme, ok pour moi.

encore merci a toi passe de bonnes fètes de fin d'année et attention a la nitro bibine, (LOL)

Raymond