Discussion :

[NEC14]

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

[JPierreM]

Bonsoir,

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
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        Application.EnableEvents = False
        If Target.HasFormula = False Then
        'Sinon on perd les formules saisies, seul le résultat de la formule reste
        Select Case Target.Column
        Case Is = 2
        Target = UCase(Target)
        Case Is = 3
        Target = StrConv(Target, vbProperCase)
        Case Is = 4
        Target = StrConv(Target, vbLowerCase)
        Case Is = 5
        Target = StrConv(Target, vbUpperCase)
        End Select
    End If
    Application.EnableEvents = True
End Sub

[NEC14]

Bonsoir JPierreM

C'est parfait.
Merci beaucoup
Bonne soirée
Cordialement