colorier une plage de cellule

saradi

XLDnaute Nouveau
bonjour tout le monde s' il vous plait j'ai essayer avec ce programme ms il n'a pas marché;
Sub WKDAY()
For i = 1 To 5
If Range("D8") = "WK i" Then
Range("WEEKi").Interior.Color = 255
End If
Next i
End Sub
si la cellule d8 contient par exemple WK 1 donc on colorie la plage de cellule nommée WEEK1 et si d8 contient par exemple WK 2 donc on colorie la plage de cellule nommée WEEK2 et ainsi de suite
merci d'avance
 

chris

XLDnaute Barbatruc
Bonjour
VB:
If Range("D8") = "WK" & i Then
Range("WEEK" & i).Interior.Color = 255
 

chris

XLDnaute Barbatruc
RE
j'ai oublié l'espace
VB:
If Range("D8") = "WK " & i Then
 

Discussions similaires


Haut Bas