MFC par VBA sur quatres cellules à droite

Version imprimable

Bonjour,
Cette MFC par VBA m’intéresse mais je souhaite appliquer la couleur aux quatre cellules qui sont sur la droite de la cellule de référence « Cells(i, 1) ». Je n’y arrive pas pouvez vous m’aider ?
MERCI

Code:

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
Sub MEF()
Dim endofcolumn As Long
endofcolumn = 500
For i = 1 To endofcolumn
 Select Case Cells(i, 1).Value
 
    Case Is = "8"
   Cells(i, 1).Interior.ColorIndex = 3
    Case Is = "1"
    Cells(i, 1).Interior.ColorIndex = 10
    Case Is = "2"
    Cells(i, 1).Interior.ColorIndex = 20
    Case Is = "3"
    Cells(i, 1).Interior.ColorIndex = 28
    Case Is = "4"
    Cells(i, 1).Interior.ColorIndex = 44
    Case Is = "5"
    Cells(i, 1).Interior.ColorIndex = 45
    Case Is = "6"
    Cells(i, 1).Interior.ColorIndex = 50
    Case Is = "7"
    Cells(i, 1).Interior.ColorIndex = 55
 
    '...et ainsi de suite
 End Select
 Next i
End Sub

Bonjour,

Essais comme cela, en utilisant offset pour te décaler
Code:

1 2 Case Is = "8" Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 3

MFC par VBA sur quatres cellules à droite

Merci beaucoup Jérôme d’avoir pris sur ton temps pour te pencher sur mon problème.
Ta solution fonctionne.

Code:

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
Sub MEF()
Dim endofcolumn As Long
endofcolumn = 700
For i = 1 To endofcolumn
 Select Case Cells(i, 1).Value
 
 
 
    Case Is = "1"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 10
 
 
    Case Is = "2"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 20
 
    Case Is = "3"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 28
 
    Case Is = "4"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 44
 
    Case Is = "5"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 45
 
    Case Is = "6"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 50
 
    Case Is = "7"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 55
 
    Case Is = "8"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 3
 
    Case Is = "9"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 24
 
    Case Is = "10"
    Range(Cells(i, 1).Offset(0, 1), Cells(i, 1).Offset(0, 4)).Interior.ColorIndex = 7
 
    '...et ainsi de suite
 End Select
Next i
End Sub

Maintenant je n’arrive pas à faire référence à “ #N/A “
J’explique si j’écris Case Is = "#N/A " cela ne fonctionne pas (erreur d'exécution '13: Incompatibilité de Type.) comment faire référence à #N/A ?
Et je vais chercher à modifier les caractères en plus des cellules.
Merci encore

Avec un test avant le select Case

Code:

1
2
3
4
5
6
If Application.WorksheetFunction.IsError(Cells(i, 1)) = True Then
    'Gestion de l'erreur
Else
     Select case 
      ....
End If

11/12/2012, 17h16
tyndare36

MFC par VBA sur quatres cellules à droite

Merci cela fonctionne au pas à pas il saute les cellules en "#N/A".:ccool:

Merci merci