N° couleur

Re,

Effectivement, lu un peu vite....Alors ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
couleur=inputbox("Quelle couleur (de 1 à 56)")
ActiveCell.Interior.ColorIndex = couleur
end sub
Chaque fois que tu feras un double-clic sur une cellule, la question te
sera posée....
Si tu veux restreindre à une plage de cellules, ajoute ceci au tout début
de la proc:
if intersect(target,range("A1:B50")) is nothing then exit sub

Si tu double-cliques ailleurs que dans la plage A1->B50, rien ne se passe.

Bonjour,
Merci ça me vas quand même, je ferais un copier coller de la couleur
désirée, mais je voulais pouvoir appeler la couleur suivant son N°.
Cordialement
Guy

"Thierryp" <thierryp@nospam.fr> a écrit dans le message de news:
uiJrEBdUGHA.4772@TK2MSFTNGP14.phx.gbl...

Bonjour,
Avec ceci, à placer dans le module d'une feuille,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 1 To 54
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next
End Sub

La macro se lance au double-clic dans une cellule

@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------

Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient
?
Cordialement
Guy

--
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline