XL 2019 Extraire une chaîne de caractère après un format (chiffres)

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2021

• #2

Bonjour @niiroby,
Bienvenue sur XLD

Voir les formules matricielles en B2 et C2 à copier vers le bas.

Formules matricielles à valider per la combinaison des3 touches Ctrl+Maj+Entrée.

 

Pièces jointes

• niiroby- SEPARATION APRES CHIFFRE ALEATOIRE- v1.xlsx

  10.7 KB · Affichages: 6

Vote positif 1 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2021

• #3

Bonjour @niiroby, Mapomme,
Un essai avec une fonction perso :

VB:

Function Découpe(Chaine$, N%)
Dim i%, j%, tablo
tablo = Split(Chaine, " "): j = 0
For i = 0 To UBound(tablo)
    If Len(tablo(i)) > 0 Then
        tablo(j) = tablo(i)
        j = j + 1
    End If
Next i
If N = 1 Then
    For i = 0 To j - 3
        Découpe = Découpe & tablo(i) & " "
    Next i
Else
    For i = j - 2 To j - 1
        Découpe = Découpe & tablo(i) & " "
    Next i
End If
End Function

 

Pièces jointes

• SEPARATION APRES CHIFFRE ALEATOIRE.xlsm

  15.7 KB · Affichages: 2

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Septembre 2021

• #4

Bonjour à tous
Je l'ai fait ,je le poste

 

Pièces jointes

• SEPARATION APRES CHIFFRE ALEATOIRE.xlsm

  24.5 KB · Affichages: 1

Vote positif 0 Vote négatif

N

niiroby

XLDnaute Nouveau

• 23 Septembre 2021

• #5

Merci à toi mapomme !

C'est tout à fait parfait !
J'ai juste modifié par LIGNE($1:99).

Aurais-tu une solution pour pouvoir intégrer cette formule en VBA ?

Je vais chercher de mon côté je pars là dessus pour l'instant :

VB:

Cells.Find(What:="nom_pro").Select
ActiveCell.Offset(2, 0).Select
Selection.FormulaArray = "=GAUCHE(Feuil1!D2;MAX(SI(ESTNUM(1*STXT(Feuil1!D2;LIGNE($1:99);1));LIGNE($1:99);"")))"

Je pense qu'il me reste à traduire les formules.

Encore merci pour ton aide !

Cordialement.

 

Vote positif 0 Vote négatif

N

niiroby

XLDnaute Nouveau

• 23 Septembre 2021

• #6

Je regarde les autres solutions rapidement merci à tous !

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2021

• #7

niiroby à dit:

C'est tout à fait parfait !
J'ai juste modifié par LIGNE($1:99).

Cliquez pour agrandir...

Honte à moi! Tu as tout as fait raison. Je faisais deux choses à la fois
Je dirais même, si la colonne comporte des milliers de lignes, utiliser LIGNE($1:$99)

Si finalement tu utilises du VBA, autant utiliser la fonction de @sylvanu.

 

Vote positif 0 Vote négatif

N

niiroby

XLDnaute Nouveau

• 24 Septembre 2021

• #8

Merci à tous j'ai regardé vos solutions elles sont fonctionnelles !

Je suis tout de même parti sur ta solution mapomme qui ressemble à ça maintenant :

Selection.FormulaArray = "=LEFT(Feuil1!R[-2]C[1],MAX(IF(ISNUMBER(1*MID(Feuil1!R[-2]C[1],ROW(R1:R99),1)),ROW(R1:R99),"""")))"

Cliquez pour agrandir...

Encore merci à tous pour votre aide, vous êtes au top.
(je ne sais pas trop comment mettre en résolu)

Bonne journée,

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2021

• #9

Bonjour Niiroby, Mapomme, Pierrejean,
Juste pour ne pas laisser un bug sur ce fil, une V2 de ma fonction perso.
La V1 ne renvoyait que les deux derniers mots de la phrase, et non tous les mots après la valeur numérique.

 

Pièces jointes

• SEPARATION APRES CHIFFRE ALEATOIRE V2.xlsm

  16.6 KB · Affichages: 3

Vote positif 0 Vote négatif