tronquer du texte

[yvon51]

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

 

[PhiBou]

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

 

[yvon51]

bonjour Phibou,

merci beaucoup
je fais cela demain

merci
yvon51

 

[yvon51]

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

 

[yvon51]

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

 

[yvon51]

autre chose phibou

il ne faut pas que cette macro s'applique à toute la feuille mais seulement à certaines cellules.

merci
yvon