Bonjour,
Je galere sur un probleme paraissant simple
 
je vous donne le code
 
sub coloriage ()
 
For i = 1 To 52
    no = 10 + 7 * (i - 1)
    ni = 11 + 7 * (i - 1)
    vc = "C" & no
    vab = "AB" & ni
    vah = "A" & no
    vab = "A" & ni
     
    Range("vc:vab,vah:vab" ).Select
    Selection.Interior.ColorIndex = 15
 
Next i
end sub
 
Exemple pour i = 1
Je veux colorier les cellules de C10 à AB18 et de A10 a A11
Probleme, le basard me cré un bogue alors que ma logique parait claire.
J ai meme concatené !!
 
Avez vous une soluce a mon probleme?  

Bonsoir,
Regarde bien l'expression dans ton range.
Es-tu certain que tu obtiens ce que tu veux?
"vc:vab,vah:vab" te donnes la  chaine de caractères: vc:vab,vah:vab
ce n'est pas ce que tu veux.
Pour vérifier tu peux écrire, par exemple avant le range:
dim Monrang as string
Monrang="vc:vab,vah:vab"
msgbox Monrang
cela va te permettre de progresser
Cordialement

non pas du tout...
vc vab vah et vab deviennent cellules mais VB ne les reconnait pas dans mon range

Eureka !
 
Sub coloriage_weekend()
 
 
    For i = 1 To 52
     
        no = 10 + 7 * (i - 1)
        ni = 11 + 7 * (i - 1)
     
        Range("C" & no & ":ab" & ni).Interior.ColorIndex = 15
        Range("a" & no & ":a" & ni).Interior.ColorIndex = 15
     
    Next i
 
End Sub
 
C est dans la douleur que l on crée les transformations !
J avoue qu etre developpeur c est un metier !!
Faut etre autiste

Bravo,
@+