macro : tout contenu de cellule précédé de ...

Le
Greg
Bonjour,

Je souhaites que tout contenu des cellules E5:E11 soit précédé du symbole
flêche.

ex : je me place en E5, et je tape "carotte" puis entrée, je vois "==>
carotte"

Est-ce possible?

Greg
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #23088491
Bonjour,
Sans macro, tu peux formater les cellules au format "==>@" (sans les
guillemets). Dans ce cas, la valeur de la cellule n'est pas modifiée,
seul l'affichage l'est.
Daniel


Bonjour,

Je souhaites que tout contenu des cellules E5:E11 soit précédé du symbole
flêche.

ex : je me place en E5, et je tape "carotte" puis entrée, je vois "==>
carotte"

Est-ce possible?

Greg
DanielCo
Le #23088481
Sinon, par macro, dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([E5:E11], Target) Is Nothing Then Exit Sub
For Each c In Intersect([E5:E11], Target)
Application.EnableEvents = False
c.Value = "'==>" & c.Value
Application.EnableEvents = True
Next c
End Sub

Daniel

Bonjour,

Je souhaites que tout contenu des cellules E5:E11 soit précédé du symbole
flêche.

ex : je me place en E5, et je tape "carotte" puis entrée, je vois "==>
carotte"

Est-ce possible?

Greg
Greg
Le #23088671
Ca marche impec! Merci Daniel!

"DanielCo" discussion : iijbo7$ko5$
Sinon, par macro, dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([E5:E11], Target) Is Nothing Then Exit Sub
For Each c In Intersect([E5:E11], Target)
Application.EnableEvents = False
c.Value = "'==>" & c.Value
Application.EnableEvents = True
Next c
End Sub

Daniel

Bonjour,

Je souhaites que tout contenu des cellules E5:E11 soit précédé du symbole
flêche.

ex : je me place en E5, et je tape "carotte" puis entrée, je vois "==>
carotte"

Est-ce possible?

Greg




Publicité
Poster une réponse
Anonyme