Bonjour à tous,

J'aimerai transformé le code ci-dessous en macro pour ensuite l'ajouter dans un module VBA qui permettra de créer un bouton pour exécuter ce code.

Ce code permet de convertir de manière automatique les lettres minuscules en majuscules sans accent dans une feuille active.

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
 
Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("c6:s5000")) Is Nothing Then
   codeA = "ÉÈÊËÔéèêëàçùôûïî"
   codeB = "EEEEOeeeeacuouii"
   temp = Target
   For i = 1 To Len(temp)
    p = InStr(codeA, Mid(temp, i, 1))
    If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
   Next
   Application.EnableEvents = False
   Target = UCase(temp)
   Application.EnableEvents = True
 End If
End Sub
Merci pour votre aide !