Recopie d'une somme dans une autre feuille

E

eliot raymond

XLDnaute Occasionnel

• 24 Décembre 2011

• #2

Re : Recopie d'une somme dans une autre feuille

Salut a tous,

Ok bon tant pis

Raymond

 

Dernière édition: 24 Décembre 2011

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 24 Décembre 2011

• #3

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

Code:

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

 

Pièces jointes

• Essai.xlsm

  21 KB · Affichages: 96
• Essai.xlsm

  21 KB · Affichages: 97
• Essai.xlsm

  21 KB · Affichages: 105

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 25 Décembre 2011

• #4

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

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 25 Décembre 2011

• #5

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

Code:

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

 

Pièces jointes

• Essai.xlsm

  22.7 KB · Affichages: 66
• Essai.xlsm

  22.7 KB · Affichages: 64
• Essai.xlsm

  22.7 KB · Affichages: 59

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 25 Décembre 2011

• #6

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

 

Pièces jointes

• erreur.jpg

  66.1 KB · Affichages: 67
• erreur.jpg

  66.1 KB · Affichages: 64
• erreur.jpg

  66.1 KB · Affichages: 69

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 25 Décembre 2011

• #7

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
@+

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 25 Décembre 2011

• #8

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

 

Dernière édition: 26 Décembre 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 26 Décembre 2011

• #9

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

Code:

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

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

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 26 Décembre 2011

• #10

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

 

Vote positif 0 Vote négatif