Discussion :

[roger67280]

Bonjour à tous.

j'aurai besoin d'aide mais je ne sais pas comment faire sur le site car il y énormément d'onglets et je m'y perd.
Sur cette sub COULEUR() je souhaite changer la valeur de .ColorIndex =9 mais de l’extérieur à partir de la feuille ("code couleur") ("N4").
Pour le reste ça ne change pas j’écris" OK" en blanc : c'est juste le fond qui change de couleur mais de la cellule N4 de la feuille code couleur.

Est-ce que vous pouvez m'aider ou transmettre à une personne qui saurait m'aider.

Je vous remercie d'avance Cordialement.
r Leblan

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 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

[anasecu]

Bonjour,

c'est juste le fond qui change de couleur mais de la cellule N4 de la feuille code couleur.

Essaie avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub COULEUR()
     With ActiveWindow.Selection
        .Interior.ColorIndex = Range("N4").Interior.ColorIndex
        .Font.ColorIndex = 2
        .FormulaR1C1 = "OK"
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
     End With
 End Sub