Forcer Majuscule en début de phrase Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
I
Inguyone
Membre habitué
Membre habitué
Messages : 88
Inscrit le : 18 juin 2011
Version d'Excel : 2007 FR

Message par Inguyone » 16 novembre 2015, 17:58

Bonsoir,

J'ai un bout de code qui tourne dans un fichier pour forcer les majuscules dans certaines cellules et la première lettre de chaque mots dans d'autres.

Pourriez-vous m'aider afin d'ajouter un morceau de code qui forcerait, uniquement la première lettre des phrases, en majuscule.

If Target.Count > 1 Then Exit Sub

Select Case Target.Column

Case 2 To 7, 12, 14

If Target.Value <> UCase$(Target.Value) Then

Target.Value = UCase$(Target.Value)

End If

Case 15

If Target.Value <> StrConv(Target.Value, vbProperCase) Then

Target.Value = StrConv(Target.Value, vbProperCase)

End If

End Select

Merci d'avance pour votre aide.
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 2
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 16 novembre 2015, 18:18

Bonjour

A tester
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  Select Case Target.Column
  Case 2 To 7, 12, 14   ' Colonne B, G, L et N
    If Target.Value <> UCase$(Target.Value) Then
      Target.Value = UCase$(Target.Value)
    End If
  Case 15               ' Colonne O
    If Target.Value <> StrConv(Target.Value, vbProperCase) Then
      Target.Value = StrConv(Target.Value, vbProperCase)
    End If
  Case 16               ' Colonne P
    If Target <> UCase(Left(Target, 1)) & LCase(Mid(Target, 2)) Then
      Target = UCase(Left(Target, 1)) & LCase(Mid(Target, 2))
    End If
  End Select
End Sub
Image
I
Inguyone
Membre habitué
Membre habitué
Messages : 88
Inscrit le : 18 juin 2011
Version d'Excel : 2007 FR

Message par Inguyone » 16 novembre 2015, 18:32

Bonsoir Banzai64,

Le code fonctionne parfaitement.

Merci pour cette réponse aussi rapide.

Excellente soirée.

Bàv
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message