Code vba longeur de cellule

Résolu

cs_johndi Messages postés 10 Date d'inscription mercredi 23 février 2011 Statut Membre Dernière intervention 1 mars 2011 - 23 févr. 2011 à 22:25
cs_johndi Messages postés 10 Date d'inscription mercredi 23 février 2011 Statut Membre Dernière intervention 1 mars 2011 - 1 mars 2011 à 13:45

Bonjour à tous,*

Je souhaiterai obtenir votre aide sur un code VBA.

J'ai plusieur cellule qui contiennent environ 400 caractères. je souhaite couper le debu de la cellule a 139 caractère et l'insérer dans la cellule en dessous de la première. de plus si cette dexième cellule est encore supérieur a 132 caractère je souhaite la couper et insérer le reste en dessous et ainsi de suite.

J'ai environ 20000 ligne à traité. donc j'ai vraiment besoin de votre aide.

Merci d'avance.

Cdlt

Jo

A voir également:

Code vba longeur de cellule
Doevents vba - Conseils pratiques -Visual Basic / VB.NET
Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
Dernière cellule non vide vba ✓ - Forum Visual Basic 6
Vba dernière cellule non vide - Forum Visual Basic 6
Selection derniere cellule non vide plage cellule Excel - Forum Visual Basic 6

4 réponses

Réponse 1 / 4

cs_johndi Messages postés 10 Date d'inscription mercredi 23 février 2011 Statut Membre Dernière intervention 1 mars 2011
1 mars 2011 à 13:45

MERCI pour ton aide.

Réponse 2 / 4

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
23 févr. 2011 à 23:20

Bonjour,

Mid$(...)
Left$(...)
Right$(...)

Ensuite, un For/Next ou un Do/Loop devrait faire l'affaire.

Mon site

Réponse 3 / 4

cs_johndi Messages postés 10 Date d'inscription mercredi 23 février 2011 Statut Membre Dernière intervention 1 mars 2011
24 févr. 2011 à 16:25

bonjour,

merci pour ta reponse.

seulement comment fais tu pour l'insérer dans la cellule en dessous?

Merci pour ton aide.

Jo

Réponse 4 / 4

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
24 févr. 2011 à 16:54

Bonjour,

ActiveCell.Offset(1,0).Value=Left$(ActiveCell.Value,139)

Mon site

Discussions similaires

Couleur de fond d'une cellule excel

[vba] recopier la valeur d'une cellule dans une autre feuille.

changer un format de cellule excel en vba

Macro: Detecter si une cellule est vide.HELP

Comment appeler une cellule d'une autre feuille

Votre réponse

Discussions similaires