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

titamy Messages postés 9 Date d'inscription mercredi 18 novembre 2009 Statut Membre Dernière intervention 21 février 2012 - 18 nov. 2009 à 08:51
titamy Messages postés 9 Date d'inscription mercredi 18 novembre 2009 Statut Membre Dernière intervention 21 février 2012 - 20 nov. 2009 à 09:12
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

userrrqi115 Messages postés 181 Date d'inscription mardi 18 novembre 2008 Statut Membre Dernière intervention 4 février 2011
18 nov. 2009 à 10:31
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
0
titamy Messages postés 9 Date d'inscription mercredi 18 novembre 2009 Statut Membre Dernière intervention 21 février 2012
20 nov. 2009 à 09:12
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
0
Rejoignez-nous