Y
yvon51
Guest
bonjour le forum
voilà mon problème:
Phibou m'a gentilment fait parvenir la macro qui suit.
"
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'
"
celle-ci fonctionne très bien, seulement, elle ne tronque pas lorsque je quitte la cellule mais quand je reviens dessus.
secondement, elle s'applique à toute la feuille et j'aimerais qu'elle ne s'applique qu'à certaines cellules seulement.
quelqu'une ou quelqu'un pourrait-il me venir en aide.
je vous remercie tous
yvon51
voilà mon problème:
Phibou m'a gentilment fait parvenir la macro qui suit.
"
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'
"
celle-ci fonctionne très bien, seulement, elle ne tronque pas lorsque je quitte la cellule mais quand je reviens dessus.
secondement, elle s'applique à toute la feuille et j'aimerais qu'elle ne s'applique qu'à certaines cellules seulement.
quelqu'une ou quelqu'un pourrait-il me venir en aide.
je vous remercie tous
yvon51