Personnaliser format d'une cellule via VBA

  • Initiateur de la discussion Initiateur de la discussion medino55
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

medino55

Guest
Comment rendre la saisie dans une cellule en majuscule ou commence par majuscule et le reste en minuscule.
et merci d'avance.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
792
Réponses
6
Affichages
196
Réponses
2
Affichages
107
Retour