Macro Copier une partie d'une cellule

Macro Copier une partie d'une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 02-04-2010 à 14:01:44    

Bonjour,
 
J'ai un fichier excel avec une seule colonne et plusieurs infos dedans ! Cela se présente de la façon suivante :
 
50501 / HHH5555555555555 / 00000000000001 / 303030
50501 / HHH65616526865659 / 00000000000002 / 303030
50501 / HHH12345432478489 / 00000000000003 / 303030
......
.......
Et ainsi de suite !  
 
L'idée, ce serait de garder juste le 2e "mot" (HHH5555555555555) et supprimer le reste. Ou encore copier coller ce même mot dans une autre colonne ! En gros, il faut qu'il soit séparé du reste ! A noter que ce "mot" commence toujours par les 3 mêmes lettres...
J'ai beaucoup de ligne a traiter, donc ce serait sympa d'avoir de l'éclairage sur le sujet...
 
Merci beaucoup
Cordialement


---------------
Admis a Marseille et Bordeaux / LC a Reims...
Reply

Marsh Posté le 02-04-2010 à 14:01:44   

Reply

Marsh Posté le 02-04-2010 à 16:23:07    

Bonjour
 
Quelque chose comme ca devrait le faire :
Je pars du principe que tes données sont en colonne A, a partir de la ligne 2
Donc, en B2 :

  • Pour trouver le caractere "/" :

=CHERCHE("/";A2;1)+2
Je mets plus 2 car tu as un espace après, et ca sera notre point de départ pour la suite. On ne veut pas le caractere "/" mais trouver le "H", donc + 2
 

  • Donc pour trouver le second "/" :

=CHERCHE("/";A2;CHERCHE("/";A2;1)+2)-1
Idem, espace pour le -1
Si tu regardes bien cette expression, on se sert de la premiere (en rouge)
=CHERCHE("/";A2;CHERCHE("/";A2;1)+2)-1
 

  • Ensuite on prend ce qu'il y a au milieu avec STXT:

=STXT(A2;(CHERCHE("/";A2;1)+2);(CHERCHE("/";A2;CHERCHE("/";A2;1)+2)-1)-(CHERCHE("/";A2;1)+2))
 
Cordialement


Message édité par SuppotDeSaTante le 02-04-2010 à 16:26:07

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed