bonsoir à tous,

la fonction ci-dessous supprime les accents - mais comment la limiter a la colonne B de la Feuil2 - Dautre part comment faire pour que seule la premiere lettre soit en majuscule ?

‘Dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim Montexte$

If Target.Count > 1 Or Target = "" Then Exit Sub

Montexte = Target.Value

Montexte2 = sansAccents(Montexte)

If Montexte2 <> Montexte Then

Application.EnableEvents = False

Target = Montexte2

Application.EnableEvents = True

End If

End Sub

‘Dans un Module

Private Const accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿ ÑñÇç"

Private Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuy NnCc"

Public Function sansAccents(ByRef s As String) As String

Dim i As Integer

Dim lettre As String * 1

sansAccents = s

For i = 1 To Len(accent)

lettre = Mid$(accent, i, 1)

If InStr(sansAccents, lettre) > 0 Then

sansAccents = Replace(sansAccents, lettre, Mid$(noAccent, i, 1))

End If

Next i

End Function

je vous en remercie.

Bonjour vieuxmonsieur,

Pour colonne B

If Target.Count > 1 Or Target = "" Or Target.Column <> 2 Then Exit Sub

Pour majuscule

For i = 1 To Len(accent)

lettre = Mid$(accent, i, 1)

If i=1 then Ucase(lettre)

A+

bonjour Robert,

et merci à toi.

pas possible, tu surveille mes posts ?