Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

tronquer du texte

Y

yvon51

Guest
bonjour le forum

j'ai trouvé sur le forum une macro pour tronquer du texte dans une cellule, mais voila, elle ne fonctionne que lorsque je vais l'activer et j'aimerais bien qu'elle tronque le texte de la cellule considérée dès que je quitte la cellule.

voila la macro

Sub tronQ()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
c.Value = Mid(c, 1, 30)
Next c
End Sub

que dois-je ajouter ou / et modifier

merci à toutes et tous
 
P

PhiBou

Guest
Bonjour Yvon51, Le Forum

Ta macro doit être dans la procédure évenementielle de la feuille
Dans VBA, double clique sur le nom de ta feuille. Sélectionne WorkSheet
et tape ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
c.Value = Mid(c, 1, 30)
Next c
Application.ScreenUpdating = True
End Sub


IMPORTANT : ne pas oublier 'Application.ScreenUpdating = True'

Bon après-midi

PhiBou
 
Y

yvon51

Guest
bonjour Phibou

bonjour à tous

phibou, je viens d'écrire la macro que tu m'as donné hier mais le tronque ne se fait pas quand je quitte la cellule mais quand je reviens dessus.

merci
yvon51
 
Y

yvon51

Guest
bonjour Phibou

bonjour à tous

phibou, je viens d'écrire la macro que tu m'as donné hier mais le tronque ne se fait pas quand je quitte la cellule mais quand je reviens dessus.

merci
yvon51
 

Discussions similaires

Réponses
1
Affichages
336
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…