Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT

Problème code couleur toujours noir

13 réponses
Avatar
Alex
Bonsoir =E0 tous,

Dans un User-Form, j'ai install=E9 une puce permettant de chang=E9 la
mise en forme de la cellule A2 (Fond rouge =3D Suppression des droits).
Mes lignes de commandes sont les suivantes :

Private Sub OptSuppL_Click()
Dim i As Long
i =3D ActiveCell.Row
Cells(i, 2).Font.ColorIndex =3D 1
Cells(i, 2).Interior.Color =3D 3
RemplirForm
Me.OptSuppL =3D False
End Sub

Quelque soit le num=E9ro de la couleur de ma ligne Interior.color =3D 3,
j'obtiens un fond noir et non rouge ???

Merci de vos r=E9ponses
Alex

10 réponses

1 2
Avatar
isabelle
bonjour Alex,

Sheets("MaFeuille").Cells(i, 2).Interior.ColorIndex = 3

isabelle

Alex a écrit :
Bonsoir à tous,

Dans un User-Form, j'ai installé une puce permettant de changé la
mise en forme de la cellule A2 (Fond rouge = Suppression des droits).
Mes lignes de commandes sont les suivantes :

Private Sub OptSuppL_Click()
Dim i As Long
i = ActiveCell.Row
Cells(i, 2).Font.ColorIndex = 1
Cells(i, 2).Interior.Color = 3
RemplirForm
Me.OptSuppL = False
End Sub

Quelque soit le numéro de la couleur de ma ligne Interior.color = 3,
j'obtiens un fond noir et non rouge ???

Merci de vos réponses
Alex



Avatar
Alex
On 9 déc, 21:46, isabelle wrote:
bonjour Alex,

Sheets("MaFeuille").Cells(i, 2).Interior.ColorIndex = 3

isabelle

Alex a écrit :



> Bonsoir à tous,

> Dans un User-Form, j'ai installé  une puce permettant de changé l a
> mise en forme de la cellule A2  (Fond rouge = Suppression des droit s).
> Mes lignes de commandes sont les suivantes :

> Private Sub OptSuppL_Click()
> Dim i As Long
> i = ActiveCell.Row
> Cells(i, 2).Font.ColorIndex = 1
> Cells(i, 2).Interior.Color = 3
> RemplirForm
> Me.OptSuppL = False
> End Sub

> Quelque soit le numéro de la couleur de ma ligne Interior.color = 3 ,
> j'obtiens un fond noir et non rouge ???

> Merci de vos réponses
> Alex- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonsoir Isabelle,

Merci de ta proposition, mais j'ai testé en ajoutant Sheet("le nom de
feuille"). mais sans succès
C'est pas un problème de positionnement de feuille mais bien un
probleme de ligne de couleur.
Pour la police cela fonctionne mais pas pour la couleur de fond de
cellule
Alex
Avatar
Jacky
Bonsoir,

Cells(i, 2).Interior.ColorIndex = 3
et non pas
Cells(i, 2).Interior.Color = 3
--
Salutations
JJ


"Alex" a écrit dans le message de news:

Bonsoir à tous,

Dans un User-Form, j'ai installé une puce permettant de changé la
mise en forme de la cellule A2 (Fond rouge = Suppression des droits).
Mes lignes de commandes sont les suivantes :

Private Sub OptSuppL_Click()
Dim i As Long
i = ActiveCell.Row
Cells(i, 2).Font.ColorIndex = 1
Cells(i, 2).Interior.Color = 3
RemplirForm
Me.OptSuppL = False
End Sub

Quelque soit le numéro de la couleur de ma ligne Interior.color = 3,
j'obtiens un fond noir et non rouge ???

Merci de vos réponses
Alex
Avatar
isabelle
bonjour Alex,

j'avais aussi remplacer ton

.Interior.Color = 3
par

.Interior.ColorIndex = 3

isabelle



Alex a écrit :
On 9 déc, 21:46, isabelle wrote:

bonjour Alex,

Sheets("MaFeuille").Cells(i, 2).Interior.ColorIndex = 3

isabelle

Alex a écrit :




Bonsoir à tous,

Dans un User-Form, j'ai installé une puce permettant de changé la
mise en forme de la cellule A2 (Fond rouge = Suppression des droits).
Mes lignes de commandes sont les suivantes :

