Suprimer des caracteres dans une cellule

[jmt0]

Bonsoir,

voila, j'ai dans un tableau excel tout une collone dans laquelle j'ai : un nombre & ' XP' (par exemple, '3540 XP')

J'aimerais suprimer le ' XP' pour l'ensemble de des cases, c'est possible?

 

[Temjeh]

Bonsoir

'Pour col A ...100 ligne

Dim compteur
For compteur = 1 To 100
Range('A' & compteur).Select
If Right(ActiveCell, 2) = 'XP' Then
ActiveCell = Left(ActiveCell, Len(ActiveCell) - 2)
End If
Next

A+

Temjeh


Message édité par: temjeh, à: 25/05/2006 05:32

 

[jmt0]

Merci, je test ce de suite.

 

[andré]

Salut,

Sélectionner la plage à traiter.
Menu Edition / Remplacer
Rechercher : XP
Remplacer par : rien (laiser vide)
Remplacer tout.

Â+

 

[Temjeh]

Bonjour

Oui merci andré pour cette solution avec 'replace'. J'avais trouvé une boucle j'uste aucas ou il n'y avais pas juste des valeurs numérics car sinon il remplace XP partout dans le mot.

EXPÉRIENCE = EÉRIENCE

Merci et dans ton cas jmt0 les 2 sol fonctionnes

A+

Temjeh