Sub Macro1()
Dim ColonneG As Range
Set ColonneG = Range("Feuil1!g2:g" & [65536:65536].End(xlUp).Row)
Do Until ActiveCell = ""
ColonneG.Value = UCase(Mid(Range("ColonneG").Value, 1, 1)) & Mid(Range("ColonneG").Value, 2)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Fonctionne pas ? Ma plage de cellule est G2 à la fin. L'erreur se trouve ???
Bonsoir,
un code pas de moi.
N'oublie pas de modifier les cellules dans le code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim maj As String
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
If Target.Value = "" Then Exit Sub
maj = Left(Target, 1)
Target = UCase(maj) & Right(Target, Len(Target) - 1)
End If
End Sub
pour une boucle sur la colonne G, une autre solution :
Code:
Sub test()
Dim c As Range
With Sheets("Feuil1")
For Each c In .Range("G2:G" & .Range("G65536").End(xlUp).Row)
If Not IsEmpty(c.Value) Then c.Value = UCase(Mid(c, 1, 1)) & Mid(c.Value, 2)
Next c
End With
End Sub