"Bouton" calcul manuel d'une feuille avec excel 2003 Résolu/Fermé

Question

Bonjour, 

Dans une feuille de calcul excel 2003 je voudrai lancer le calcul manuel de cette feuille par
un clic sur une cellule nommer par exemple calculer.
Pouvez-vous m'aider?
Merci



Configuration: Windows 7 / Chrome 27.0.1453.116

Mike-31 · Accepted Answer

Bonsoir,

Il faut ajouter un bout de code VBA qui fait la même chose que la touche F9

Clic droit sur l'onglet de ta feuille/Visualiser le code et colle ce bout de code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Mike-31 · Answer

Bonjour,

Dans outils/Options mais si tu actives le calcul manuel il s'appliquera à ton classeur ou il faut passer par du VBA

jps.forum · Answer

ok pour le "classeur" mais comment affecter la commande "calculer (du type F9)"
à une cellule cliquable?
a+

Mike-31 · Answer

Re,

Si tes attentes sont satisfaites confirme le moi que l'on mette le statut de la discussion en résolu ou fait le directement

jps.forum · Answer

Ma question demeure 
"comment affecter la commande "calculer (du type F9)" 
à une cellule cliquable? "
Merci pour vos réponses

Mike-31 · Answer

Re,

tu as la réponse sur mon post qui à hérité d'un +1 
si ce n'est pas ce que tu cherches complète ta demande

jps.forum · Answer

mes excuses Mike-31, j'ai sautée la réponse
 "Il faut ajouter un bout de code VBA qui fait la même chose que la touche F9 

Clic droit sur l'onglet de ta feuille/Visualiser le code et colle ce bout de code 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Calculate 
End Sub    "

Le VBA je maîtrise pas bien!!!
Je sélectionne par exemple A1 , outils, macro, nouvelle macro, je la nomme, est ensuite ???
merci de ton aide

eriiic · Answer

Bonjour,

une précision, Calculate te recalcule tout le classeur, si tu ne veux recalculer que la feuille c'est :
sheets("Feuil1").calculate

Et si tu veux lancer par un clic en A1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target = [A1] Then ActiveSheet.Calculate
End Sub

Clic-droit sur le nom d'onglet de ta feuille, 'visualiser le code...', coller le code

eric

Mike-31 · Answer

Re,

Non tu veux remplacer la fonction F9 il faut passer par un bout de code qui automatise cette fonction pour cela je t'ai donné la marche à suivre point par point et faire uniquement ceci

clic droit sur l'onglet de feuille concernée/clic sur visualiser le code/coller le code ci dessous dans la feuille blanche qui s'est ouverte ce n'est pas difficile
par contre si tu veux que le code s'active uniquement à partir d'une cellule il faut le préciser
A part que tu veuilles vraiment un bouton qui lancerait le code sur ton ordre


Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Calculate 
End Sub 

 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jps.forum · Answer

Merci a vous tous pour votre aide.

Ça fonctionne parfaitement ma demande est résolu.

"Bouton" calcul manuel d'une feuille avec excel 2003

10 réponses

Discussions similaires