[VBA-E] Limitation des With...End With

Version imprimable

Bjr,

Peut-on optimiser ce genre de code pour éviter les répétitions with (F1 ne donne pas beaucoup d'exemples)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    With Range("A1")
    .FormulaR1C1 = "ANCIEN"
    .Interior.ColorIndex = 35
    End With
With Range("B1")
.FormulaR1C1 = "NOUVEAU"
    .Interior.ColorIndex = 36
End With
    With Range("C1")
    .FormulaR1C1 = "RESTÉES"
    .Interior.ColorIndex = 37
    End With
With Range("D1")
.FormulaR1C1 = "BAPB"
.Interior.ColorIndex = 38
End With
    With Range("E1")
    .FormulaR1C1 = "NOUVELLES"
    .Interior.ColorIndex = 39
    End With

bonjour

tu peux tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim Tableau()
Dim i As Integer
 
Tableau = _
  Array("ANCIEN", "NOUVEAU", "RESTÉES", "BAPB", "NOUVELLES")
 
For i = 0 To UBound(Tableau)
    With Cells(1, i + 1)
        .Value = Tableau(i)
        .Interior.ColorIndex = 35 + i
    End With
Next i

michel

27/10/2006, 15h00
DVano

Je pense qu'il serait bon de modifier ton titre en "limitation des With...End With ?" ou un truc dans le genre ;)

C'est une suggestion mais le sujet étant intéressant, des personnes pourraient passé à coté...
27/10/2006, 15h23
bernard38

VBA-E Limitation des With...End With

Merci Silky ça fonctionne.
Le seul problème c'est si on veut pas des index couleurs qui se suivent.
Mais c'est un détail pas très important.

Ps
J'ai modifié le titre pour faire plaisir à Dvano.
Cdt

Citation:

Le seul problème c'est si on veut pas des index couleurs qui se suivent.

Dans ce cas tu peux simplement adapter le premier exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Tableau(), TabCouleur()
Dim i As Integer
 
Tableau = _
  Array("ANCIEN", "NOUVEAU", "RESTÉES", "BAPB", "NOUVELLES")
TabCouleur = Array(35, 37, 44, 26, 4)
 
For i = 0 To UBound(Tableau)
    With Cells(1, i + 1)
        .Value = Tableau(i)
        .Interior.ColorIndex = TabCouleur(i)
    End With
Next i

michel

27/10/2006, 15h59
bernard38

Ça c'est parfait.
Merci encore.
Bon Week End