Microsoft 365 Supprimer les chiffres

eastwick

XLDnaute Accro

• 20 Février 2021

• #2

Bonjour, pouvez vous envoyer un fichier, même minimaliste SVP ?
Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Février 2021

• #3

Bonjour Chantal
Un essai avec fonction personnalisée

 

Pièces jointes

• chantal13.xlsm

  14.1 KB · Affichages: 13

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #4

Bonjour le fil

Au jugé, car testé sans échantillons
Ici formule à mettre en B1 puis recopie vers le bas

Code:

=GAUCHE(A1;MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"))-1)

Si en A1, on a: Staple1600
alors la formule en B1 affichera: Staple

EDITION: Bonjour pierrejean

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 20 Février 2021

• #5

J'avais fait à peu près la même chose...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #6

Re,

=>eastwick
La même chose que qui?
pierrejean ou moi?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #7

Re

=>eastwick
Je vous rejoins sur le plus que serait un petit fichier exemple (allégé et anonymisé) fourni par ChantalTreize.

J'ai aussi sous le coude une fonction VBA avec des bouts RegExp dedans

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 20 Février 2021

• #8

que vous Staple1600... utilisation de la fonction CHERCHE

 

Vote positif 0 Vote négatif

Hervé S.

XLDnaute Nouveau

• 20 Février 2021

• #9

Je propose cette solution.
Prenons cet exemple : abcd1234567 est en cellule A2

1. En cellule B2, on compter le nombre de chiffre dans la chaine de caractère, solution trouvé ici
=SOMMEPROD((ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1))*1)
Avec cette formule on trouve qu'il y a 7 chiffres dans abcd1234567

2. En cellule C2, on compter le nombre de caractère total
=NBCAR(A1)
On trouve 11

3. En cellule D2, on compte le nombre de lettres.
11 caractères au total - 7 chiffres = 4.

4. En cellule E2, on extrait de la chaine les caractères 1 à 4.
formule STXT =STXT(A2;1;D2)

On regroupe toute les formules en une seule :
=STXT(A2;1;NBCAR(A2)-SOMMEPROD((ESTNUM(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1)*1))*1))

Et voilà, le tour est joué...

 

Dernière édition: 20 Février 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #10

Bonjour Hervé.

Ta formule est radicale, elle supprime les chiffres et le petit Bonjour qui d'habitude commence chaque message

PS: La formule du message#4 est un chouia plus courte

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 20 Février 2021

• #11

Staple1600 à dit:

Bonjour à tous,

Cliquez pour agrandir...

Ceci par vba n'efface que les chiffres à droite contenu dans la cellule (sans colonne supplémentaire)
Colonne A dans l'exemple

VB:

Sub EffaceChiffreDroite()
    Dim Plage, C As Range, i&
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    Set Plage = Feuil1.Range("A1:a" & Cells(Rows.Count, "A").End(xlUp).Row)    ' A adapter
    For Each C In Plage
        For i = Len(C) To 1 Step -1
            If IsNumeric(Mid(C, i, 1)) Then
                C = Left(C, Len(C) - 1)
            Else
                Exit For
            End If
        Next
    Next
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

 

Pièces jointes

• Efface chifresDroite.xlsm

  83.7 KB · Affichages: 7

Dernière édition: 20 Février 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #12

Re

Et si par "malheur", on a en A1
ab89cd1234567
alors ta formule et la mienne échouent

EDITION: Bonjour Jacky67

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #13

Re

Si on s'abandonne au VBA, alors je léve mon coude
(cf message#7)

VB:

Function LETTRES(Plg As Range) As String
With CreateObject("VBScript.RegExp")
    .Pattern = "[^a-z]": .Global = -1: .IgnoreCase = -1
    LETTRES = .Replace(Plg.Value, "")
End With
End Function

Si on a en A1 ab89cd1234567
et en B1: =LETTRES(A1)
Alors B1 renvoie abcd

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 20 Février 2021

• #14

Staple1600 à dit:

Re

Et si par "malheur", on a en A1
ab89cd1234567
alors ta formule et la mienne échouent

EDITION: Bonjour Jacky67

Cliquez pour agrandir...

Bonjour Staple1600
Désolé, erreur de manip.
J'ai répondu dans ton message

 

Vote positif 0 Vote négatif

Hervé S.

XLDnaute Nouveau

• 20 Février 2021

• #15

Pour illustrer ma réponse précédente :


Cette solution fonctionnent uniquement quand les chiffres sont à la droite du nom, comme indiqué dans la question de départ : "chiffres toujours à droite du nom"

 

Dernière édition: 20 Février 2021

Vote positif 0 Vote négatif