incrémentation couleur par macro

[sigma]

Bonjour à tous les acteurs du forum.

j'ai un fichier dans lequel je frappe une lettre en fonction des ressources et des actions proposées.

après avoir renseigné mon tableau, j'aimerai simplement qu'à une lettre corresponde une couleur différente.
D = couleur 1
E = couleur 2...

à la question que vous vous posez certainement :
'quel abruti celui-ci pourquoi n'entre t'il pas ces couleurs directement à la place de frapper des lettres?' je répond y avoir déjà pensé mais que pour des raisons diverses ceci n'est pas possible, j'ai donc besoin d'une petite macro, et là.... je suis bloqué.

fichier joint pour plus de simplicité

merci à tous et bonne journée à tous

A+
[file name=inventaire méca_20050513112911.zip size=2369]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/inventaire méca_20050513112911.zip[/file]

 

[Hervé]

Bonjour

exemple de macro à placer dans le module de la feuille : clique droit sur l'onglet de la feuille , puis visualiser le code.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim couleur As Byte
If Not Application.Intersect(Target, Range('b5:l13')) Is Nothing Then
    Select Case UCase(Target.Text)
        Case 'P': couleur = 31
        Case 'C': couleur = 32
        Case 'I': couleur = 33
        Case 'E': couleur = 34
        Case 'D': couleur = 35
    End Select

    Target.Interior.ColorIndex = couleur
End If

End Sub

Salut

 

[sigma]

salut hervé,

j'ai copié ton code dans le module de ma feuille.

lorsque je lance ma macro j'ai 'erreur de compilation, end sub attendu'

quel est dont le message qu'excel essaie de me faire parvenir.
merci de m'aider encore un peu.

A+ [file name=inventaire méca_20050513151002.zip size=7390]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/inventaire méca_20050513151002.zip[/file]

 

[Hervé]

Re sigma

Ce code utilise une procédure évenenmentielle change, il ne doit pas etre mis dans un module 'standard', mais dans un module standard, comme précisé dans mon premier post.

De plus ce code ce suffit à lui mémé, inutile de le glisser dans une autre procédure, comme tu l'avais fait.



Salut

[file name=inventaire2.zip size=8378]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/inventaire2.zip[/file]

 

[sigma]

Re,

ça fonctionne,

merci Hervé de ta disponibilité et de ta compétence

bon week end

A+

 

[sigma]

une autre petite question.
ou peut on trouver une liste exhaustive des couleurs en fonction des numéros associés.

merci

A+

 

[Hervé]

re



pour les couleurs, va voir dans la zone de téléchargements, j'utilise souvent ce fichier :

https://www.excel-downloads.com/resources/palette-de-couleurs.233/

Sinon , une petite macro pour faire ca

sub couleur()
dim i as integer
for i=0 to 56
range('a'&i+1).value=i
range('b'&i+1).interior.colorindex=i
next i
end sub

A plus

 

[sigma]

quel talent, merci pour tout

A+