Plusieurs saisis dans une même cellule .....

Résolu
Nico 2016 -  
 Nico 2016 -
Bonjour CCM

Tous mes vœux de bonheur à toutes et à tous !!!!

On ne peut même pas dir que je débute en VBA, MACRO ou autres programmation Excel, car je fais les choses au jour le jour,

D’où ma question, mon problème:

Je cherche à pouvoir saisir dans une seulle et même case plusieurs données (chiffres)

seulement à chaques frappe cette donnée s’efface pour laisser la case vide et en resaisir une autre, le total s'afficherai dans une autre case et la derniere frappe aussi(une 3 eme case donc) dès fois que je soit distrait par quelque chose et que je ne me rappel plus de la derniere saisie (telephone ou autre)

Si déjà je parviens à faire ça c'est pas mal !!! car il y a une autre demande, concernant la saisie, j'aimerais donc "saisir" le chiffre en question et pouvoir appuyer sur "entrée" mais sans que le curseur descende sur la case du dessous en fait "entrée" validerai le chiffre et effacerai la case une fois effacé la case du dernier chiffre saisi affiche ce derneir.....

J'ai mis un fichier dispo sur cijoint ( j'ai pu constater que c’était courant !!!)

http://www.cjoint.com/c/FAktiFMgEjl

Par avance Merci !!!

Windows 10/ Chrome 47.0.2526.106 excel 2013

2 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Une réponse (peut être) à la première question
    http://www.cjoint.com/c/FAktQsZzpjk

    Cdlmnt
    1
    1. Nico 2016
       
      Salut ccm81,

      Cela réponds entièrement à ma demande !!!

      Peux tu me détailler ton code ??



      Option Explicit

      Const saisie = "A2"
      Const total = "B2"
      Const ancienne = "C2"

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim vs
      If Not Intersect(Target, Range(saisie)) Is Nothing Then
      Application.EnableEvents = False
      vs = Target.Value
      Range(total).Value = Range(total).Value + Target.Value
      Target.Value = ""
      Range(ancienne).Value = vs
      Target.Select
      Application.EnableEvents = True
      End If
      End Sub




      Merci à toi !
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Le même commenté
    Si c'est fini, merci de mettre le sujet à Résolu (en dessous du titre de ton premier message)
    http://www.cjoint.com/c/FAkuiAjRNbk

    Bonne soirée
    1
    1. Nico 2016
       
      Ah !!!!

      ça ne peut pas être plus explicite !!!!

      Donc sujet résolu !!

      dernière question ???:

      Dans VBA, la couleur de l'écriture a un impact sur le code si je comprend bien ? le vert ne fait rien ?
      le bleu ?
      le noir ?
      rouge ??

      Bon ça en fait des point d'intérogation !!

      En tout cas un grand merci à toi !!!!
      0