J'avais un fichier excel ...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules Select Case Target.Column Case 3 To 15, 27, 28, 32, 33, 36, 37, 39 Target.Value = UCase$(Target.Value) End Select End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question