affichage réduit de texte

[xavier]

bonjour à tous et toutes

voila mon problème qui je le suppose est très simple à résoudre

je voudrais écrire un nom ou un mot dans une cellule mais lorsque je valide, je veut que seul les trois première lettre du mot reste afficher dans ma cellule.

merci d'avance

@++

xavier

 

[GIBI]

Bonjour,



une solution simple mais un peu lourde si tu as beaucoup de chose a taper = mettre en blanc la fin du texte

voici une petite macro qui fera le boulot sur une plage de cellule que tu auras selectionnée

Sub RaB()
'
For Each c In Selection
With c.Characters(Start:=4, Length:=7).Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Next

End Sub

 

[Hervé]

bonjour xavier, GIBI

Ce type de macro ne laisse que les 3 premiers caractères d'une saisie dans une cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
Target = Mid(Target, 1, 3)
End Sub

Ce code est à placer dans le module de la feuille (clic droit sur l'onglet, puis visualiser le code).

Par contre, je m'interroge, pour quoi ne tapes tu pas directement que les 3 premiers caractères, au lieu de passer par une macro ?

salut

 

[PascalXLD]

Bonjour

Dans la même idée que Hervé

Target=left(target,3)

Mais même interrogation que Hervé. Cela me rappelle un post sur le fait de tout mettre en majuscule où il s'est avéré que la manière la plus simple est d'appuyer qur la touche CapsLock

Bonne journée

 

[xavier]

bonjour et merci à tous pour m'avoir répondu si vite.

je vais éssayer le code que vous m'avez fournis

merci encor et @++ xavier