Private Sub OptSuppL_Click()
Dim i As Long
i = ActiveCell.Row
Cells(i, 2).Font.ColorIndex = 1
Cells(i, 2).Interior.Color = 3
RemplirForm
Me.OptSuppL = False
End Sub

Quelque soit le numéro de la couleur de ma ligne Interior.color = 3,
j'obtiens un fond noir et non rouge ???

Merci de vos réponses
Alex- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Bonsoir Isabelle,

Merci de ta proposition, mais j'ai testé en ajoutant Sheet("le nom de
feuille"). mais sans succès
C'est pas un problème de positionnement de feuille mais bien un
probleme de ligne de couleur.
Pour la police cela fonctionne mais pas pour la couleur de fond de
cellule
Alex



Avatar
Modeste
Bonsour® Alex avec ferveur ;o))) vous nous disiez :

Bonsoir à tous,

Dans un User-Form, j'ai installé une puce permettant de changé la
mise en forme de la cellule A2 (Fond rouge = Suppression des droits).
Mes lignes de commandes sont les suivantes :

Private Sub OptSuppL_Click()
Dim i As Long
i = ActiveCell.Row
Cells(i, 2).Font.ColorIndex = 1
Cells(i, 2).Interior.Color = 3
RemplirForm
Me.OptSuppL = False
End Sub

Quelque soit le numéro de la couleur de ma ligne Interior.color = 3,
j'obtiens un fond noir et non rouge ???



Cells(i, 2).Interior.Color = vbRed
ou bien
Cells(i, 2).Interior.ColorIndex = 3
Avatar
Jacky
Tr..
Ou encore en gardant "Color"
Cells(i, 2).Interior.Color = RGB(255, 0, 0)

--
Salutations
JJ


"Jacky" a écrit dans le message de news:

Bonsoir,

Cells(i, 2).Interior.ColorIndex = 3
et non pas
Cells(i, 2).Interior.Color = 3
--
Salutations
JJ


"Alex" a écrit dans le message de news:

Bonsoir à tous,

Dans un User-Form, j'ai installé une puce permettant de changé la
mise en forme de la cellule A2 (Fond rouge = Suppression des droits).
Mes lignes de commandes sont les suivantes :

Private Sub OptSuppL_Click()
Dim i As Long
i = ActiveCell.Row
Cells(i, 2).Font.ColorIndex = 1
Cells(i, 2).Interior.Color = 3
RemplirForm
Me.OptSuppL = False
End Sub

Quelque soit le numéro de la couleur de ma ligne Interior.color = 3,
j'obtiens un fond noir et non rouge ???

Merci de vos réponses
Alex



Avatar
isabelle
ou encore ;-)
Cells(2, 2).Interior.Color = vbRed

isabelle

Jacky a écrit :
Tr..
Ou encore en gardant "Color"
Cells(i, 2).Interior.Color = RGB(255, 0, 0)




Avatar
Jacky
Oui Isabelle, j'en deviens tout rouge..:o))
Tu as déjà de la neige ??

--
Salutations
JJ


"isabelle" a écrit dans le message de news:

ou encore ;-)
Cells(2, 2).Interior.Color = vbRed

isabelle

Jacky a écrit :
Tr..
Ou encore en gardant "Color"
Cells(i, 2).Interior.Color = RGB(255, 0, 0)






Avatar
Alex
On 9 déc, 23:28, "Jacky" wrote:
Oui Isabelle, j'en deviens tout rouge..:o))
Tu as déjà de la neige ??

--
Salutations
JJ

"isabelle" a écrit dans le message de news:




> ou encore ;-)
> Cells(2, 2).Interior.Color = vbRed

> isabelle

> Jacky a écrit :
>> Tr..
>> Ou encore en gardant "Color"
>> Cells(i, 2).Interior.Color = RGB(255, 0, 0)- Masquer le texte des me ssages précédents -

- Afficher le texte des messages précédents -



Autant pour moi Isabelle !!! Je n'avais pas vu le Index, seulement le
sheet. Je suis désolé.
En tout cas merci à tous ça fonctionne très bien.
Cordialement.
Alex
Avatar
isabelle
ho que oui, surtout aujourd'hui, c'est notre premiere grosse tempête (30
cm) de prévue d'ici à demain :-(
isabelle

Jacky a écrit :
Oui Isabelle, j'en deviens tout rouge..:o))
Tu as déjà de la neige ??




1 2