Discussion :

[Yolak]

Bonjour,
Je cherche un truc depuis longtemps mais en vain:
Comment faire pour enlever les lettres dans une cellule?
j'ai un valeur de cellule du type:
"sssss888888sssss" ou "s" est une lettre quelconque et 8 un chiffre quelconque
Je voudrais enlever les "s" automatiquement si possible sans macro ^^
Existe-t-il une fonction toute faite? Est-on obligé de faire une macro?
Merci pour votre aide

[ouisansdoute]

Bonjour,

Tu peux sélectionner tes cellules puis Edition / Remplacer
Tu remplaces les s par rien et tu cliques sur remplacer tout.

[Gorfael]

Salut Yolak et le forum

j'ai un valeur de cellule du type:
"sssss888888sssss" ou "s" est une lettre quelconque et 8 un chiffre quelconque
Je voudrais enlever les "s" automatiquement si possible sans macro ^^
Existe-t-il une fonction toute faite? Est-on obligé de faire une macro?

tu mets dans une autre colonne
=STXT(A1;6;6)
où A1 est la cellule contenant le texte

Mais avec aussi peu d'infos, l'aide ne peut aller très loin
A+

[tibo59]

Bonjour,

Si le nombre de lettres est variable, et que les chiffres sont contigus, une solution avec une formule matricielle :

Code :

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

1
2
3
=STXT(A1;EQUIV(VRAI;ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1);0);
EQUIV(VRAI;ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1))-EQUIV(VRAI;
ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1);0)+1)*1

Formule à valider par CTRL + MAJ + ENTREE

Bon WE à tous

@+

[Demeb]

Bonjour
Tu peux te créer une fonction dans ton classeur
Colles le code suivant dans un module, cela crée une fonction nommée "Chiffres"
que tu peux utiliser comme les autres fonctions d'excel, c'est à dire :
Ecrit dans une cellule
=Chiffres(A1)
(Si le texte est en cellule A1)

Cordialement
------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
Function Chiffres(Chaine As String) As String
Dim L As Byte
 
For cpt = 1 To Len(Chaine)
    L = Asc(Mid(Chaine, cpt, 1))
    If L > 47 And L < 58 Then Chiffres = Chiffres & Mid(Chaine, cpt, 1)
Next
 
End Function

[Gorfael]

Salut à tous
Une autre proposition de fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Extrait_Chiffre(Cel As Range) As String
Dim X As Integer
Application.Volatile
If Cel.Count > 1 Then
    Extrait_Chiffre = "# Une seule cellule en Référence!! #"
    Exit Function
End If
For X = 1 To Len([A1])
    If Mid(Cel, X, 1) Like "[0-9]" Then _
           Extrait_Chiffre = Extrait_Chiffre & Mid(Cel, X, 1)
Next X
End Function

A+

[Yolak]

Oki merci pour votre aide, je pense pouvoir m'en sortir avec toutes ces infos!
Merci

[setrynyaina]

Bonjour à tous,

J'aimerais avoir de l'aide svp. Il se trouve que je traite énormément de fichier texte qui sont générer par un outil. Le problème est que je dois ensuite les importer sur EXCEL et les traiter. A part cela l'outil génère aussi des caractères spéciaux que j'aimerai supprimer automatiquement.Pouvez-vous me donner un code pour l'importation auto sur EXCEL et la suppression des caractères spéciaux?

Merci d'avance.

Cordialement