macro majuscule

[sasha]

bonjour,
je travaille sur un tableau excel où je voudrai que dans la cellule A5 le mot s'inscrive en majuscule en A6 la 1ère lettre en majuscule et ainsi de suite toutes les 4 lignes
A9 MAJUSCULE
A10 1ère lettre majuscule
etc

Merci de votre aide

SAsha

 

[Guiv]

Re : macro majuscule

Bonjour sasha, le forum,
Code à copier dans le module de la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim l As Byte
l = Target.Row

If Target.Count <> 1 Then Exit Sub

If Target <> "" And Target.Column = 1 Then

    If (l - 5) Mod 4 = 0 Then
    Target = UCase(Target)
    End If

    If (l - 6) Mod 4 = 0 Then
    Target = StrConv(Target.Text, 3)
    End If

End If
End Sub

Bonne journée
Guiv

 

[sasha]

Re : macro majuscule

Pardon pour le retard mais j'étais absente

UN GRAND MERCI