Déplacer le déterminant à la fin de la phrase

Bonjour,

je voudrais savoir comment faire pour dans une chaine de caractères, déplacer le déterminant du début de la phrase et le mettre à la fin de la phrase entre parathèse.

ex :

"LE DEVELOPPEMENT SOUS VB" => "DEVELOPPEMENT SOUS VB (LE)"

qui comprenne tous les déterminants : le la, l', mon, ton, son, ma, ta, sa, mes, tes, ses, cet, cette sauf un et une.

merci

Salut,

quelque chose comme ca :

Sub DeterminantEnFinDePhrase()
    Dim MaChaine As String, Determinant As String
    MaChaine = "le lundi de paque"
    Determinant = " (" & Left(MaChaine, InStr(1, MaChaine, " ") - 1) & ")"
    MaChaine = Replace(MaChaine, Left(MaChaine, InStr(1, MaChaine, " ") - 1), "") & Determinant
    MsgBox MaChaine
End Sub

A+

Pour ton exemple, voila ce qui est celon moi la méthode la plus simple:

Private Sub Command1_Click()

    Dim elements() As String
    Dim i As Integer
   
    ' récupération des éléments délimité par un espace dans un tableau
    elements = Split(Text1.Text, " ", -1, 1)
   
    For i = 1 To UBound(elements)
        Label1.Caption = Label1.Caption & " " & elements(i)
    Next i
   
    'Ajout du déterminant à la fin entre parenthése
    Label1.Caption = Label1.Caption & " (" & elements(0) & ")"
   
End Sub

ok merci

mais ça le fait pour n'importe quel mot qui se retrouve en premier, il faudrait que ça le fasse seulement pour les phrases ou il y a un determinant au debut...

merci encore

Private Sub Command1_Click()

    Dim ListeDeterminant As String
    Dim MaChaine As String
    Dim Determinant() As String
    Dim PremierMot As String
    Dim i As Integer
   
    ' Récupération de la liste des déterminant dans un tableau
    ListeDeterminant = "le,la,mon,ton,son,ma,ta,sa,mes,tes,ses,cet,cette"
    Determinant = Split(ListeDeterminant, ",", -1, 1)

    MaChaine =LCase(Text1.Text)

    ' Test si le deuxiéme caractére est l'apostrophe
    If Mid(MaChaine, 2, 1) = "'" Then
        Label1.Caption = Replace(MaChaine, Left(MaChaine, InStr(1, MaChaine, "'")), "") & "(l')"
        Exit Sub
    End If

    PremierMot = Left(MaChaine, InStr(1, MaChaine, " ") - 1)

    For i = 0 To UBound(Determinant)
        If StrComp(Determinant(i), PremierMot) = 0 Then
            MaChaine = Replace(MaChaine, Left(MaChaine, InStr(1, MaChaine, " ") - 1), "") & " (" & Determinant(i) & ")"
            Exit For
        End If
    Next i
    
    Label1.Caption = MaChaine

End Sub

ça marche sauf quand il y a deux foix le même déterminant et en plus le déterminant est remplacé par un espace, genre :
"le petit et le gros mangent le gateau" donne " petit et  gros mangent  gateau"

Bonsoir,

Private Sub Command1_Click()
 Dim titi As String, mesdet, I As Integer, mondet As String
 titi = "le petit et le gros mangent le gateau"
 mesdet = Array("le ", "la ", "mon ", "ton ", "son ", "ma ", "ta ", "sa ", "mes ", "tes ", "ses ", "cet ", "cette ")
 For I = 0 To UBound(mesdet)
   If LCase(Left(titi, Len(mesdet(I)))) = mesdet(I) Then
     mondet = mesdet(I)
     Exit For
   End If
 Next
 If mondet <> "" Then
   titi = Mid(titi, Len(mondet) + 1) & " " & mondet
 End If
 MsgBox Trim(titi)
End Sub

Je ne peux que m'incliner devant l'ingéniosité de la (ou plutôt des ^^)  méthode de jmfmarques. Je te conseil donc de suivre ses conseils.... >> méthode est un peu trop longue. (ma)