Bonsoir,

Le code ci-dessous me permet d'ajuster en largeur les colonnes de mon tableau ainsi que mettre en majuscule certaine colonne après tabulation.
Hors, je souhaiterais avoir ceci :
Colonne B en majuscule (NOM)
Colonne C uniquement la 1ère lettre en majuscule (Prénom)
Colonne D en minuscule (Adresse)
Colonne F en majuscule (VILLE)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("B4:B500,C4:C500,D4:D500,F4:F500,G4:G500,H4:H500")) Is Nothing Then
  If Target <> UCase(Target) Then Target = UCase(Target.Value)
  Target.EntireColumn.AutoFit
End If
End Sub
J'ai ce code pour le prénom (TPnom) mais je n'arrive pas à l'insérer dans le code ci-dessus.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim LngPos As Long
    Me.TPnom = LCase(TPnom)
        LngPos = InStr(Me.TPnom, " ")
            If LngPos <> 0 Then
                Me.TPnom = StrConv(Left(Me.TPnom, LngPos), vbProperCase) & Mid(Me.TPnom, LngPos + 1)
        Else
                Me.TPnom = StrConv(Me.TPnom, vbProperCase)
        End If
Pouvez-m'apporter votre aide s'il vous plait ?
Merci par avance