Discussion :

[Daniel MOREAU]

Bonjour,

Je souhaite supprimer les premiers mots d'une phrase et dont la caractéristique est d'être en majuscule.

Voici un exemple :

MAPED SENSOFT Blister ciseaux 16cm pour gaucher. Anneaux flexibles complètement souple

Supprimer :

MAPED SENSOFT

et obtenir :

Blister ciseaux 16cm pour gaucher. Anneaux flexibles complètement souple

Avez-vous quelque chose à me suggérer ?

Merci d'avance pour votre aide.

Daniel

[SSJconsult]

Bonjour,

Tout en testant caractere par caractere (code ascii et Mid()) :

Il serait toujours possible de supprimer les majuscules mais alors, que faire du B de Blister et du A de Anneaux...

Il serait aussi possible de "couper" tout ce qui precede la premiere minuscule mais alors, on perdrait aussi le B de Blister...

Resterait un moyen : tout supprimer jusqu'a la premiere majuscule qui est suivie d'un espace et pour autant qu'on ait pas trouve de minuscule entretemps... et boucler jusqu'a ce qu'on trouve une minuscule...
Ca marcherait dans le cas d'exemple mais sera-ce toujours le cas ?

[Tofalu]

Bonjour

En plusieurs étapes :

Splitter par mot
Vérifier que le mot est différent de ce même mot en majuscule
Concatener le mot avec le reste de la phrase ou abandonner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function SupprMotsMaj(strChaine As String) As String
On Error Resume Next
Dim strTemp() As String
Dim bolStop As Boolean
Dim i As Integer
strTemp = Split(strChaine, " ")
For i = 0 To UBound(strTemp)
    If StrComp(strTemp(i), UCase(strTemp(i)), vbBinaryCompare) Or bolStop Then
        bolStop = True
        SupprMotsMaj = SupprMotsMaj & strTemp(i) & " "
    End If
Next i
SupprMotsMaj = Left(SupprMotsMaj, Len(SupprMotsMaj) - 1)
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox SupprMotsMaj("MAPED SENSOFT Blister ciseaux 16cm pour gaucher. Anneaux flexibles complètement souple ")

[Daniel MOREAU]

Re,

Merci Tofalu, c'est parfait

Merci à vous tous pour vos réponses.

Daniel