Discussion :

[eliot.raymond]

Bonjour a tous et toutes, forum bonjour,

Voila je voudrai bien SVP si possible simplifier ce code qui est un peu long
ce code est senser colorier les mois de l'année avec la condition suivante

Si a partir de la Colonne F2 le mot Janvier est trouver alors mettre fond en couleur 33
et ainsi de suite pour les autres mois, tous en respectant la case.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Nbl As Integer: Dim i As Integer 
Nbl = Sheets("Feuil1").[F65536].End(xlUp).Row 
For i = 2 To Nbl 
 
If Range("F" & i) Like "*Janvier*" Then 
Range("F" & i).Interior.ColorIndex = 33 
End If 
 
If Range("F" & i) Like "*Février*" Then 
Range("F" & i).Interior.ColorIndex = 34 
End If 
 
If Range("F" & i) Like "*Mars*" Then 
Range("F" & i).Interior.ColorIndex = 33 
End If 
 
If Range("F" & i) Like "*Avril*" Then 
Range("F" & i).Interior.ColorIndex = 34 
End If 
 
If Range("F" & i) Like "*Mai*" Then 
Range("F" & i).Interior.ColorIndex = 33 
End If 
 
If Range("F" & i) Like "*Juin*" Then 
Range("F" & i).Interior.ColorIndex = 34 
End If 
 
If Range("F" & i) Like "*Juillet*" Then 
Range("F" & i).Interior.ColorIndex = 33 
End If 
 
If Range("F" & i) Like "*Août*" Then 
Range("F" & i).Interior.ColorIndex = 34 
End If 
 
If Range("F" & i) Like "*Septembre*" Then 
Range("F" & i).Interior.ColorIndex = 33 
End If 
 
If Range("F" & i) Like "*Octobre*" Then 
Range("F" & i).Interior.ColorIndex = 34 
End If 
 
If Range("F" & i) Like "*Novembre*" Then 
Range("F" & i).Interior.ColorIndex = 33 
End If 
 
If Range("F" & i) Like "*Décembre*" Then 
Range("F" & i).Interior.ColorIndex = 34 
End If 
 
Next i 
End sub

Merci de votre temps et Bonne fin d'apres midi

Raymond

[MARCELBENH]

Bonjour,

tu peux déja utiliser l'expression select case pour éviter de faire des if les uns derrière les autres
cdlt

[laetitia]

bonjour eliot.raymond MARCELBENH le forum peut être passer par un array???
autrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 2 To Sheets("Feuil1").[F65536].End(xlUp).Row
If Range("F" & i) Like "*Janvier*" Or Range("F" & i) Like "*Mars*" Or Range("F" & i) Like "*Mai*" _
Or Range("F" & i) Like "*Juillet*" Or Range("F" & i) Like "*Septembre*" Or Range("F" & i) Like "*Novembre*" Then
Range("F" & i).Interior.ColorIndex = 33
End If
If Range("F" & i) Like "*Février*" Or Range("F" & i) Like "*Avril*" Or Range("F" & i) Like "*Juin*" _
Or Range("F" & i) Like "*Août*" Or Range("F" & i) Like "*Octobre*" Or Range("F" & i) Like "*Décembre*" Then
Range("F" & i).Interior.ColorIndex = 34
End If: Next i
End Sub

[ucfoutu]

Bonjour à tous,

J'ai écrit ceci à main levée.
Essaye-le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim  i as integer, j as integer
For i = 2 To Sheets("Feuil1").[F65536].End(xlUp).Row
  For j = 0 To 11
    If LCase(Range("F" & i)) Like "*" & Format("1/" & j + 1 & "/2000", "mmmm") & "*" Then
      Range("F" & i).Interior.ColorIndex = IIf(j And 1, 34, 33): Exit For
    End If
   Next j
Next i

Edit : j'ai vu une erreur et l'ai corrigée.

[eliot.raymond]

Bonsoir ucfoutu, forum

Merci pour la réponse et le code ca fonctionne bien, tu es un chef.

Serai t'il possible un petit commentaire sur le code car j'avoue que je patauge un peu et j'aimerai tant qu'a faire, comprendre, soif de savoir.

C'est bon pour la formation, sinon si tu ne peux pas, ou pas le temps dit moi et je mettrai RESOLU

En tout cas merci beaucoup

bonne soirée a toi

Raymond

[eliot.raymond]

bonsoir Laetitia forum

Merci pour le code il marche également, j'ai adopter celui de Mr ucfoutu qui est plus approprier a mon code, mais rien n'ai perdu je l'ai imprimer et sauvegarder, je vais m'en servir pour du coup faire une modif.

Merci a toi c'est gentil et aussi a Mr marcelbenh

bonne soirée a vous tous mes remerciements

Raymond

[ucfoutu]

Serai t'il possible un petit commentaire sur le code car j'avoue que je patauge un peu et j'aimerai tant qu'a faire, comprendre, soif de savoir.

Oh... rien de complexe :
- je boucle sur les douze mois de l'année 2000 et extrait (par la fonction format, le nom en toutes lettres du mois)
- je regarde ensuite si ma cellule (par Like) contient ce mot. Pour éviter toute erreur, je compare avec le contenu de ma cellule passé en minuscules ( LCase).
- si c'est le cas, je :
---- regarde si i est impair ou non (i and 1) et attribue à ma couleur la valeur 33 ou 34, selon le cas ( par mon iif)

--- et sors de ma boucle i pour traiter la cellule suivante.

Tout celà n'est qu'un jeu de l'esprit, rien de plus...

[eliot.raymond]

bonsoir ucfoutu, forum

Merci pour les commentaires toujours bon a savoir, je vais regarder de près afin de bien enregistrer dans ma petite tète..


Enfin j'ai bricoler un peu dessus depuis un moment et pas de soucis.

Que dire dommage pour toi que la St Parfait soit passé hihihihi.

Bonne soirée a toi et encore merci

Raymond

[laetitia]

bonjour le fil le forum l' ami ucfoutu super ton code impressionnant

passe une bonne journée bisous leti a+

[MARCELBENH]

Effectivement,

ton code me paraît bien fait, bravo.
Je pense aussi que mon select case avec des or aurait pu fonctionner
mais encore bravo tu es allé au fond du problème
cdlt