Cumul de valeur en meme cellule SOUS excel2007

Le 10/04/2014 à 16:09

bonjour

d abord je remercier tte personne a la volonté d aider l autre c deja une grande valeur en lui

mon probleme que j espere que vous m aider dans sa resolution c que j arrive pas a trouver une fonction qui donne la cumulation d une valeur ancienne avec la nouvelle saisie en meme cellule sous excel

par exmple dasn la cellule A1 J AI SAISI HIER 100 AUJOURD HUI J AI UNE NOUVELLE VALEUR A ADDITIONNER EN MEME CELLULE DE 40 JE VOUDRAI QUAND J EFFACE LA VALEUR 100 ET JE TAPE 40 EN MEME CELLULE ME DONNE VALEUR DE 140 ET MERCI D AVANCE

Le 10/04/2014 à 16:39

Bonjour,

A mettre dans le module de la feuille :

Dim Valeur

Private Sub Worksheet_Change(ByVal Target As Range)

    'gèle les évènements
    Application.EnableEvents = False

    additionne l 'ancienne valeur à la nouvelle
    Target.Value = Target.Value + Valeur

    'réactive
    Application.EnableEvents = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'mémorise la valeur à l'entrée dans la cellule avant modif
    Valeur = Target.Value

End Sub

Hervé.

Le 10/04/2014 à 16:49

REBONJOUR

MERCI D AVOIR RéPONDU SUR MON MESSAGE.mais je savais pas dois je commencer pour arriver a un resultat signifiant ,c la premiere fois que j utilise vbA

priére de me donner une réponse sous des etapes merci encore fois

Le 10/04/2014 à 19:36

Bonjour,

  • Afficher l'onglet Développeur (Dans le bouton Office, Options Excel, Standard, cocher la case "Afficher l'onglet Développeur dans le Ruban"
  • Dans l'onglet Développeur, cliquer sur Visual Basic (Alt + F11)
  • Dans la liste de gauche, double-cliquer sur la feuille concernée.
  • Coller le code (J'ai ajouté un If pour effectuer l'addition automatiquement uniquement s'il s'agit de la cellule A1, sinon, tu peux reprendre le code de Theze)
Option Explicit

Dim Valeur

Private Sub Worksheet_Change(ByVal Target As Range)

       'gèle les évènements
       Application.EnableEvents = False

       'additionne l'ancienne valeur à la nouvelle s'il s'agit de la cellule A1
       If Target = Range("A1") Then
              Target.Value = Target.Value + Valeur
       End If

       'réactive
       Application.EnableEvents = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

       'mémorise la valeur à l'entrée dans la cellule avant modif
       Valeur = Target.Value

End Sub

Et puis c'est tout.

Cordialement.

Le 10/04/2014 à 20:46

Bonsoir le forum,

Saisir en A1 le montant.

Cumul avec la ou les saisie(s) précédente(s) en A1.

Historique des saisies.

mbbp

499cumul-dans-la-meme-cellule.zip (10.54 Ko)
Le 10/04/2014 à 21:00

BONSOIR

GRAND MERCI ET GRAND CHAPEAU POUR THEZE ET OYOBRANS Le CODE QUE VOUS M AVEZ ENVOYé EST BIEN REUSSIT .

C VRAIMENT FORMIDABLE CE QUE VOUS FAITES POUR LES AUTRES DANS CE FORUM.VOUS M AVEZ VRAIMENT SAUVER ET MERCI AUSSI POUR MBBP POUR L EFFORT C AUSSI SUPER CE QUE VOUS M AVEZ ENVOYé MERCI A VOUS A LA PROCHAINE

BONSOIR

J AI UN SEUL PROBLEME COMMENT ENREGISTRER CE FICHIER EXCEL TT EN GARDANT LES FONCTIONS MACROS CAR QUAND J AI essaié D ENREGISTRER CE FICHIER APRES L INSERTION ET L INTEGRATION DE CODE ,il M A DEMANDE DE CHOISIR UN TYPE DE FICHIER COMPREND LES MACROS MERCI

Le 10/04/2014 à 22:05

BONSOIR

