format de 56000cellules à modifier ???

CAPRI_456

XLDnaute Occasionnel
Bsoir le forum,
pour permettre la comparaison de deux classeurs

classeur 01---- Hs code ---- 8479909700
classeur 02---- Hs code ---- 84799097 00
donc il y a tjs un espace avant les deux derniers digit

RESULTAT: la comparaison pour recherche de codes identiques ne se fait pas
Je ne sais pas changer les codes du classeur 2 car externes, mais je puis changer les codes du classeur 1

le faire à la main est fastidieux ..... car il y en à près de 56000... avez vous un idée d' une procédure pour modifier
automatiquement(en bloc) tous ces codes et y insérer un espace afin de permettre une recherche sur les cel identiques

les deux classeurs exemples en annexe.
Merci pour le truc (à mon avis simple ...mais)

Merci pour votre aide [file name=Classeur01_20060406215006.zip size=22564]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur01_20060406215006.zip[/file]
 

Pièces jointes

  • Classeur01_20060406215006.zip
    22 KB · Affichages: 21

Robert

XLDnaute Barbatruc
Repose en paix
Bonsoir Capri, bonsoir le forum,

Je te propose cette macro à appliquer dans le classeur 1 :


Sub Macro1()
Dim cel As Range 'déclare la variable cel

'boucle sur toutes les cellules éditées de la colonne B (en partant de la ligne 2)
For Each cel In Range('B2:B' & Range('B65536').End(xlUp).Row)
'si la cellule contient x digits (caratères numérique)
'remplace la valeur par les (x-2) premiers digits + un espace + les deux dernier digits
cel.Value = Mid(cel.Value, 1, Len(cel.Value) - 2) & ' ' & Right(cel.Value, 2)
Next cel 'prochaine cellule de la liste
End Sub

Voilà Capri... c'est fini...
 

Discussions similaires

Réponses
10
Affichages
780

Statistiques des forums

Discussions
312 083
Messages
2 085 188
Membres
102 809
dernier inscrit
Sandrine83