Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel .Interior.ColorIndex = 45 Inopérant ?

.Interior.ColorIndex = 45 Inopérant ?

18 réponses
Avatar
LANIMAL
Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) =
Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
jps
bonjour lanimal
peut-être qu'en supprimant 2 lignes en dessous :

SELECTION.INTERIOR.COLORINDEX = xlNone

ça irait mieux, non?
ou alors je ne comprends rien à cette proc (qui a dit "une fois de plus" que
je l'escrabouille?)
jps

"LANIMAL" a écrit dans le message de
news:%
Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) > Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel


Avatar
twinley
slt jps

moi, j'ai entendu "comme dab" mais pas "une fois de plus"

à+twinley

jps wrote:
bonjour lanimal
peut-être qu'en supprimant 2 lignes en dessous :

SELECTION.INTERIOR.COLORINDEX = xlNone

ça irait mieux, non?
ou alors je ne comprends rien à cette proc (qui a dit "une fois de plus" que
je l'escrabouille?)
jps

"LANIMAL" a écrit dans le message de
news:%

Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) >>Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel






Avatar
P. Aime
Bonjour,

Et si tu écris directement (pas testé) :

Range("C" & RubRéf + 3).interior.colorindex = 45

cela fonctionne-t-il mieux ?

Michel


"LANIMAL" a écrit dans le message de news:
%
Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) =
Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel


Avatar
jps
alors, tu, seras épargné, twinley car ce que tu as entendu est très
différent: ça suppose une certaine persévérance, une ténacité à toutes
épreuves, une abnégation totale, une opiniâtreté inextinguible...bref, une
belle couche de c.....ie
jps

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

slt jps

moi, j'ai entendu "comme dab" mais pas "une fois de plus"

à+twinley

jps wrote:
bonjour lanimal
peut-être qu'en supprimant 2 lignes en dessous :

SELECTION.INTERIOR.COLORINDEX = xlNone

ça irait mieux, non?
ou alors je ne comprends rien à cette proc (qui a dit "une fois de plus"
que
je l'escrabouille?)
jps

"LANIMAL" a écrit dans le message de
news:%

Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) >>>Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel







Avatar
Jacky
Bonjour,

Sauf, à savoir ce qu'il y a dans les variables, il n'y a pas de raison que
cela ne fonctionne pas.
Toutefois l'index 45 est de couleur orange, la couleur rouge étant l'index
3

JJ

"LANIMAL" a écrit dans le message de
news:%
Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) > Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel


Avatar
twinley
mais c'est pour ça qu'on t'aime... dans not' HLM.

le côté péjoratif n'était pas cohérent avec cette constance qui force
l'admiration alors qu'elle a été souvent mise à tord, d'ailleurs, sur
une difficulté à réfléchir.

Nous t'encourageons, jps clap clap clap, jps...avec nous

à+twinley

jps wrote:
alors, tu, seras épargné, twinley car ce que tu as entendu est très
différent: ça suppose une certaine persévérance, une ténacité à toutes
épreuves, une abnégation totale, une opiniâtreté inextinguible...bref,
une belle couche de c.....ie
jps

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


slt jps

moi, j'ai entendu "comme dab" mais pas "une fois de plus"

à+twinley

jps wrote:

bonjour lanimal
peut-être qu'en supprimant 2 lignes en dessous :

SELECTION.INTERIOR.COLORINDEX = xlNone

ça irait mieux, non?
ou alors je ne comprends rien à cette proc (qui a dit "une fois de
plus" que
je l'escrabouille?)
jps

"LANIMAL" a écrit dans le message de
news:%

Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) >>>> Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel










Avatar
LANIMAL
Curieusement, en essayant (pour voir) ta suggestion, j'ai constaté que
l'instruction : .interior.colorindex = 45
s'exécute "après" la validation de MsgBox... et, évidemment demeure ensuite.

Mon intention est de colorer la cellule "pendant" l'affichage de MsgBox,
et de supprimer la couleur "après" la validation de la MsgBox.
Je dois m'absenter, je reviendrai à 20 h.
Merci, de t'intéresser à mon pb.
Quant aux commentaires, je n'en ai pas saisi toutes les subtilités !
a+



alors, tu, seras épargné, twinley car ce que tu as entendu est très
différent: ça suppose une certaine persévérance, une ténacité à toutes
épreuves, une abnégation totale, une opiniâtreté inextinguible...bref,
une belle couche de c.....ie
jps

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


slt jps

moi, j'ai entendu "comme dab" mais pas "une fois de plus"

à+twinley

jps wrote:

bonjour lanimal
peut-être qu'en supprimant 2 lignes en dessous :

SELECTION.INTERIOR.COLORINDEX = xlNone

ça irait mieux, non?
ou alors je ne comprends rien à cette proc (qui a dit "une fois de
plus" que
je l'escrabouille?)
jps

"LANIMAL" a écrit dans le message de
news:%

Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) >>>> Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel










Avatar
LANIMAL
Non, ça ne va pas mieux.
Curieusement, en essayant (pour voir) le conseil de jps, j'ai constaté
que l'instruction : .interior.colorindex = 45
s'exécute "après" la validation de MsgBox...
Mon intention est de colorer la cellule "pendant" l'affichage du message
MsgBox, et de supprimer la couleur après la validation de la MsgBox.
Je dois m'absenter, je reviendrai à 20 h
Merci qd même.

