problème de tronque

[yvon51]

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

 

[fabien]

Pour que ta macro ne s'applique qu'a certaine cellules il suffit que tu mette une condition IF sur le champ Target

Ex :
si tu veux appliquer ta macro sur la colonne B :

If Target.Column = 2 Then
--ton traitement
end if

 

[chris]

Bonjour
Apparement elle s'applique à la sélection en cours lors de son lancement.
Chris

 

[michel]

bonjour Yvon , Fabien et Chris

dans l'exemple ci dessous la macro s'applique uniquement à ma plage A15 et la macro se declenche apres chaque modification dans la cellule

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A15")) Is Nothing Then Target = Mid(Target, 1, 30)
Application.ScreenUpdating = False
End Sub

bonne journee
michel

 

[yvon51]

bonjour Michel, Fabien et Chris

je vous remercie beaucoup pour vos réponses.

je vais m'en servir et vous tenir au courant

merci encore

yvon51

 

[yvon51]

bonjour Michel, Fabien et Chris

je vous remercie beaucoup pour vos réponses.

je vais m'en servir et vous tenir au courant

merci encore

yvon51

 

[yvon51]

bonjour Michel, Fabien et Chris

je vous remercie beaucoup pour vos réponses.

je vais m'en servir et vous tenir au courant

merci encore

yvon51

 

[yvon51]

Michel,

excuse le triple message ci-dessus mais j'ai des problème de validation.

ta macro marche très bien
je te remercie et je remercie tout le monde ici

à plus tard

yvon51

 

[yvon51]

re bonjour Michel

j'ai essayé de faire deux macros au modèle de celle que tu m'as proposé afin de contrôler deux plages de cellules avec des nombre caractères différents mais là ça ne marche pas.

comment faire?

merci
yvon

 

[yvon51]

re bonjour Michel

j'ai essayé de faire deux macros au modèle de celle que tu m'as proposé afin de contrôler deux plages de cellules avec des nombre caractères différents mais là ça ne marche pas.

comment faire?

merci
yvon

 

[Pascal76]

Et ben alors Yvon

Ils servent l'apéro au ministère le vendredi ou quoi ?????? LOL

Pascal

 

[michel]

bonjour Pascal , rebonjour Yvon

Yvon , peux tu etre un peu plus clair car je ne suis pas sur d'avoir bien compris ton probleme

en attendant pour gerer deux plages differentes .....
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A15")) Is Nothing Then Target = Mid(Target, 1, 30)'tronque apres 30 caracteres plage A15
If Not Intersect(Target, Range("E1:H5")) Is Nothing Then Target = Mid(Target, 1, 15)'tronque apres 15 caracteres plage E1:H5
Application.ScreenUpdating = False
End Sub

michel

 

[yvon51]

bonjour Pascal

pourquoi l'apéro? nous sommes des gens on ne peut plus sobres et très sérieux . hem! hem!
de plus je serais en congés toute la semaine prochaine. tiens! prend ça!

ah, ça calme! hein!

pour Michel

c'est ce que je vais faire

je vous remercie beaucoup et je souhaite good week end for you.

merci

yvon51

 

[yvon51]

bonjour Pascal

pourquoi l'apéro? nous sommes des gens on ne peut plus sobres et très sérieux . hem! hem!
de plus je serais en congés toute la semaine prochaine. tiens! prend ça!

ah, ça calme! hein!

pour Michel

c'est ce que je vais faire

je vous remercie beaucoup et je souhaite good week end for you.

merci

yvon51

 

[yvon51]

bonjour Pascal

pourquoi l'apéro? nous sommes des gens on ne peut plus sobres et très sérieux . hem! hem!
de plus je serais en congés toute la semaine prochaine. tiens! prend ça!

ah, ça calme! hein!

pour Michel

c'est ce que je vais faire

je vous remercie beaucoup et je souhaite good week end for you.

merci

yvon51