[excel] application automatique d'une macro à une case

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [excel] application automatique d'une macro à une case

ElDje

Hasta liberta, compañeros

voilà, en gros, je voudrai donner une couleur de fond à une cellule suivant la valeur qu'elle contient (typiquement: rouge si négative, verte si positive).

J'ai codé une telle routine avec mes petites paluches (pas avec le "recorder" de excel, quoi...)
Le "hic", c'est qu'elle ne se lance qu'à son appel (et en ouverture de fichier).

Serait-t-il possible de l'automatiser, de telle sorte que dès que sa valeur change, la macro soit appliquée et que la couleur de remplissage soit automatiquement adaptée?

Le code actuel de la macro (très simple, je sais) est le suivant:

Code :

Sub Colouring_balance()
Range("L17" ).Select
If Selection.Value < 0 Then
Selection.Font.ColorIndex = 2
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Else
Selection.Font.ColorIndex = 2
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
End If
End Sub

elle s'applique donc à la case L17.

Publicité

DamienCYS

utilise le code suivant dans l'objet de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column = 12) And (Target.Row = 17) Then
Colouring_balance
End If
End Sub

Cette fonction se lance à chaque changement de valeur dans la feuille tu teste danc si elle est appellée depuis la case L17 et tu lance ta macro

ElDje

Hasta liberta, compañeros

Impeccable!

Et pour peaufiner le tout, j'aimerait appliquer cette macro a toute les feuilles de mon classeur... sans avoir à copier ce code dans chaque worksheet... c'est possible?

DamienCYS

peut être avec Workbook_Change dans l'objet Workbook mais je suis pas sur

ElDje

Hasta liberta, compañeros

En fait, la macro ne se lance pas...

pourtant, j'ai fais un "copy-paste"...
Il n'y a aucune erreur?

Message édité par ElDje le 17-01-2006 à 09:21:46

ElDje

Hasta liberta, compañeros

Ok, sans doute ais-je mal expliqué... je viens de relire ton code et l'eplication que tu en donnes.

La valeur dans cette case est (L17) est le résultat d'une formule.
Donc, le changement de valeur a lieux sur d'autres cellules!
Je suppose que c'ets pourquoi la macro n'est pas lancée.

une solution?

DamienCYS

la fonction avec Worksheet_Change doit marcher j'ai moi aussi fait un copier coller depuis un classeur ou cela fonctionne l'as tu bien mis au bon endroit

ElDje

Hasta liberta, compañeros

...Je ferai mieux de réfléchir avant de poster, je sais ^_^'

Jai trouvé...
en gros, la macro est lancé à chaque changement de valeur dans le tableur:

Code :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Colouring_balance
End Sub

Merci pour ton aide ^_^, damienCYS.

DamienCYS

ne tien pas compte de ma réponse précédente je vien de voir que ca provient d'une fonction.
Si tu veu seulement appliquer une couleur de fond à ta case en fonction de sa valeur il faudrait mieu que tu utilise la mise en formae conditionnelle q'une macro

ElDje

Hasta liberta, compañeros

En cadeau pour les prochains:

Pour appliquer ce code à TOUTES les pages d'un classeur, la syntaxe est la suivante, à placer dans WORKBOOK:

Code :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Colouring_balance
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[excel] application automatique d'une macro à une case

Sujets relatifs
Ignorer les messages de confirmation (VBA Excel)	Quelle BDD utiliséé avec VB pour une petite application
diaporama simple xml/flash automatique sans navigation	Lancer une application grâce a un lien HTML
[VBA EXCEL 2003]Lister les noms des dossiers d'un repertoire > listbox	excel : fonction pour effacer le contenu d'une cellule
html /ajuster automatique zone de texte a la saisie	ouvrir une application
[Dreamweaver] Création automatique d'un fichier .css à part	appel Macro via UserForm(Resolu)
Plus de sujets relatifs à : [excel] application automatique d'une macro à une case

Page générée en 0.071 secondes