Discussion :

[bernard38]

Bjr,

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

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
    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

[SilkyRoad]

bonjour

tu peux tester

Code :

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

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

[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é...

[bernard38]

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

[SilkyRoad]

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 :

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

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

[bernard38]

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