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

Résolu/Fermé
Nico 2016 - Modifié par Nico 2016 le 10/01/2016 à 20:10
 Nico 2016 - 10 janv. 2016 à 21:33
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

ccm81 Messages postés 10893 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 septembre 2024 2 421
10 janv. 2016 à 20:42
Bonjour

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

Cdlmnt
1
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
ccm81 Messages postés 10893 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 septembre 2024 2 421
Modifié par ccm81 le 10/01/2016 à 21:32
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
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