macro pour écrire un nom / caractère

[mcj1997]

Bonjour,

Actuellement j'ai un programme avec des macros qui affichent des couleurs suivant la macro que je sélectionne, je souhaite remplacer des couleurs par des noms par exemple actuellement en cliquant sur la macro pharmacie cela remplie la case en rouge, comment faire pour que le rouge se transforme en PHARM ?

Merci d'avance,

 

[Pierrot93]

Re : macro pour écrire un nom / caractère

Bonjour,

pas tout compris moi... sans doute qu'un petit fichier, sans données confidentielles, avec le code utilisé nous aiderait à t'aider...

bon après midi
@+

 

[mcj1997]

Re : macro pour écrire un nom / caractère

Bonjour,

pas tout compris moi... sans doute qu'un petit fichier, sans données confidentielles, avec le code utilisé nous aiderait à t'aider...

bon après midi
@+

Ma macro actuelle :

Sub Pharmacie()
Selection.Interior.ColorIndex=3
End sub

actuellement en activant la macro pharmacie, la case ou l'on est positionné se remplie en rouge, ma demande est qu'au lieu d'avoir le remplissage de la case en rouge il s'inscrive PHARM.

Merci d'avance,

 

[Pierrot93]

Re : macro pour écrire un nom / caractère

Re,

modifie comme suit :

Selection.Value = "PHARM"

@+

 

[mcj1997]

Re : macro pour écrire un nom / caractère

Re,

modifie comme suit :

Selection.Value = "PHARM"

@+

Merci,

Aussi j'ai une macro qui me permets d'effacer la couleur sur la case souhaitée et ainsi la case redevient blanche, comment modifier la macro afin d'effacer le contenu en texte ?

Merci d'avance,

 

[Pierrot93]

Re : macro pour écrire un nom / caractère

Re

essaye ainsi :

Selection.ClearContents

 

[mcj1997]

Re : macro pour écrire un nom / caractère

Re

essaye ainsi :

Selection.ClearContents

bravo merci