macro excel 2002 : colorer selon valeur

[chapodepay]

bonjour
je connais pas du tout excel, et j'ai un petit boulot a faire pour demain.
J'ai donc une feuille excel avec beaucoup de ligne.

Sur chaque ligne je dois renseigner une cellule par un chiffre de 0 à 5, et colorer selon (selon cette valeur).

Serai t-il possible, avec juste exemple ctrl + j pour la valeur 1, ctrl + k pour la valeur 2 etc, que cette combinaison selon la valeur que je désire, remplisse la cellule par la valeur et colorise la ligne?
j'ai deja trouvé comment faire pour colorisé une ligne avec macro, mais je ne sai pas du tout comment affecter une valeur a une cellule non selectionné préalablement.
Faut que sa puisse fonctionner pour toute les lignes car j'avais trouvé pour juste une ligne précise en donnant le nom exacte de ma cellule et non pas par l'intermédiaire de variable...

enfin voila 🙂

merci d'avance

 

[porcinet82]

Re : macro excel 2002 : colorer selon valeur

Salut,

Donne un petite exemple de ton ficheir en pièce jointe et tu auras un bout de code en quelques minutes, je pense que ta question n'est pas tres difficile. Il faut juste un exemple afin d'adapter directement le code.

@+

 

[SergiO]

Re : macro excel 2002 : colorer selon valeur

Bonjour et bienvenue sur XLD,

N'ayant pas d'exemple, il est difficile de répondre mais voici un essai à adapter à ton cas.

@+

Edit : Salut Romain!!!

 

[chapodepay]

Re : macro excel 2002 : colorer selon valeur

c'est exactement ça... sauf comment puis je faire pur ne pas etre obligé d'etre dans la bonne colonne pour que cela fonctionne?
(tout en gardant l'insertien de la valeur dans une cellule/colonne donné?)
mais déja un grand merci 🙂

 

[chapodepay]

Re : macro excel 2002 : colorer selon valeur

justeun détail qui a son importance, lorsque je copie/colle le cade des macros dans mon propre fichier excel, les hotkey (f1, f2, f3...) ne focntionnent plus 🙁

 

[porcinet82]

Re : macro excel 2002 : colorer selon valeur

re, Salut Sergio,

En reprenant le code de Sergio, il te suffit de modifier les codes comme ceci (le code en vert correspond à la colonne et le chiffre en bleu permet d'etendre la plage qui sera colorée, ici jusqu'a la colonne 5, c'est à dire E) :

Sub Col5()
[COLOR=green]'If ActiveCell.Column <> 5 Then Exit Sub[/COLOR]
L = ActiveCell.Row
ActiveCell.Value = "5"
Range(Cells(L, 1), Cells(L, [COLOR=blue][B]5[/B][/COLOR])).Interior.ColorIndex = 40
ActiveCell.Offset(1, 0).Select
End Sub

@+

 

[chapodepay]

Re : macro excel 2002 : colorer selon valeur

merci beaucoup, je viens juste de trouver par moi meme ava,t de regarder les réponses 🙂

Cells(L, 13).Value = "1"

et j'avaisviré la condition sur la colonne.


merci beaucoup 🙂

 

[SergiO]

Re : macro excel 2002 : colorer selon valeur

Re,

Pour que les raccourcis clavier fonctionnent il faut aussi copier le code qui se trouve dans ThisWorkbook.

@+