OVH Cloud OVH Cloud

Interior.color ne marche pas

9 réponses
Avatar
JLuc
En cette heure matinale, bonjour,
J'ai un petit soucis avec une ligne qui ne marche pas, si quelqu'un
pouvait me dire à quel endroit çà deconne ....

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "J"
With Target
*' Erreur 1004 : impossible de definir la propriete Color de la classe
Interior.*
.Interior.Color = RGB(255, 255, 153)
.Interior.Pattern = xlSolid
.Font.Color = 0
.Font.Bold = False
End With

Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-\O

9 réponses

Avatar
JB
Bonjour,

Sur mon poste, c'est ok

http://cjoint.com/?jDhx2MRFMQ


JB

En cette heure matinale, bonjour,
J'ai un petit soucis avec une ligne qui ne marche pas, si quelqu'un
pouvait me dire à quel endroit çà deconne ....

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "J"
With Target
*' Erreur 1004 : impossible de definir la propriete Color de la classe
Interior.*
.Interior.Color = RGB(255, 255, 153)
.Interior.Pattern = xlSolid
.Font.Color = 0
.Font.Bold = False
End With

Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O


Avatar
JLuc
JB avait soumis l'idée :
Sur mon poste, c'est ok


C'est bizarre, avec ton fichier, pas de problème :-?
Essaie avec celui qui est sur ce message :

les mdp sont les prénom de la ligne

--
JLuc

Avatar
Pierre Fauconnier
Salut Jean-Luc,

Le lien ne fonctionne pas...


--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

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

JB avait soumis l'idée :
Sur mon poste, c'est ok


C'est bizarre, avec ton fichier, pas de problème :-?
Essaie avec celui qui est sur ce message :

les mdp sont les prénom de la ligne

--
JLuc





Avatar
lSteph
Bonjour JLuc,

S'agissant d'un fil vu hier soir mais que je n'ai pas davantage approfondi,
ne comprenant pas (il était tard) où l'on voulait en venir avec l'autre
procédure visant un système de mdp dans un selection change (qui me
laisse perplexe)*.

Ton plantage vient du fait que "toto" doit déverrouiller la feuille pour
agir par macro.
Dans ce genre de cas un Protect userinterfaceonly:=true
laisse la possibilité d'agir par macro sans devoir verrouiller
déverrouiller à chaque fois.

*( ) pour la protection multiUser (vraisemblablement), le selectionchange
effectivement ne me semble pas ideal
A partir de 2003 ou pt'être même un peu avant il y a des options toutes
faites pour cela.
"Permettre aux utilisateurs de modifier des plages"

Sinon (antérieur) Mettrais plutôt dans le Workbook_open une protection
userinterfaceonly de la feuille,
puis la proposition invitant l'utilisateur à montrer patte blanche pour
savoir quelle plage de cellules lui déverrouiller.
Un petit userform à l'appui serait pas mal.

Désolé de ne pas détailler d'exemple précis dois partir bosser.

Cordialement.

lSteph


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

JB avait soumis l'idée :
Sur mon poste, c'est ok


C'est bizarre, avec ton fichier, pas de problème :-?
Essaie avec celui qui est sur ce message :

les mdp sont les prénom de la ligne

--
JLuc





Avatar
JLuc
Pierre Fauconnier avait soumis l'idée :
Le lien ne fonctionne pas...


8-o 8-o mais si il fonctionne :')
Tiens, revoila le lien sur le classeur
http://cjoint.com/?jCxODRBbbd
Merci de l'attention...

--
JLuc

Avatar
JLuc
lSteph avait soumis l'idée :
Bonjour JLuc,

S'agissant d'un fil vu hier soir mais que je n'ai pas davantage approfondi,
ne comprenant pas (il était tard) où l'on voulait en venir avec l'autre
procédure visant un système de mdp dans un selection change (qui me laisse
perplexe)*.

Ton plantage vient du fait que "toto" doit déverrouiller la feuille pour agir
par macro.
Dans ce genre de cas un Protect userinterfaceonly:=true
laisse la possibilité d'agir par macro sans devoir verrouiller déverrouiller
à chaque fois.

*( ) pour la protection multiUser (vraisemblablement), le selectionchange
effectivement ne me semble pas ideal
A partir de 2003 ou pt'être même un peu avant il y a des options toutes
faites pour cela.
"Permettre aux utilisateurs de modifier des plages"

Sinon (antérieur) Mettrais plutôt dans le Workbook_open une protection
userinterfaceonly de la feuille,
puis la proposition invitant l'utilisateur à montrer patte blanche pour
savoir quelle plage de cellules lui déverrouiller.
Un petit userform à l'appui serait pas mal.

