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

problème de tronque

  • Initiateur de la discussion Initiateur de la discussion yvon51
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
bonjour Yvon , Fabien et Chris

dans l'exemple ci dessous la macro s'applique uniquement à ma plage A1😀5 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("A1😀5")) Is Nothing Then Target = Mid(Target, 1, 30)
Application.ScreenUpdating = False
End Sub

bonne journee
michel
 
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
 
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
 
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
 
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("A1😀5")) Is Nothing Then Target = Mid(Target, 1, 30)'tronque apres 30 caracteres plage A1😀5
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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Erreur de macro
Réponses
4
Affichages
795
Réponses
6
Affichages
739
Réponses
5
Affichages
864
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…