Insérer une formule de cacul dans excel
Résolu/Fermé
Mann75
Messages postés
60
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
2 mai 2011
-
14 mars 2011 à 16:45
Mann75 Messages postés 60 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 2 mai 2011 - 3 avril 2011 à 12:35
Mann75 Messages postés 60 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 2 mai 2011 - 3 avril 2011 à 12:35
A voir également:
- Insérer une formule de cacul dans excel
- Formule excel - Guide
- Insérer liste déroulante excel - Guide
- Formule moyenne excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Formule excel si et - Guide
7 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
14 mars 2011 à 17:27
14 mars 2011 à 17:27
Bonjour
essaies cette macro
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
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
Mann75
Messages postés
60
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
2 mai 2011
6
Modifié par Mann75 le 14/03/2011 à 19:46
Modifié par Mann75 le 14/03/2011 à 19:46
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 ?
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 ?
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 396
Modifié par Vaucluse le 14/03/2011 à 19:49
Modifié par Vaucluse le 14/03/2011 à 19:49
Il faut rajouter
End Sub
sur une nouvelle ligne après End if
crdlmnt
End Sub
sur une nouvelle ligne après End if
crdlmnt
Mann75
Messages postés
60
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
2 mai 2011
6
Modifié par Mann75 le 14/03/2011 à 20:00
Modifié par Mann75 le 14/03/2011 à 20:00
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 ?
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 ?
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 396
14 mars 2011 à 20:00
14 mars 2011 à 20:00
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
Crdlmnt
Mann75
Messages postés
60
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
2 mai 2011
6
Modifié par Mann75 le 14/03/2011 à 20:22
Modifié par Mann75 le 14/03/2011 à 20:22
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.
"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.
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 396
14 mars 2011 à 20:42
14 mars 2011 à 20:42
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
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
15 mars 2011 à 09:48
15 mars 2011 à 09:48
Bonjour Vaucluse, Matt
Vous devriez relire le message de michel
--
Hé oui, Matt!
C'est pas possible, un.... (au choix) pareil
Michel
Vous devriez relire le message de michel
--
Hé oui, Matt!
C'est pas possible, un.... (au choix) pareil
Michel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mann75
Messages postés
60
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
2 mai 2011
6
15 mars 2011 à 18:48
15 mars 2011 à 18:48
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
Merci encore
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
15 mars 2011 à 19:05
15 mars 2011 à 19:05
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.....
quelles sont ces cellules, sur quelle feuille?...
dis toi bien que nous n'avons que ce que tu écris pour essayer de t'aider.....
Mann75
Messages postés
60
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
2 mai 2011
6
Modifié par Mann75 le 15/03/2011 à 22:43
Modifié par Mann75 le 15/03/2011 à 22:43
Les cellules concernées par cette macro sont entre B2 et N2 en largeur et B52 et N52 en longeur. Sur la feuille 1
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
16 mars 2011 à 08:43
16 mars 2011 à 08:43
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
Mann75
Messages postés
60
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
2 mai 2011
6
3 avril 2011 à 12:35
3 avril 2011 à 12:35
Merci pour toutes vos réponses. J'ai réussi à intégrer le code, c'est parfait.
14 mars 2011 à 17:36
Michel, excellent, mais si je peux me permettre:
rajouter End Sub à la fin, non?
crdlmnt
14 mars 2011 à 17:39