UN AUTRE PROBLEME DONT JE VOUDRAI REALISER

JE VEUX APPLIQUER CE CODE SUR UN ENSEMBLE DES CELLULES PAS SEULEMENT SUR A1 PAR EXEMPLE SI JE VEUX LE CUMUL SUR MEME CELLULE DE A1 JUSQU AU A100 .CHAQUE CELLULE FAIT SA CUMULATION ; peut etre if then ca marche est ce que je peux utiliser un boucle est comment faire merci beaucoup

Le 10/04/2014 à 22:28

Bonsoir à tous

Evite d'écrire en majuscule (= crier)

Fais 'Enregistrer sous...' et choisi le type *.xlsm

Pour une plage :

If Target = Range("A1:A100") Then

Pour la colonne A sauf la ligne 1 :

If target.column=1 and target.row >1 then

eric

Le 10/04/2014 à 22:50

BONSOIR ERIC

je vous remercier sur votre participation comme je vous dis que j ai éssaié plusieurs fois le code que vous m avez envoyé mais j arrive pas a bien le mettre peut etre ,c pour cela je vous supplier de porter une modification c possible sur le code deja donner de OYOBRANS car ca fonctione trés bien sur une seule cellule le cas ou moi je voudrai un boucle ou une methode qui va me permettre de faire un cumul sur meme cellule et qui peut aller a un nombre infinit des cellules par exmple

cumul sur A1 ET AUTRE séparé de A2 et puis A3 ...

et merci pour vous efforts

Le 10/04/2014 à 23:04

porter une modification c possible sur le code deja donner de OYOBRANS

C'est la 2nde partie de mon post.

Remplacer :

If Target = Range("A1") Then

par :

If Target = Range("A1:A100") Then

ou :

If target.column=1 and target.row >1 then

eric

Le 10/04/2014 à 23:35

rebonsoir ERIC

je vous remercier beaucoup pour vos efforts c grace a vous que j arrive a trouver une solution adéquate a mon probleme ,grand merci apres une journnée du travail a la prochaine

Le 11/04/2014 à 00:03

rebonsoir ERIC

je vous remercier beaucoup pour vos efforts c grace a vous que j arrive a trouver une solution adéquate a mon probleme ,grand merci apres une journnée du travail a la prochaine

Le 11/04/2014 à 07:25

Bonjour,

Colle ce code dans le module de ta feuille. La plage cible est A1:A100, adapte :

Dim Valeur

Private Sub Worksheet_Change(ByVal Target As Range)

    'seulement en A1:A100
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

        If Target.Count = 1 Then

             'gèle les évènements
            Application.EnableEvents = False

            'additionne l 'ancienne valeur à la nouvelle
            Target.Value = Target.Value + Valeur

             'réactive
            Application.EnableEvents = True

        End If

    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'seulement en A1:A100
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

        If Target.Count = 1 Then

            'mémorise la valeur à l'entrée dans la cellule avant modif
            Valeur = Target.Value

        End If

    End If

End Sub

Hervé.

Bonjour,

Colle ce code dans le module de ta feuille. La plage cible est A1:A100, adapte :

Dim Valeur

Private Sub Worksheet_Change(ByVal Target As Range)

    'seulement en A1:A100
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

        If Target.Count = 1 Then

             'gèle les évènements
            Application.EnableEvents = False

            'additionne l 'ancienne valeur à la nouvelle
            Target.Value = Target.Value + Valeur

             'réactive
            Application.EnableEvents = True

        End If

    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'seulement en A1:A100
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

        If Target.Count = 1 Then

            'mémorise la valeur à l'entrée dans la cellule avant modif
            Valeur = Target.Value

        End If

    End If

End Sub

Hervé.

Oups, désolé doublon !!!

Le 11/04/2014 à 22:36

MERCI BEAUCOUP THEZE

j ai une suggestion a ce propos ,c mes premiers jours dans mes recherches a ce niveau de la programmation avec excel,je demande si possible de me donner des liens pour mieux avancer

que ce soit en excel en vbA visuel basic6 VB DOT NET

Bonne contuniation soirée

Rechercher des sujets similaires à "cumul valeur meme excel2007"