racourcir nombre caracteres

[Lenie]

J'ai un fichier excel avec une colonne contenant des données de 13 caracteres. J'aimerais redimensionner cette colonne pour qu'elle ne contienne plus que 10 caracteres.
Comment dois-je faire ?

Merci beaucoup pour votre aide.

 

[globinours]

Cette macro te permettera de ne garder que les 10 premiers carac. de chaque cellule de la colonne A.


Sub dixcaracs()
Dim cellule As Range
Columns('A:A').Select
For Each cellule In Selection
If cellule.Text = '' Then GoTo prochainecellule
cellule = Mid(cellule.Text, 1, 10)
prochainecellule:
Next cellule
End Sub

Remplace e A:A par la colonne dont tu te serts.

 

[Tibo]

Bonjour Lenie,

Si tu veux passer de 13 caractères à 10, c'est que tu dois en supprimer 3, mais lesquels ?

Tu as les fonctions suivantes :

GAUCHE
DROITE
STXT

qui te permettent de manipuler et traiter des chaînes de ceractères.

Dis nous en un peu plus pour que l'on puisse t'aider de façon plus précise.

Ou joins nous le fichier (zippé, - de 50 ko, pas d'espaces accents et autres caractères ésotériques).


@+

 

[Brigitte]

Bonjour Lenie,


Si c'est seulement à l'affichage, tu peux jouer sur le FORMAT (en faisant format/personnalisé et en tapant le nombre de # que tu souhaites, je pense que ca peut marcher).

Sinon, tu peux aussi faire DONNEES/Validation/ et choisir par exemple : Texte, et dans longueur tu mets de 0 à 10.. Tu peux te mettre un message d'erreur (attention ce mot est trop long)...

Bon courage

 

[Lenie]

Merci beaucoup à globinours pour sa rapidité de réponse et pour le code qui m'a été d'un grand service !

 

[Lenie]

et merci aux autres aussi