Césure d'un texte selon conditions
Résolu/Fermé
Nospam54
Messages postés
152
Date d'inscription
jeudi 16 avril 2009
Statut
Membre
Dernière intervention
15 novembre 2017
-
14 avril 2016 à 12:39
Nospam54 Messages postés 152 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 15 novembre 2017 - 14 avril 2016 à 15:00
Nospam54 Messages postés 152 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 15 novembre 2017 - 14 avril 2016 à 15:00
A voir également:
- Césure d'un texte selon conditions
- Excel cellule couleur si condition texte - Guide
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Transcription audio en texte word gratuit - Guide
- Mettre un texte en majuscule - Guide
- Copier texte pdf - Guide
1 réponse
Bonjour,
Cette fonction peut convenir s'il n'y a pas de majuscules en milieu de phrase
pour essayer
Cette fonction peut convenir s'il n'y a pas de majuscules en milieu de phrase
Function cesure(txt As String, n As Integer) As Integer
If n > Len(txt) Then
cesure = Len(txt)
Else
cesure = n
While Mid(txt, cesure, 1) >= "a" And Mid(txt, cesure, 1) <= "z"
cesure = cesure - 1
Wend
End If
End Function
pour essayer
Sub test()
Dim texte As String
Dim cs As Integer, L1 As String, L2 As String
texte = "Mille neuf cents quatre-vingt-dix-huit € et vingt-huit centimes"
'appel à la fonction césure
cs = cesure(texte, 62) 'ici réglé à 62 maxi
MsgBox "césure à " & cs
L1 = Mid(texte, 1, cs)
L2 = Mid(texte, cs + 1, Len(texte) - cs)
MsgBox L1 & Chr(10) & L2
End Sub
14 avril 2016 à 15:00
Merci pour ce code, il fonctionne parfaitement ! J'avais bien saisi qu'il conviendrait de créer une fonction, mais entre l'idée et la réalisation... :)
Mon appli va pouvoir être utilisée à 100% !