Discussion :

[tAKAmAkA]

Bonjour à tous,

Je cherche à appliquer un traitement à la partie sélectionnée (à la souris) d'un champ texte.

Pratiquement je souhaite surligner un mot en minuscule accentuées dans mon champ texte et avec un bouton je le converti en majuscules accentuées avec :

Code :

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

Me.txtSaisieMajusculesAccentuees.Value = StrConv(Me.txtSaisieMajusculesAccentuees.Text, vbUpperCase)

Actuellement je passe par un champ spécialisé avec un "afterUpdate" et je fais un copier/coller mais j'aimerai quelque chose de plus direct.

Est-ce possible ?

Merci de votre attention

[tee_grandbois]

Bonsoir,
avec un bouton ce ne sera pas possible car tu vas perdre le focus sur le champ à modifier. Par contre, c'est possible sur l'évènement MouseUp :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UnChampTexte_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim strMajTexte1 As String
    Dim strMajTexte2 As String
 
If Me.UnChampTexte.SelText = "" Then
    Exit Sub
Else
    strMajTexte1 = Me.UnChampTexte
    strMajTexte2 = Replace(strMajTexte1, Me.UnChampTexte.SelText, StrConv(Me.UnChampTexte.SelText, vbUpperCase), 1, 1, vbTextCompare)
    If MsgBox("Voulez-vous mettre en majuscules le texte sélectionné ?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
        Me.UnChampTexte = strMajTexte2
    Else
        MsgBox "Mise en majuscules annulée"
    End If
End If
 
End Sub

[tAKAmAkA]

Merci, ça marche impec !