voila j'ai des chiffres a extraire d'une ligne de donnés mais comme c'est un peut compliqué je vous joint un petit fichier si vous voulez bien y jeter un petit coup d'oeil
Tu peux faire comme ceci, pour le cas que tu as posté :
VB:
Sub ExtracGrr()
Dim c As Range
For Each c In Range("B13:" & Range("B65536").End(xlUp).Address)
c(1, 2) = Replace(Mid(c, InStr(c, " mètres") - 6, 6), ".", "")
Next c
End Sub
voila suite a ma premiére demande sur une extraction je voudrais si vous le voulez bien
enlever les initial d'un prénom comme dans le tableaux si joint j'ai tenter de le faire avec la fonction droite
et stxt mais ça ne fonctionne pas donc si vous pouvez faire quelque chose
je vous en remerci beaucoup!!
Avant Après
DREUX Y. DREUX
PITON B. PITON
LEVESQUE P. LEVESQUE
DUBOIS J. DUBOIS
BIGEON CH. BIGEON
NIVARD F. NIVARD
LENOIR M. LENOIR
BERGH R. BERGH
LOCQUENEUX D. LOCQUENEUX
DI LORENZO T. DI LORENZO
BAZIRE J. M. BAZIRE
LEBOUTEILLER P. LEBOUTEILLER
FRIBAULT M. FRIBAULT
RAFFIN E. RAFFIN
VERBEECK J. VERBEECK
HALLAIS J. W. HALLAIS
MARTENS CH. MARTENS
ANNE F. ANNE
bonjour a tous les exceliens et encore un joyeux noel ( un peu en retard , mais vaut mieux tard que jamais ...)
salut jcgl cela marche pour les noms sans espace mais comme pour : DI LORENZO Thierry . DI LORENZO ca ne marche pas , bon je sais je cherche la petite bete ......
Bonjour capricorne68
oui effectivement cela ne fonctionne pas avec un espace suplémentaire comme DI Lorenzo
a chaque fois je suis bloquer avec des trucs comme ça pour mes classement