re petipeton
recherche de la derniere ligne de la colonne D
derlin = Range('D65536').End(xlUp).Row
pour chaque cellule de la plage definie:
D1 à Dderniereligne
For Each cel In Range('D' & 1, 'D' & derlin)
numero dans cel du debut du mot 'Per...'
x = InStr(1, cel, 'PER_ID =')
mettre dans la cellule voisine de cel (0 ligne de decalage,1 colonne de decalage ( a droite puisqe positif))
la tranche de cel commencant 8 lettres apres le debut de 'PER..' soit tout de suite apres ,et long de 5 lettres
cel.Offset(0, 1) = Mid(cel, x + 8, 5)
passer a la cellule suivante
Next cel
J'espere avoir été clair
Message édité par: pierrejean, à: 10/04/2006 13:12