Plusieurs saisis dans une même cellule .....
Résolu/Fermé
A voir également:
- Plusieurs saisis dans une même cellule .....
- Aller à la ligne dans une cellule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Excel cellule couleur si condition texte - Guide
- Comment saisir une adresse url - Guide
- Verrouiller cellule excel - Guide
2 réponses
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 425
10 janv. 2016 à 20:42
10 janv. 2016 à 20:42
Bonjour
Une réponse (peut être) à la première question
http://www.cjoint.com/c/FAktQsZzpjk
Cdlmnt
Une réponse (peut être) à la première question
http://www.cjoint.com/c/FAktQsZzpjk
Cdlmnt
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 425
Modifié par ccm81 le 10/01/2016 à 21:32
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
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
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 !!!!
ç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 !!!!
10 janv. 2016 à 20:50
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 !