Microsoft 365 Extraire un ou plusieurs mots commençant par une majuscule dans une chaine de caractères.

Staple1600

XLDnaute Barbatruc

• 15 Mars 2020

• #2

Bonjour

xtothej
Est-ce que tu as fait des recherches dans les archives des forums?
(Car cette question a été traitée de nombreuses fois)

 

Vote positif 0 Vote négatif

X

xtothej

XLDnaute Nouveau

• 15 Mars 2020

• #3

Bonjour,

Effectivement, j'ai trouvé quelques threads qui évoquaient l'extraction de datas vers une autres cellules, mais les formules proposées ne correspondaient pas à ma demande.

Je suis totalement preneur si tu en as un sous la main !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2020

• #4

Re

Oui, j'en ai une sous la main
(mais à utiliser avec parcimonie (peut-être) si 4000 lignes)
Je te laisse tester
=STXT(A1;MIN(SI(ESTERREUR(TROUVE(CAR(LIGNE(INDIRECT("65:90")));A1));"";TROUVE(CAR(LIGNE(INDIRECT("65:90")));A1)));9^9)
Formule matricielle à mettre en B1 puis recopie vers le bas
(à valider par CTRL+SHIFT+ENTER)
Test OK sur cet exemple
20 km autour de St Martin du Mont

 

Vote positif 0 Vote négatif

Solution

X

xtothej

XLDnaute Nouveau

• 15 Mars 2020

• #5

Ça fonctionne,

Super merci beaucoup !!

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Mars 2020

• #6

bonjour
en formule ça va être Cotton

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2020

• #7

Re

•>xtothej
Une autre formule (sortie de la poussière de mes archives)
(Toujours testée avec un seul exemple)
=STXT(A1;MIN(TROUVE(CAR(LIGNE(INDIRECT("65:90")));A1&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"));9^9)
NB: Toujours à valider avec CTRL+SHIFT+ENTER

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Mars 2020

• #8

re
@Staple1600 la 2d ne fonctionne que pour la derniere valeur

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2020

• #9

Re

Relire mes messages et s'apercevoir que je précise sur quoi j'ai fait le test

•>xtothej
Et une dernière pour la route, non point une formule
(mais une fonction VBA personnalisée)

VB:

Function PREMAJ(R As Range) As String
Dim oMat As Object
With CreateObject("vbscript.regexp")
    .Pattern = "[A-Z]": .ignorecase = False
    If .test(R.Text) Then
    Set oMat = .Execute(R.Text)(0)
    PREMAJ = Mid(R.Text, oMat.firstindex + 1, 9 ^ 9)
    Else
    PREMAJ = "Aucune correspondance"
    End If
End With
End Function

A mettre dans un module standard
Puis en B1 => =PREMAJ(A1)
NB: à n'utiliser que sur un PC.
(patricktoulon saura te dire pourquoi )

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 15 Mars 2020

• #10

Bonjour le forum,

"en formule ça va être Cotton"


Métier rectiligne qui tricote simultanément plusieurs panneaux avec augmentations et diminutions.

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 15 Mars 2020

• #11

Bonjour

Je ne vois personnellement pas une réelle difficulté à faire ce qui ressort du titre, à savoir :
Extraire un ou plusieurs mots commençant par une majuscule dans une chaine de caractères.
qui n'a plus rien à voir avec ce que l'on lit par exemple ensuite :

J'ai dans ma colonne A un texte avec le nom d'une ville, par exemple :

20 km autour de St Martin du Mont

Je souhaiterais extraire dans la colonne B uniquement "St Martin du Mont".

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2020

• #12

Bonjour jmfmarques

C'est ce qu'extrait mes trois propositions, non?
St Martin du Mont

PS: Le nom le PJ laissant deviner qu'il s'agit d'extraire le nom des villes dans une chaîne.

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 15 Mars 2020

• #13

Bonjour JM,
Essaye celle qui a été acceptée, avec, par exemple :
"20 km autour de St Martin du Mont et de son parc d'attractions"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2020

• #14

Re

Je laisse le soin des tests au demandeur.
Moi, je suis dans la poussière de mes archives
D'où je viens de sortir ceci

VB:

Function ProperCaseWords(S As String) As String
Dim X As Long, TempText As String, Words() As String
TempText = S
For X = 1 To Len(TempText)
  If Mid(TempText, X, 1) Like "[!A-Za-z ]" Then Mid(TempText, X) = " "
Next
Words = Split(Application.Trim(TempText))
For X = 0 To UBound(Words)
  If Words(X) <> StrConv(Words(X), vbProperCase) Or Len(Words(X)) = 1 Then Words(X) = ""
Next
ProperCaseWords = Application.Trim(Join(Words))
'credits:R.Rothstein
End Function

Ce qui donnera en B1: St Martin Mont

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Mars 2020

• #15

Bonjour à tous ,

Une autre fonction personnalisée [ ville(...) ] qui accepte les lettres majuscules accentuées en tête de mot.

VB:

Function Ville(x As String)
Dim t, i&, j&, v$
   t = Split(x)
   For i = 0 To UBound(t)
      If UCase(Left(t(i), 1)) <> LCase(Left(t(i), 1)) Then
         If UCase(Left(t(i), 1)) = Left(t(i), 1) Then Exit For
      End If
   Next i
   For j = UBound(t) To 0 Step -1
      If UCase(Left(t(j), 1)) <> LCase(Left(t(j), 1)) Then
         If UCase(Left(t(j), 1)) = Left(t(j), 1) Then Exit For
      End If
   Next j
   If j >= i Then
      v = t(i)
      For i = i + 1 To j: v = v & " " & t(i): Next
   End If
   Ville = v
End Function

 

Pièces jointes

• xtothej- Extraction Villes- v1.xlsm

  17.4 KB · Affichages: 11

Vote positif 0 Vote négatif