Cellule maitresse

Résolu
Bonjour,

je cherche comment faire pour avoir une celleule "maitresse"
Je m'explique, exemple dans a1 je tape 10 je veux alors que dans b1 =10 mais si je tape 20 dans a1 alors dans b1 =30 c'est a dire que b1 additionne a1 a chaques entrées.
Peut etre pas possible!!
Merci à tous.

Cordialement.

3 réponses

  1. Bonjour

    Tu peux le faire par VBA

    Alt F11 pour ouvrir l'éditeur

    Tu selectionne ta feuille dans la fenetre gauche
    dans la fenetre droite tu entres le code suivant

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    ActiveSheet.Range("B1").Value = ActiveSheet.Range("B1").Value + ActiveSheet.Range("A1").Value
    End Sub

    Cdlmnt
    0
    1. Merci!
      Mais il y a un probleme sur cette ligne car elle se met en rouge ActiveSheet.Range("B1").Value = ActiveSheet.Range("B1").Value + ActiveSheet.Range("A1").Value
      Et pour moi la VBA c'est du chinoi ;)

      Cdt
      0
    2. re,

      Dsl je m'étais absenté
      Normalement ça devrait marcher
      Si tu peux poster un exemplaire de ton fichier allégé et anonymé sur cjoint.com et indiquer le lien dans un prochain message je pourrais peut être y voir plus clair

      Cdlmnt
      0
  2. Bonjour,

    Je suis de retour,
    Je vais rééssayer et je te tiens au courrant car je ne sais pas comment faire pour envoyé le fichier (et oui je suis un peu bebête ;-) )
    Encore merci.
    0
    1. J'ai essayé sur une feuille vierge mais ça ne fonctionne pas.
      Et si non sans la VBA cela ne peut pas se faire?

      Cdt
      0
    2. Bonjour,

      Sans vba non je ne penses pas
      Voilà un exemple avec mon code qui fonctionne

      https://www.cjoint.com/?0BAlF5P38Lh

      (Faire Alt F11 pour ouvrir l'editeur et voir le code)

      Cdlmnt
      0
  3. Re,

    Merci!! c'est SUPER ça marche je devais faire une mauvaise manip.
    Toutes mes excuses.

    A+ et encore MERCI
    Cordialement.
    0