Instruction incorrecte à l'extérieure d'un bloc de type

Fermé

randall Messages postés 422 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 26 février 2024 - 1 avril 2019 à 17:59
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 1 avril 2019 à 18:47

Bonjour,

Débutante en VBA je voudrais dans une feuille excel à l'aide de l'instruction select case (car j'ai beaucoup de case à écrire,j'ai simplifié le nombre pour la compréhension).Je voudrais colorer les cellules suivant leur valeur. Je n'arrive pas à démarrer la macro ,je butte au départ pour déclarer les variables je suppose . Sur mon exemple j'ai "instruction incorrecte à l'extérieure d'un bloc de type."sur la première ligne
Comment écrire cette macro au départ pour les cellule O19 à O23

Sub exemplecouleur()

range("O19:O23") As String
x = range("O19:O23").Value
Select Case x
Case Is < 100
Interior.ColorIndex = 3
Case Is = 100
Interior.ColorIndex = 5
Case Is > 100
Interior.ColorIndex = 8

End Select

End Sub

Merci pour la réponse

Configuration: Windows / Chrome 73.0.3683.86

A voir également:

2 réponses

Réponse 1 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
Modifié le 1 avril 2019 à 18:34

Bonjour

Teste ceci

Sub exemplecouleur()
  Dim x%
    For x = 19 To 23 'de la ligne 19 à 23
      Select Case Cells(x, 15)
      Case Is > 100
        Cells(x, 15).Interior.ColorIndex = 3
      Case Is = 100
        Cells(x, 15).Interior.ColorIndex = 5
      Case Is < 100
        Cells(x, 15).Interior.ColorIndex = 8
      End Select
    Next x
End Sub

Discussions similaires

Menace par email bitcoin

J'ai reçu un email de menace après avoir regardé du porno

L'état de la mémoire ne peut pas etre read

brancher câble ptt depuis extérieur a boitier rj45

Demande réparation câble téléphone dans la rue

Augmenter la luminosité

Discussions similaires

Newsletters