Désolé de ne pas détailler d'exemple précis dois partir bosser.

Cordialement.

lSteph


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

JB avait soumis l'idée :
Sur mon poste, c'est ok


C'est bizarre, avec ton fichier, pas de problème :-?
Essaie avec celui qui est sur ce message :

les mdp sont les prénom de la ligne

-- JLuc





Merci de ce renseignement, c'est vrai que çà vient d'un fil de Sasha.
Je n'avais pas penser au problème de protection, vu que la cellule
concernée est déverrouillée. Je vais lui appliquer un userinterfaceonly
comme tu le précise si bien (je ne connais pas sa version d'excel, mais
la miènne c'est 2000)

--
JLuc



Avatar
michdenis
| With Target
| .Interior.Color = RGB(255, 255, 153)
| End With

L'exécution de ce code ne devrait pas poser de problème !

Rappelle-toi cependant que la palette de couleurs d'un
classeur xl est dee 56 couleurs maximum à la fois.
Évidemment, tu peux créer un nombre infini de palettes
différentes de couleurs mais excel en affiche qu'une à la fois.

Conséquence : La fonction RGB() retourne seulement la couleur qui
est la plus proche de la couleur contenue dans la palette de couleurs
en application dans ton fichier actif... pour ce faire, Excel utilise un
algorithme que je ne connais pas ...La couleur obtenue par RGB()
n'a rien à voir (!) avec la couleur que tu verrais si tu étais dans un
logiciel de dessin.







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

En cette heure matinale, bonjour,
J'ai un petit soucis avec une ligne qui ne marche pas, si quelqu'un
pouvait me dire à quel endroit çà deconne ....

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "J"
With Target
*' Erreur 1004 : impossible de definir la propriete Color de la classe
Interior.*
.Interior.Color = RGB(255, 255, 153)
.Interior.Pattern = xlSolid
.Font.Color = 0
.Font.Bold = False
End With

Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Avatar
JLuc
Merci pour ces renseignements supplémentaires. Comme je n'utilise
jamais RGB, je ne savais pas trop si çà venait de moi ou pas. C'était
pour un problème levé par Sasha, et le soucis venait de la protection
de feuille. Problème contourné grace aux énormes lol connaissances de
LSteph

michdenis avait soumis l'idée :
With Target
.Interior.Color = RGB(255, 255, 153)
End With


L'exécution de ce code ne devrait pas poser de problème !

Rappelle-toi cependant que la palette de couleurs d'un
classeur xl est dee 56 couleurs maximum à la fois.
Évidemment, tu peux créer un nombre infini de palettes
différentes de couleurs mais excel en affiche qu'une à la fois.

Conséquence : La fonction RGB() retourne seulement la couleur qui
est la plus proche de la couleur contenue dans la palette de couleurs
en application dans ton fichier actif... pour ce faire, Excel utilise un
algorithme que je ne connais pas ...La couleur obtenue par RGB()
n'a rien à voir (!) avec la couleur que tu verrais si tu étais dans un
logiciel de dessin.


--
JLuc


Avatar
lSteph
...tu vas un peu loin "lol "...
Sans MD , au même titre que quelques doigts que tu peux chercher dans les
deux mains de ce forum...
...et qui plus est sans ce forum....je n'en sais guère!

Comme dirait un certain
te absolvo
@+

lSteph
"JLuc" a écrit dans le message de news:

Merci pour ces renseignements supplémentaires. Comme je n'utilise jamais
RGB, je ne savais pas trop si çà venait de moi ou pas. C'était pour un
problème levé par Sasha, et le soucis venait de la protection de feuille.
Problème contourné grace aux énormes lol connaissances de LSteph

michdenis avait soumis l'idée :
With Target
.Interior.Color = RGB(255, 255, 153)
End With


L'exécution de ce code ne devrait pas poser de problème !

Rappelle-toi cependant que la palette de couleurs d'un
classeur xl est dee 56 couleurs maximum à la fois.
Évidemment, tu peux créer un nombre infini de palettes
différentes de couleurs mais excel en affiche qu'une à la fois.

Conséquence : La fonction RGB() retourne seulement la couleur qui
est la plus proche de la couleur contenue dans la palette de couleurs
en application dans ton fichier actif... pour ce faire, Excel utilise un
algorithme que je ne connais pas ...La couleur obtenue par RGB()
n'a rien à voir (!) avec la couleur que tu verrais si tu étais dans un
logiciel de dessin.


--
JLuc