demande d'explications sur cette macro de coloriage

[alucard_xs]

Bonjour,

voilà je n'arrive pas à comprendre pourquoi dans ma macro, ça me colore de C2 à BH120 alors que je lui ai demandé de me colorié de C2 à BK15 ?

Sub color(nomfeuille)
Dim dblValeur As Double
Dim strChoix As String

    strChoix = InputBox("Veuillez saisir", "Valeur")
    dblValeur = 0
    If IsNumeric(strChoix) Then dblValeur = CDbl(strChoix)
    MsgBox dblValeur
    For Each c In Worksheets(nomfeuille).range("C2:BK15")
       c.Interior.ColorIndex = 3
    Next c
End Sub

Merci

 

[alucard_xs]

Re : demande d'explications sur cette macro de coloriage

j'ai peut etre trouvé

 

[Spitnolan08]

Re : demande d'explications sur cette macro de coloriage

Bonjour,

Sortie de son contexte, ta macro fonctionne très bien chez moi et fais ce que tu lui demandes...
C'est dans ta macro d'appel qu'il doit y avoir un problème ou ailleurs....

Cordialement