Discussion :

[maestro1303]

Bonjour à tous,

J'ai un petit problème que je n'arrive pas à résoudre:
j'ai dans chaque cellule d'une selection une phrase du genre:
Abrahams & sons 00681

Je veux que j'efface tout dans cette cellule et que je garde uniquement 00681.
avec une boucle sur chaque cellule j'y suis arrivé ou presque car la chaine de caractère 00681 s'affiche 0 0 6 8 1 et si j'essaie d'enlever les espaces (trim), j'obtiens 681 et pas les deux zéros devant.

Comment faire pour arriver à garder seulement(mais fidèlement) la partie numérique de la chaîne ?

Si je dois vous envoyer le code je le ferais.

Merci infiniment!

[LeForestier]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaCellule = Cstr(right(LaCellule,5))

A+

[maestro1303]

Merci LeForestier de cette réponse rapide.

Mais j'ai oublié de vous dire que la chaîne est variable et que la partie numérique n'a pas de longueur prédéfinie. En d'autres termes je peux avoir
00681, comme je peux avoir 00555512 ou 0022.

Je prendrais votre réponse et peut être qu'en la modifant elle pourrait répondre à mes attentes.

Merci infiniment!

[Invité]

Bonjour

Peux-tu mettre différents types de chaines, sinon on va passer du temps à te donner des solutions qui ne marcheront pas, car cela ne correspondra pas à certains cas.

Starec

[LeForestier]

S'il y à toujour un espace entre le nombre et le texte ru peu faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim e as integer
e = InStrRev(LaCellule," ")
LaCellule = Cstr(right(LaCellule,e))

ou en une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaCellule = Cstr(right(LaCellule,InStrRev(LaCellule," ")))

A+

[maestro1303]

Merci beaucoup à tous,
Le dernier nombre entier est sé^paré de la chaîne par un espace

[LeForestier]

Bonjour,

utilisation de InstrRev avec l'espace comme séparateur.

Bonjour ucfoutu, qu'y a-t-il dans le poste N°5 ?

[ucfoutu]

Ouille (n'avais pas vu... j'étais sur un autre forum...!!)

efface tout y compris ce message.

[LeForestier]

Non,Non.... Pas effacé, comme cela ont verra qu'il n'y a pas qu'a moi que ca arrive...

[Invité]

Re

Ou une fonction plus sophistiqué (je me suis amusé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function Extraction(Chaine As String) As String
     Dim tabExtrac() As String
     tabExtrac() = Split(Chaine, " ")
     Extraction = tabExtrac(UBound(tabExtrac()))
End Function

Starec

[maestro1303]

Bonjour les amis,
Je n'avais pas le fichier quand je vous écrivais. Maintenant que je l'ai je vous en envoie un petit extrait avec la macro que j'ai eu sur internet et que j'ai dû modifier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Remplace()
Dim Cel As Range
For Each Cel In Selection
For x = 1 To Len(Cel)
leCar = Mid(Cel, x, 1)
codCar = Asc(Mid(Cel, x, 1))
If codCar >= 48 And codCar <= 57 Then  'Or codCar = 44 Or codCar = 46
maChaine = maChaine & Trim(Str(leCar))
End If
Next x
'Range(Cel.Address) = CDbl(maChaine)
Range(Cel.Address) = maChaine
maChaine = ""
Next Cel
End Sub

et voilà le contenu de la colonne selectionnée

AVOTY ZOETT-EBADJEN - 0099590**
AVOTY ZOETT-GTand Modèle - 0012507**
ELD ZELEDONAE - 00687**
GOLD ZEledonAE - GTand Modèle - 0068777**
KOUNATAE-GTand Modèle TOUNATAENE - 0098698**
LOUNATAE GTand Modèle-TOUNAT - 0058678**
MEDEJETZET - 00968**
MOTOZZO-GTand Modèle - 002898**
NAJET fAxe - 009790**
OLD ZEledonAE - GTand Modèle - 0068785**
QOUWEAT-GTand Modèle - 009659**
SENEDE - 008584**
TOUNATAE-GTand Modèle - 0098698**
YEDEJETZET-GTand Modèle OTENJE - 0077869**
ZEMETOON-GTand Modèle OTENJE - 00579**
ZENEDE - 008604**
ZOMOTOT-GTand Modèle - 009696**
brem9.dem turien - 0053098

dans la dernière ligne, je voudrais extraire seulement 0053098 alors qu'avec le code j'ai 90053098, le code ajoute également le 9 de brem9, mais si je n'y arrive pas ce n'est pas si grave.

Bon je vais essayer de joindre le fichier, mais si je n'y arrive pas vous avez déjà tout là haut.

Merci infiniment.

PS: pour exécuter je selectionne la colonne B puis Alt+F8 et 'Macro remplace' puis bouton exécuter.

[ucfoutu]

Bonjour,


relis la réponse N° 5 (utilisation de InstrRev)

Tu extraieras ainsi tout ce qui suit le denier espace.

Pour les chaines ainsi extraites qui contiendraient des ** à la fin :

utilise Replace pour les supprimer (en les remplaçant par "")