Masquer des caractères

[Tial]

Bonjour à tous

Je souhaite masquer les quatre derniers caractères de cellules d'une plage de données.
Je dis bien masquer et non supprimer.
Si j'ai bien cherché, il n'y a rien de similaire sur le forum.
L'idéal, serait que ces caractères soit masqués en visuel et à l'impression (mais le visuel est plus important).

Par avance merci pour votre aide et conseils.
Tial

 

[pierrejean]

Re : Masquer des caractères

bonjour Tial

teste cette macro (a lancer apres avoir selectionné la zone a traiter)

Sub test()
For Each cel In Selection
l = Len(cel)
deb = l - 3
cel.Characters(Start:=deb, Length:=4).Font.ColorIndex = 2
Next cel
End Sub

 

[benlecanard]

Re : Masquer des caractères

Pourquoi ne pas passer par une colonne supplémentaire dans laquelle tu retires tout simplement les 4 derniers caractères?
Cette colonne sera affichée et imprimée. L'autre, contenant toutes les infos, sera masquée.

 

[Tial]

Re : Masquer des caractères

Bonjour Pierrejean

Merci pour ton aide.

J'ai testé mais il semble y avoir une erreur.
Erreur de compilation :
Variable non définie.
Sub test()
For Each cel In Selection
l = Len(cel)
deb = l - 3
cel.Characters(Start:=deb, Length:=4).Font.ColorIndex = 2
Next cel
End Sub

Tial

 

[pierrejean]

Re : Masquer des caractères

Re

ma mauvaise habitude d'oublier les declarations de variables !!!

teste:

Sub test()
Dim cel as Range
Dim l as Integer
For Each [COLOR=red]cel[/COLOR] In Selection
l = Len(cel)
deb = l - 3
cel.Characters(Start:=deb, Length:=4).Font.ColorIndex = 2
Next cel
End Sub

 

[Tial]

Re : Masquer des caractères

Meme erreur, mais ailleurs

Sub test()
Dim cel as Range
Dim l as Integer
For Each cel In Selection
l = Len(cel)
deb = l - 3
cel.Characters(Start:=deb, Length:=4).Font.ColorIndex = 2
Next cel
End Sub

 

[pierrejean]

Re : Masquer des caractères

re

ajoute

Dim deb as integer

avec mes excuses

 

[Tial]

Re : Masquer des caractères

Re:

Un grand merci PierreJean, ça fonctionne nickel.

Tial