Bonjour,

Et si tu écris directement (pas testé) :

Range("C" & RubRéf + 3).interior.colorindex = 45

cela fonctionne-t-il mieux ?

Michel


"LANIMAL" a écrit dans le message de news:
%

Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) =
Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel







Avatar
jps
"LANIMAL" a écrit dans le message de
news:%23Hom2$%
Curieusement, en essayant (pour voir) ta suggestion, j'ai constaté que
l'instruction : .interior.colorindex = 45
s'exécute "après" la validation de MsgBox... et, évidemment demeure
ensuite.

on aura appris quelquechose, finalement avec ma réponse, comme disent-ils?
ah! oui, à côté de la plaque
Mon intention est de colorer la cellule "pendant" l'affichage de MsgBox,
et de supprimer la couleur "après" la validation de la MsgBox.
cette subtilité-là avait échappé à mon entendement

Je dois m'absenter, je reviendrai à 20 h.
jolie sieste...à en faire baver laurent le marseillais

Merci, de t'intéresser à mon pb.
Quant aux commentaires, je n'en ai pas saisi toutes les subtilités !
t'occupe pas des signaux, lanimal, mets du charbon

a+
itou

jps

alors, tu, seras épargné, twinley car ce que tu as entendu est très
différent: ça suppose une certaine persévérance, une ténacité à toutes
épreuves, une abnégation totale, une opiniâtreté inextinguible...bref,
une belle couche de c.....ie
jps

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


slt jps

moi, j'ai entendu "comme dab" mais pas "une fois de plus"

à+twinley

jps wrote:

bonjour lanimal
peut-être qu'en supprimant 2 lignes en dessous :

SELECTION.INTERIOR.COLORINDEX = xlNone

ça irait mieux, non?
ou alors je ne comprends rien à cette proc (qui a dit "une fois de
plus" que
je l'escrabouille?)
jps

"LANIMAL" a écrit dans le message de
news:%

Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée
pour





voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) > >>>> Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel












Avatar
P. Aime
Mon cher Michel (prénom cher à mon coeur)
Ceci fonctionne chez moi (le : je passe à l'orange, ya pu rien !)
Sub Atteindre()
RubRéf = 2 'pour faire fonctionner le "Else"

'...
Sheets("Grille").Select
'...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else

Range("C" & RubRéf + 3).Select
Selection.Interior.ColorIndex = 45 'Rouge
MsgBox "Format de la requête... blabla"
Selection.Interior.ColorIndex = xlNone
LigneFiche = Worksheets("param").Range("C11")
'Worksheets("Grille").Range("C" & RubRéf + 3) = _
'Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
'...
End Sub


"LANIMAL" a écrit dans le message de news:
%23DDy7$%
Non, ça ne va pas mieux.
Curieusement, en essayant (pour voir) le conseil de jps, j'ai constaté que
l'instruction : .interior.colorindex = 45
s'exécute "après" la validation de MsgBox...
Mon intention est de colorer la cellule "pendant" l'affichage du message
MsgBox, et de supprimer la couleur après la validation de la MsgBox.
Je dois m'absenter, je reviendrai à 20 h
Merci qd même.

Bonjour,

Et si tu écris directement (pas testé) :

Range("C" & RubRéf + 3).interior.colorindex = 45

cela fonctionne-t-il mieux ?

Michel


"LANIMAL" a écrit dans le message de news:
%

Bonjour,
(Excel 2000 sous XP)
Seule la ligne repérée en MAJUSC. et par !!!! pose pb.
Elle s'exécute en "pas à pas", mais pas en exécution normale.
Je ne trouve pas d'explication.
J'ai reproduit les qq lignes voisines pour donner le contexte.
En principe la ligne repérée ### n'est pas utile, je l'ai ajoutée pour
voir... mais je n'ai rien vu !
_____________________________________________
Sub Atteindre()
...
Sheets("Grille").Select
...

If Worksheets("param").Range("D20") = "OK" Then
LigneFiche = Worksheets("param").Range("C20")

Sheets("Données").Select
Range(Cells(LigneFiche, 1), Cells(LigneFiche, NbRub)).Select
Selection.Copy
Sheets("Grille").Select
Range("C4").PasteSpecial Paste:=xlValues, Transpose:=True
Range("C" & RubRéf + 3).Select
If Selection.Value <> Worksheets("param").Range("C17") Then
MsgBox "Valeur proche de la requête ... blabla"
End If
Else
### Sheets("Grille").Activate
Range("C" & RubRéf + 3).Select
!!!! SELECTION.INTERIOR.COLORINDEX = 45 'Rouge
MsgBox "Format de la requête... blabla"
SELECTION.INTERIOR.COLORINDEX = xlNone
LigneFiche = Worksheets("param").Range("C11")
Worksheets("Grille").Range("C" & RubRéf + 3) =
Worksheets("Données").Cells(LigneFiche, RubRéf)
End If
...
End Sub
__________________________________________

Merci à celui qui pourra m'éclairer.
Michel








1 2