Excel
Résolu
s.ayglon
Messages postés
1
Statut
Membre
-
Raymond PENTIER Messages postés 71824 Statut Contributeur -
Raymond PENTIER Messages postés 71824 Statut Contributeur -
Bonjour,
Avec Excel peut-on, dans une cellule inscire un chiffre sur un chiffre déjà inscrit et que celui-ci s'aditionne automatiquement au chiffre "écrasé" ?merci et bonne journée
Avec Excel peut-on, dans une cellule inscire un chiffre sur un chiffre déjà inscrit et que celui-ci s'aditionne automatiquement au chiffre "écrasé" ?merci et bonne journée
A voir également:
- Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel trier par ordre croissant chiffre - Guide
2 réponses
Bonjour,
Non.
A moins que...
Supposons que en A1 vous ayez saisi "=20" sans les guillemets, mais avec le signe égal. Vous voulez saisir maintenant en A1 10 et que A1 vous affiche 30.
Clic sur A1, tapez F2, saisir "+10" sans les guillemets, mais avec le signe plus et tapez Entrée...
Sinon, une solution par macro, si tu le souhaites......
Non.
A moins que...
Supposons que en A1 vous ayez saisi "=20" sans les guillemets, mais avec le signe égal. Vous voulez saisir maintenant en A1 10 et que A1 vous affiche 30.
Clic sur A1, tapez F2, saisir "+10" sans les guillemets, mais avec le signe plus et tapez Entrée...
Sinon, une solution par macro, si tu le souhaites......
"peut-on, dans une cellule inscire un chiffre sur un chiffre déjà inscrit et que celui-ci s'aditionne automatiquement au chiffre écrasé" ? Oui :
* Tu tapes la valeur à additionner dans une cellule vide ;
* tu fais Copier ;
* tu reviens dans la première cellule déjà renseignée ;
* tu fais Collage spécial/Addition.
* Tu tapes la valeur à additionner dans une cellule vide ;
* tu fais Copier ;
* tu reviens dans la première cellule déjà renseignée ;
* tu fais Collage spécial/Addition.
1- Clic droit sur l'onglet de la feuille concernée / Visualiser le code
2- copier/coller ce code dans la fenêtre VBE
Option Explicit Dim OldVal As Double, NewVal As Double Dim test As Boolean Private Sub Worksheet_Change(ByVal Target As Range) If Target = "" Or Target.Count > 1 Or test = False Then NewVal = 0 Exit Sub End If If Target.Value <> 0 And IsNumeric(Target.Value) Then NewVal = Target.Value test = False Target.Value = NewVal + OldVal End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target = "" Or Target.Count > 1 Then OldVal = 0 Exit Sub End If If Target.Value <> 0 And IsNumeric(Target.Value) Then OldVal = Target.Value test = True End Sub3- fermer la fenêtre VBE et testez...