liste déroulante permettant de changer la couleur et le texte d'une cellule

[balzou]

Bonjour,

Après avoir créé une liste déroulante j'aimerais qu'en fonction du choix que la cellule au dessus change de couleur et qu'un message apparaisse dedans. Pour ce faire j'ai tapé le code suivant :

Case "Stock"
ActiveCell.Interior.ColorIndex = 22
ActiveCell.Offset(rowoffset:=-1).Interior.ColorIndex = 22
ActiveCell.Offset(rowoffset:=-1).Text = "vide"

la cellule de la liste déroulante et de la cellule au dessus changent bien de couleur mais le texte n’apparaît pas.

Quelqu'un aurait-il une solution ?

Merci

balzou

 

[Matheop]

Re : liste déroulante permettant de changer la couleur et le texte d'une cellule

Salut balzou,

T'as essayé de remplacer le .Text par un .Value ?
Genre comme ça: ActiveCell.Offset(rowoffset:=-1).Value = "vide"

Cordialement,
Mat'

 

[balzou]

Re : liste déroulante permettant de changer la couleur et le texte d'une cellule

Salut MatiChoux,

merci le message s'affiche bien mais ça me met un message d'erreur juste après qui plante tout et je suis obligé de quitter...
le message est : Mémoire insuffisante pour afficher en entier

Value n'est peut être pas le bon type à mettre pour afficher du texte ?

 

[Matheop]

Re : liste déroulante permettant de changer la couleur et le texte d'une cellule

Étrange puisque ça marche plutôt bien chez moi avec un .Value 😕
Je ne vois pas d'où vient le souci, ça me semble cohérent. On peut avoir un extrait de ton fichier?

 

[balzou]

Re : liste déroulante permettant de changer la couleur et le texte d'une cellule

je te joins mon fichier

c'est dans la liste déroulante de la colonne E, dans la colonne la liste déroulante fais apparaître une image. et j'ai juste essayé sur "stock"