Couleur de fond d'une cellule excel

Question

Bonjour,
Je suis débutant en vb et réalise des programme sur exel 97.
Je souhaite changer la couleur de fond d'une cellule depuis un bouton :

Private Sub cmd1_Click()
Range("A1").Interior.Color = RGB(255, 0, 0)
End Sub

Mais un meesage d'erreur apparait au click sur le bouton : "Impossible de définir la propriété color de la classe interior". Je ne comprend pas d'ou peut venir l'erreur puisque si je créer une macro avec le même programme , cela marche :

Sub couleur()
Range("A1").Interior.Color = RGB(255, 0, 0)
End Sub

Je vous rémercie d'avance pour d'éventuel réponse.

pile_poil · Answer

bonjour
ton code étant dans l'évenement du bouton il cherche Range("A1") dans le bouton  et donc ne le trouve naturellement pas dis lui où est ce range("A1")
Private Sub cmd1_Click()

    TAFEUILLE.Range("A1").Interior.Color = RGB(255, 0, 0)

End Sub

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

lorre0041 · Answer

Je te remercie pour ta réponse mais le même message d'erreur s'affiche

pile_poil · Answer

je dois t'avouer que je ne pige pas ! 
j'ai essayé chez moi et je n'ai jamais de message d'erreur et cela que le bouton soit dans la feuille ou dans un userform
il est vrai que ma version d'excel est un peu plus récente tout en n'étant pas la derniere mais estce la raison ? je ne saurais le dire

mais tu as dit que ça marche si tu fais :
Sub couleur()
Range("A1").Interior.Color = RGB(255, 0, 0)
End Sub

 alors  essaye de faire :
Sub couleur()

Range("A1").Interior.Color = RGB(255, 0, 0)

End Sub

Private Sub cmd1_Click()
    couleur'appel de la la sub couleur()
End Sub

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

lorre0041 · Answer

Merci beaucoup, j'ai essayé ta version mais cela ne marche toujours pas. Apparement ce n'est pas un probléme de code.  Par exemple si j'écrit :
Private Sub cmd1_Click()
    Range("A1").Font.Bold = True
End Sub
Le programme fonctionne, il doit avoir un probléme avec interior.
Excel est peut être mal installé, ou il y a un probléme de compatibilité avec Windows XP

Renfield · Answer

le tout étant que  tu possède Excel97... pas simple de tester sur cette version qui a tout de meme plus de dix ans (oui, je sais VB6 est presque aussi vieux^^)

Renfield · Answer

je crois qu'on avait pas le choix de la couleur, alors... et qu'on était confiné dans la palette... (a moins de modifier cette palette)

selection.Interior.ColorIndex = 3 '# rouge
selection.Interior.ColorIndex = 4 '# vert
...

cs_isophie · Answer

sub
' en excell
'  col         col+1   col+2   col+3
'-------------------------------------
'cell coloré | val:r | val:g | val b |
'-------------------------------------
'
'
lign = 1 'ligne de départ
col =1 'col de départ
r=cells(lign,col+1).value
g=cells(lign,col+2).value
b=cells(lign,col+3).value

cells(lign, col).interior.color=RGB(r,g,b)

end sub
' si on veut on peut faire des while, for pour remplir tout

'SOPH

Couleur de fond d'une cellule excel

7 réponses

Votre réponse

Discussions similaires