[Résolu] Problème formule VBA

[Booky]

Hello à tous,

Je début sur VBA et j'essaye de m'auto-former.

J'ai réalisé cette formule
Sub couleurs()
Dim cellule As Range
For Each cellule In Selection.Cells
Select Case cellule.Value
Case Is <= 200: cellule.Font.Color = RGB(255, 0, 0)
Case Is > 230: cellule.Font.Color = RGB(0, 255, 0)
Case Is < 230: cellule.Font.Color = RGB(255, 160, 0)
Case Else
cellule.Font.Color = RGB(255, 0, 0)
End Select
Next
End Sub


Sauf que j'aimerais qu'il me prenne uniquement les données de la colonne E de E4 à E200.
Je souhaite pour que quand je clique sur le bouton il me colore ce que je souhaite sans que je sois obliger de sélectionner la colonne et du coup le temps de réponse est assez long et n'est pas très pratique pour utiliser le tableau.

Merci pour votre aide !

 

[chris]

Re : Problème formule VBA

Bonjour

L'objectif est-il d'apprendre VBA ?

Si oui soit il faut sélectionner la plage E4 à E200 soit il faut restreindre le code à cette plage en donnant son adresse plutôt que d'appliquer le code à Selection.cells, soit il déterminer dans le code la plage remplie pour plus de souplesse.

Si non un mise en forme conditionnelle est plus simple à réaliser et plus dynamique

 

[Booky]

Re : Problème formule VBA

Oui l'objectif est d'essayer d'apprendre

Donc si j'ai bien compris, je dois remplacer par :
Range ("E4";"E200").Select

C'est ça à la place de ça
For Each cellule In Selection.Cells
Select Case cellule.Value

Correct?

 

[chris]

Re : Problème formule VBA

RE

Non.

For Each cellule In range("E2:E200").Cells

On évite les Select inutiles.

 

[Booky]

Re : Problème formule VBA

Chris,

Merci, j'ai compris grâce à ton retour où était mon erreur, je vais me noter ça dans mon fichier d'aide Excel !

Merci pour tes lumières !

 

[john]

Re : Problème formule VBA

Bonjour,
Ou tu peux nommer ta plage (E4:E200) (par ex: donnees (voir ex ci-joint)) et faire un :

for each cellule in range("donnees") 'pour moi plus facile de s'y retrouver...
Select Case cellule.Value
Case Is <= 200: cellule.Font.Color = RGB(255, 0, 0)
Case Is > 230: cellule.Font.Color = RGB(0, 255, 0)
Case Is < 230: cellule.Font.Color = RGB(255, 160, 0)
Case Else
cellule.Font.Color = RGB(255, 0, 0)
End Select
next
Bon dimanche.
John