Supprimer les lettres et garder les chiffres + les points

  • Initiateur de la discussion Initiateur de la discussion ultra_v
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ultra_v

XLDnaute Occasionnel
bonjour ,

je voudrais savoir si y a un formule pour supprimer les lettres en entier et garder uniquement les chiffres et les points

exemple :

2.1.3. Participants
4.1.1. Pièces
4.1.2. Carburant
4.1.3. Assurances
3.2.2.8. Services
6.12. Appareil Photo

merci d'avance
 
Re : Supprimer les lettres et garder les chiffres + les points

Bonjour,

Une solution, s'il n'y a pas de points au niveau du texte :

Code:
=STXT(A1;TROUVE("µ";SUBSTITUE(A1;".";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;".";""))))+2;99)

Principe : répérer le rang du dernier point

@+
 
Dernière édition:
Re : Supprimer les lettres et garder les chiffres + les points

Bonjour,

Avec une fonction personnalisée (fonction créée par CBernardT)
A mettre dans un module.
Option Explicit
'Fonction créée par CBernardT
Function SelecChiffres(X As Range)
Dim i As Integer, Chiffres As String
For i = 1 To Len(X)
If IsNumeric(Mid(X, i, 1)) Then
Chiffres = Chiffres & Mid(X, i, 1)
End If
Next i
SelecChiffres = Chiffres * 1
End Function

Edit: Salut Tibo
 

Pièces jointes

Dernière édition:
Re : Supprimer les lettres et garder les chiffres + les points

re,
Salut Piga 🙂,

Une autre solution avec une formule matricielle :

Code:
=STXT(A1;EQUIV(VRAI;CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>64;0);99)

Formule matricielle à valider par CTRL + MAJ + ENTREE

Principe : repérer le rang de la 1ère lettre.

@+

Edit : Beaucoup plus simple (à condition que le texte soit toujours précédé d'un point et d'une espace) :

Code:
=STXT(A1;TROUVE(". ";A1)+2;99)

@+
 
Dernière édition:
Re : Supprimer les lettres et garder les chiffres + les points

Bonjour à tous

Une autre solution possible:
Utiliser Données/Convertir

Ci-dessous transcription en VBA de la piste Données/Convertir
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/08/2012 par Staple1600
'
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 9), Array(3, 9)), TrailingMinusNumbers:=True
End Sub

PS: Le titre du post évoquait la préservation des points (donc ici je garde tous les points 😉 )
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
116
Affichages
6 K
Retour