Supprimer toutes les lettres dans une case
Résolu
Poker1
-
poker1 -
poker1 -
Bonjour,
J'exporte des données via internet dans excel et j'aimerais supprimer les lettres dans certaines cases.
Ex : 1a0005e777 =10005777
Merci
J'exporte des données via internet dans excel et j'aimerais supprimer les lettres dans certaines cases.
Ex : 1a0005e777 =10005777
Merci
A voir également:
- Supprimer toutes les lettres dans une case
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page dans word - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
8 réponses
Bonjour,
Si le format des données ne change pas, une solution est de taper la fonction suivante (en considérant que les données sont dans la case C15) :
=GAUCHE(C15;1)&STXT(C15;3;4)&DROITE(C15;3)
Rico
Si le format des données ne change pas, une solution est de taper la fonction suivante (en considérant que les données sont dans la case C15) :
=GAUCHE(C15;1)&STXT(C15;3;4)&DROITE(C15;3)
Rico
Bonsoir,
Question n°2 du schmilblick ?
Le nombre de caractères est toujours de 10 ?
En imbriquant des conditions SI et en vérifiant si c'est du texte ou un chiffre,il y a possibilité de filtrer (dans la limititation de 7 imbrications de SI)
Rico
Question n°2 du schmilblick ?
Le nombre de caractères est toujours de 10 ?
En imbriquant des conditions SI et en vérifiant si c'est du texte ou un chiffre,il y a possibilité de filtrer (dans la limititation de 7 imbrications de SI)
Rico
Bonjour à tous
Cette fonction personnalisée t'enlève tout ce qui n'est pas chiffre dans une cellule
Function extrait_nbre(ByRef texto As String) As Double
Dim reg As Object
Dim extraction As Object
' instancie
Set reg = CreateObject("vbscript.regexp")
' travaille sur toute la cellule
reg.Global = True
' définit le modèle (caractères "digitaux" à N chiffres)
reg.Pattern = "(\d?\d?\d)|(,)"
' éxécute l'extraction svt modèle (collection des digits...)
Set extraction = reg.Execute(texto)
' concaténète les membres de la collection "extraction"
For Each digit In extraction
extrait_nbre = extrait_nbre & (digit.Value)
Next digit
Set extraction = Nothing
Set reg = Nothing
End Function
A+
Michel
PS: texto peut être la référence d'une cellule
Cette fonction personnalisée t'enlève tout ce qui n'est pas chiffre dans une cellule
Function extrait_nbre(ByRef texto As String) As Double
Dim reg As Object
Dim extraction As Object
' instancie
Set reg = CreateObject("vbscript.regexp")
' travaille sur toute la cellule
reg.Global = True
' définit le modèle (caractères "digitaux" à N chiffres)
reg.Pattern = "(\d?\d?\d)|(,)"
' éxécute l'extraction svt modèle (collection des digits...)
Set extraction = reg.Execute(texto)
' concaténète les membres de la collection "extraction"
For Each digit In extraction
extrait_nbre = extrait_nbre & (digit.Value)
Next digit
Set extraction = Nothing
Set reg = Nothing
End Function
A+
Michel
PS: texto peut être la référence d'une cellule
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci pour la macro
Si j'ai bien compris je remplace "texto" par A1
Est il possible de mettre A2:DM1800 car j'ai enormement de donné...
Si j'ai bien compris je remplace "texto" par A1
Est il possible de mettre A2:DM1800 car j'ai enormement de donné...
Re-re,
Tu ajoutes cette sub en dessous de la fonction extrait_nombre
Sub extraire()
Dim tablo()
Dim valeur As String
Dim cptrX As Long, cptrY As Long
tablo = Range("A2:DM1800").Value
For cptrX = LBound(tablo, 1) To UBound(tablo, 1)
For cptrY = LBound(tablo, 2) To UBound(tablo, 2)
valeur = tablo(cptrX, cptrY)
tablo(cptrX, cptrY) = extrait_nbre(valeur)
Next cptrY
Next cptrX
Application.ScreenUpdating=False
Range("A2:DM1800").Value = tablo
End Sub
Michel
Tu ajoutes cette sub en dessous de la fonction extrait_nombre
Sub extraire()
Dim tablo()
Dim valeur As String
Dim cptrX As Long, cptrY As Long
tablo = Range("A2:DM1800").Value
For cptrX = LBound(tablo, 1) To UBound(tablo, 1)
For cptrY = LBound(tablo, 2) To UBound(tablo, 2)
valeur = tablo(cptrX, cptrY)
tablo(cptrX, cptrY) = extrait_nbre(valeur)
Next cptrY
Next cptrX
Application.ScreenUpdating=False
Range("A2:DM1800").Value = tablo
End Sub
Michel
