Insérer une formule de cacul dans excel

Résolu
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   -  
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite intégrer une formule de calcul, une addition, dans une cellule d'un tableau excel (2003 / 2010) de manière à ce qu'à chaque fois que je tape un chiffre ou signe quelconque dans la cellule je puisse passer au chiffre suivant.

Ex : En c12 j'ai "3". Je tape "1" ou autre dans cette cellule et j'obtiens "4".

Pouvez-vous m'aider ?

Par avance merci

A voir également:

7 réponses

Réponse 1 / 7
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

essaies cette macro 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$12" Then
    Application.EnableEvents = False
    nouveau = Target
    Application.Undo
    Target = Target + nouveau
    Application.EnableEvents = True
End If


au cas où:
comment installer ?
copier cette macro
clic droit sur le nom de l'onglet de la feuille concernée (en bas de l'écran)
visualiser le code
coller
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Bonjour tous
Michel, excellent, mais si je peux me permettre:
rajouter End Sub à la fin, non?
crdlmnt
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
exact, merci Vaucluse ;-)
0
Réponse 2 / 7
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   6
 
Merci pour vos réponses, mais j'ai un problème. J'ai crée la macro, je copie le code et j'enregistre. Et quand je veux exécuter la macro j'ai un message d'erreur : "Erreur de compilation : End Sub attendu" pourtant j'ai collé la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$12" Then
Application.EnableEvents = False
nouveau = Target
Application.Undo
Target = Target + nouveau
Application.EnableEvents = True
End If

Entre Sub stat1 () et End Sub.

Le Sub Stat1 () est surligné en jaune.

Que dois-je faire ?
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Il faut rajouter
End Sub
sur une nouvelle ligne après End if
crdlmnt
0
Réponse 3 / 7
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   6
 
J'ai bien fait ça mais j'ai le message d'erreur.

Sub stat1()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$12" Then
Application.EnableEvents = False
nouveau = Target
Application.Undo
Target = Target + nouveau
Application.EnableEvents = True
End If
End Sub

Le Sub Stat1() est toujours surligné en jaune.

Il faut peut être mettre la commande dans les parenthèses qui sont après le stat1 ?
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Supprimer le Sub stat () en entête et garder le End Sub à la fin, le Sub d'entête et déjà derrière le Private dans la première ligne.
Crdlmnt
0
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   6
 
Le problème c'est que si je supprime le Sub stat() et que j'enregistre j'ai le message suivant qui apparaît :

"Cette action va réinitialiser le projet" et dans la barre en haut le "stat" s'efface et laisse place à "(Déclarations)".

Et lorsque je veux appliquer la macro à la cellule, excel ne me propose rien.
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Vous devriez relire le message de michel ici, la fin en italique a du vous échapper

https://forums.commentcamarche.net/forum/affich-21185943-inserer-une-formule-de-cacul-dans-excel#1

en suivant ses instructions, voila ce que ça donne
http://www.cijoint.fr/cjlink.php?file=cj201103/cijpV6kFeS.xls

crdlmnt
0
Réponse 4 / 7
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour Vaucluse, Matt

Vous devriez relire le message de michel
--

Hé oui, Matt!
C'est pas possible, un.... (au choix) pareil
Michel
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   6
 
Je vous remercie pour votre patience, j'ai réussi à intégrer la macro. mais je souhaiterai l'appliquer à d'autres cellules. Que dois-je changer dans la macro pour que cela marche ?

Merci encore
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Pourquoi ne pas l'avoir dit AVANT ?

quelles sont ces cellules, sur quelle feuille?...

dis toi bien que nous n'avons que ce que tu écris pour essayer de t'aider.....
0
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   6
 
Les cellules concernées par cette macro sont entre B2 et N2 en largeur et B52 et N52 en longeur. Sur la feuille 1
0
Réponse 6 / 7
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:N52")) Is Nothing Then
    Application.EnableEvents = False
    nouveau = Target
    Application.Undo
    Target = Target + nouveau
    Application.EnableEvents = True
End If

End Sub
0
Réponse 7 / 7
Mann75 Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   6
 
Merci pour toutes vos réponses. J'ai réussi à intégrer le code, c'est parfait.
0