Soucis sur exce

Bonsoir,

serait il possible sur excel de faire une cellule qui se calcul toute seul
par exemple sur la cellule a1 je met 10, puis je remet 10 et que dans la cellule a1 ce 20 etc

merci par avance
Configuration: Windows XP
Internet Explorer 7.0

7 réponses

  1. non. quand tu saisi une valeur dans une cellule, la valeur precedente est ecrasee et perdue.

    c'est possible en programmation VBA. ca t'interesse ?
    0
    1. 1) tu cree un classeur Excel avec 2 feuilles
      2) tu vas dans l'interface VBA (Alt+F11)
      3) tu vas dans l'explorateur de projet (Ctrl+R)
      4) Tu selectionne Feuil2 (Feuil2)
      5) tu vas dans la fenetre proprietes (F4)
      6) tu defini les valeurs suivantes :
      (name) = calculator
      Name = calculator
      Visible = 2 - xlSheetVeryHidden
      7) tu retourne dans l'explorateur de projet (Ctrl+R)
      8) double clic sur Feuil1 (Feuil1)
      9) tu saisi le code suivant
      Private Sub Worksheet_Change(ByVal Target As Range)
          Static NoEvent As Boolean
          If NoEvent Then Exit Sub
          NoEvent = True
      
          Dim TempCell As Range
          Set TempCell = calculator.Cells(Target.Row, Target.Column)
          If IsEmpty(Target) Then
              TempCell.ClearContents
          Else
              TempCell = TempCell + Target
              Target = TempCell
          End If
      
          NoEvent = False
      End Sub

      10) ferme l'interface VBA

      Dans ton classeur il n'y a plus qu'une feuille
      Quand tu saisi une valeur dans une cellule, elle s'ajoute a la precedente
      Quand tu supprime la valeur d'une cellule, elle devient vide.

      Qu'en pense tu ?
      0
      1. merci c bien
        mais le probleme c toute la feuille qui est comme ca je veu juste une colonne
        je sais e suis complique
        0
        1. Alors voila le nouveau code :
          Il faut remplacer la valeur de la constante COL par le numero de la colonne desiree.

          Const COL As Long = 1
          
          Private Sub Worksheet_Change(ByVal Target As Range)
              Static NoEvent As Boolean
              If NoEvent Then Exit Sub
              If Target.Column <> COL Then Exit Sub
              NoEvent = True
          
              Dim TempCell As Range
              Set TempCell = calculator.Cells(Target.Row, Target.Column)
              If IsEmpty(Target) Then
                  TempCell.ClearContents
              Else
                  TempCell = TempCell + Target
                  Target = TempCell
              End If
          
              NoEvent = False
          End Sub
          


          0
          1. excuse moi encore

            Deja merci ca ma beaucou aider

            mais il y a pas une formule qui peut le faire meme avec une cellule A1 qui a la formule et la cellule B1 ou tu saisis et que la cellule A1 car en memeoire
            0
            1. j'ai rien compris du tout a la phrase.
              peux tu essayer de reformuler ta question (en anglais ou espagnol si tu prefere) ?

              0