Re : Personnaliser format d'une cellule via VBA
Bonjour
voici un code qui fait le travail
à mettre dans thisworbook si tu veux que çà fonctionne pour toutes tes feuilles, sinon dans un module de feuille
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'' Change la couleur de fonds de la cellule modifiée
' 'application à chaque changement de cellule colonne E et F
Application.ScreenUpdating = False
Select Case Target.Column
Case Is = 6
With Target
On Error Resume Next
Target.NumberFormat = "# ###.00"
Target.Interior.ColorIndex = 34 ' BLEU A CHOISIR
End With
Case Is = 5
With Target
On Error Resume Next
Target.Interior.ColorIndex = 34
Target.NumberFormat = "# ###.00"
End With
' Ecrire la première lettre en majuscule
Case Is = 2 'à chaque changement de cellule colonne B
With Target
If Not IsEmpty(Target) Or Not IsNumeric(Target) Then
.Value = UCase(Mid(.Value, 1, 1)) & LCase(Mid(.Value, 2))
End If
End With
End Select
End Sub
Cordialement
Flyonets