Boucles
Fermé
mcno
Messages postés
2
Date d'inscription
mardi 25 août 2015
Statut
Membre
Dernière intervention
25 août 2015
-
25 août 2015 à 13:45
Tessel75 - 25 août 2015 à 22:38
Tessel75 - 25 août 2015 à 22:38
1 réponse
Bonjour,
Il n'y a pas beaucoup de simplification à apporter à ton code.
Attention : En principe, sauf s'il y a eu des changements dans les nouvelles versions du VBA, tu ne peux pas utiliser l'expression "like "ABC*"" avec Select Case. A moins que ton "*" soit à prendre comme un caractère propre.
Par contre, tu peux regrouper plusieurs conditions sous un même "Case":
Case "ABC", "DEF", "GHJ", etc ... : XYZ
Et puis, tu peux utiliser l'écriture With ... End With pour alléger l'écriture.
A l'arrivée, tu auras une écriture du genre:
With Me![Lundi]
Select case .Column(1)
Case "désin","Désin*": .ForeColor = vbRed
Case "Balay": .ForeColor = vbBlack
etc
End select
End with
Et ainsi de suite
Il n'y a pas beaucoup de simplification à apporter à ton code.
Attention : En principe, sauf s'il y a eu des changements dans les nouvelles versions du VBA, tu ne peux pas utiliser l'expression "like "ABC*"" avec Select Case. A moins que ton "*" soit à prendre comme un caractère propre.
Par contre, tu peux regrouper plusieurs conditions sous un même "Case":
Case "ABC", "DEF", "GHJ", etc ... : XYZ
Et puis, tu peux utiliser l'écriture With ... End With pour alléger l'écriture.
A l'arrivée, tu auras une écriture du genre:
With Me![Lundi]
Select case .Column(1)
Case "désin","Désin*": .ForeColor = vbRed
Case "Balay": .ForeColor = vbBlack
etc
End select
End with
Et ainsi de suite
25 août 2015 à 16:15
Merci pour ta réponse rapide.
En effet l'* est un caractère que nous utilisons dans la désignation du travail effectué et est donc un caractère propre. Ce que je pensais était plutôt d'utiliser une fonction du genre "for each" pour ne pas répéter les actions pour chaque jour de la semaine, un peu comme une sous-routine.
25 août 2015 à 22:38
Bonne suite.