Selection d'une plage de données variables et mise en couleur

Signaler
Messages postés
9
Date d'inscription
mercredi 18 novembre 2009
Statut
Membre
Dernière intervention
21 février 2012
-
Messages postés
9
Date d'inscription
mercredi 18 novembre 2009
Statut
Membre
Dernière intervention
21 février 2012
-
Bonjour,
je commence à utiliser les macros vb sous excel,jusqu'à maintenant je ne faisais que les lancer et modifier quelques champs ce qui était abordable pour moi mais aujourd'hui,je dois créer une macro qui met des couleurs si les valeurs du tableau est inférieur à 30.
Mon premier problème est que les tableaux changent à chaque fois de taille et d'emplacement en fonction des personnes qui les ont crées je ne peux donc pas effectuer ma sélection sur une plage fixe.
Comment puis je determiner ma plage de données ?

Au départ j'avais pensé a une macro telle que celle ci :

Sub couleurcellule()

Dim Plage as range,cellule as range,Balise as long

Balise=Range("A65536").End(xlUp).Row

Set Plage=(Range("A1:A"&Balise)
For Each cellule In Plage
If cellule<30 then Cellule.Interior.ColorIndex=3
Elseif Cellule.Interior.ColorIndex=xlNone
Endif
Endsub

Malheureusement je ne teste que la colonne A,comment tester les autres.

Je vous remercie à l'avance

2 réponses

Messages postés
181
Date d'inscription
mardi 18 novembre 2008
Statut
Membre
Dernière intervention
4 février 2011

Hello,

Peut-être peux-tu inclure le code sur la feuille concernée entière :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value > 30 Then
Target.Interior.ColorIndex = 3
Else:
Target.Interior.ColorIndex = xlNone
End If
End Sub

Le code ci-dessus permet de mettre en couleur les cellules qui sont modifiées et dont la valeur est supérieur à 30.
Pas de couleur si valeur inférieur à 30.

Tu peux t'en inspirer
BR

USERRRQI115
Simple user
Great brain
Messages postés
9
Date d'inscription
mercredi 18 novembre 2009
Statut
Membre
Dernière intervention
21 février 2012

Merci pour cette réponse rapide cependant les données ont changées.

Il faut uniquement réaliser le test sur le dernier TCD réalisé.

Merci de votre aide