Exécuter une macro quand la cellule change Résolu

Question

Bonjour, 

J'ai une macro de mise en forme d'un tableau (ajout/suppression de couleurs etc).

J'ai une seule cellule à modifier pour que mon tableau se transforme.
Or le tableau ne se met pas en forme à chaque modification de la cellule.

Comment puis-je ordonner à la macro de s'exécuter à chaque modification de la-dite cellule?

Merci

Mike-31 · Accepted Answer

Re,

un peu normal, tu ne m'as pas confirmé la cellule de déclenchement, en supposant qu'il s'agisse de la cellule A1, fait un clic droit sur l'onglet de ta Sheet1 et colle ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Call FormatTab
End If
End Sub

f894009 · Answer

Bonjour,

VBA:

https://forums.commentcamarche.net/forum/affich-20778122-macro-lance-au-changement-d-une-cellule-excel

Bonne suite

Mike-31 · Answer

Salut,

Pour avoir une réponse précise, il faudrait voir ton fichier ou avec le code existant voir s'il est dans un module, ensuite il faudra écrire un bout de code dans les propriétès de la feuille pour déclencher la macro genre

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3")) Is Nothing Then
'ici le nom de ta macro précéde de Call
End If
End Sub

nemzor · Answer

https://www.cjoint.com/?BHnrnKRqmYm

Voici un fichier exemple qui explique un peu comment mon tableau fonctionne...

@f894009 : merci pour le lien j'ai essayé mais je n'arrive pas à intégrer les codes donnés...

@Mike-31 : je ne connais pas le fonctionnement des modules, et c'est peut-être pour cela que quand j'integre ce code "Worksheet_Change", il ne se passe rien de plus qu'avant.

Merci d'avance.

Mike-31 · Answer

Re,

dans ton tableau, ce n'est pas la cellule C3 qui change, et qui décllenchera la macro c'est la A1, c'est bien cela

Patrice33740 · Answer

Bonjour,

Plutôt que d'utiliser une macro, peut-être qu'une simple formule pourrait convenir, par exemple en I8 :
=SI($A$20=1;TEXTE(G7/E7;"# ##0%");TEXTE(G7-E7;"# ##0,0\ [$pts]"))

nemzor · Answer

Re,

Merci je viens de comprendre qu'il fallait appliquer le code dans Sheet1, et non pas dans un module...!

Patrice33740 · Answer

Bonjour,

mon tableau de base possède énormément de critère différents dans la liste déroulante ; j'ai bien peur de manquer de SI( 

Énormément, c'est certainement beaucoup, mais Excel , lui aussi, offre énormément de possibilités avec ,entre autres, des formules spécialisées dans les bases de données. Tant qu'il s'agit de calculs, on est rarement obligé de faire appel au VBA (mais c'est parfois plus simple !).

Mike-31 · Answer

Re,  

Surtout que le nombre d'imbrication si n'a jamais été un problème pour Excel, il est simplement illimité voir l'astuce que j'ai déposé ici  
A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Exécuter une macro quand la cellule change

9 réponses

Discussions similaires

Newsletters