Se servir d'une valeur qui est dans une cellule

Bonjour à tous.

je voudrai faire en sorte que la valeur de ColorIndex = 9 ,devienne ColorIndex = ("N4") de la feuille "code couleur"

En gros je souhaite changer la valeur 9 directement en notant un chiffre du code couleur au choix dans N4 de la feuille code couleur.

Si vous avez une solution elle sera la bienvenue.

Merci à tous Roger67

voici la macro :

---------------------------------------------

Sub COULEUR()

ActiveWindow.RangeSelection.Interior.ColorIndex = 9

ActiveWindow.RangeSelection.Font.ColorIndex = 2

Selection.FormulaR1C1 = "OK"

Selection.Font.Bold = True

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

End Sub

Bonjour &

à tester,

ActiveSheet.Activecell.Interior.ColorIndex = Range("N4").value

"Priorité ou méthode non générée pas cet objet"

Bonjour et Merci de votre aide, mais!...

Voilà ce que je lis si je remplace la première ligne de commande de la macro par la votre.

C'est peut être le reste qui ne suit pas...

Je ne suis pas un programmeur loin de là mais j'ai essayé des tas d'astuces glanées par-ci par-là et sans résultats jusqu'à présent.

On va y arriver j'en suis sur. à bientôt de vous lire.

Amicalement ROGER67

re,

à tester,

Sub COULEUR()
With ActiveCell
    .Interior.ColorIndex = Range("N4").Value
    .Font.ColorIndex = 2
    .FormulaR1C1 = "OK"
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With
End Sub

Bonjour et bravo.

Comme prévu ça fonctionne parfaitement. Je vous remercie et quand je regarde le remaniement de la macro, effectivement tout est là mais modifié mais ça fonctionne c'est le principal.

Encore Bravo et Merci. ROGER67

(quand j'aurai besoin d'aide je sais à qui m'adresser maintenant) si vous êtes d'accord bien-sur.

Prenez bien soin de vous et des vôtres en ce moment, en attendant mieux ...

Bonjour i20100.

La formule fonctionne très bien, mais je viens de remarquer que : With ActiveCell par rapport à : ActiveSheet.Activecell me sélectionne qu'une cellule. Quand je me sert de la multi-selection je n'ai quand même qu'une cellule qui est coloriée. Je pense que ça doit être facile et logique à modifier, mais encore une fois après avoir essayé ça bugue...

Donc je redemande de l'aide en vous remerciant de votre patience et attention au programmeur d'occasion que je suis.

Cordialement ROGER67

re,

à tester,

Sub COULEUR()
With Selection
    .Interior.ColorIndex = Range("N4").Value
    .Font.ColorIndex = 2
    .FormulaR1C1 = "OK"
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With
End Sub

Bonjour c'est parfait et je vous remercie. Et comme d'habitude c’était tout simple pour qui maîtrise.

Bonne santé à vous tous.

Cordialement Mr Leblan