Modification code

papy 73 ans

XLDnaute Occasionnel
Bonjour,
Comment modifier ce code pour que en même temps J14 se mette en minuscule
Le but étant que quelque soit le type de saisie effectuée les cellules se mettent comme il faut :
A4, G25, K7 toujours en majuscule
J14 toujours en minuscule
En vous remerciant

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7" '-->> on les connaît, ces addresses
Application.EnableEvents = False '---->> pour éviter de relancer alors qu'on modifie
Target.Value = UCase(Target.Text) ' j'utilise la propriété text
Application.EnableEvents = True ' --->> on remet les choses en place
End Select
End Sub
 
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Salut Papy,
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7" '-->> on les connaît, ces addresses
Application.EnableEvents = False '---->> pour éviter de relancer alors qu'on modifie
Target.Value = UCase(Target.Text) ' j'utilise la propriété text
[J14]=Lcase([J14])
Application.EnableEvents = True ' --->> on remet les choses en place
End Select
End Sub
Bruno
 

papy 73 ans

XLDnaute Occasionnel
Re
Malgré code modifier comme ci-dessous, écran scintille lors application

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
[J14] = LCase([J14])
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7"
Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
Target.Value = UCase(Target.Text) 'j'utilise la propriété text
Application.EnableEvents = True 'on remet
End Select
Application.ScreenUpdating = True
End Sub
 

youky(BJ)

XLDnaute Barbatruc
Hello,
C'est pas bon comme tu as fait
il faut placer [J14] = LCase([J14]) entre Application.EnableEvents = False . . . . .et >>>>True
Donc

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7"
Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
Target.Value = UCase(Target.Text) 'j'utilise la propriété text
[J14] = LCase([J14])
Application.EnableEvents = True 'on remet
End Select
Application.ScreenUpdating = True
End Sub

Bruno
 

papy 73 ans

XLDnaute Occasionnel
Bonjour Bertrand,
Merci de me répondre, mais j'ai essayé mais il me faut la mettre dans une autre cellule
Ce que je voudrais c'est si saisie LUC ou luc que ça mette Luc dans la même cellule (K4) dès validation
Ça fait 2 jours que j'écume les forums sans trouver
Je connais rien en vba
 
Dernière édition:

papy 73 ans

XLDnaute Occasionnel
Bonjour Bruno,
Content de te revoir
j'ai essayé en mettant le code après :
Application.ScreenUpdating = False
Case "A4", "G25", "K7"
et avant
[J14] = LCase([J14])
mais ça ne va pas

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7"
Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
Target.Value = UCase(Target.Text) 'j'utilise la propriété text
[J14] = LCase([J14])
Application.EnableEvents = True 'on remet
End Select
Application.ScreenUpdating = True
End Sub
 

youky(BJ)

XLDnaute Barbatruc
Essayer cela, non testé
Bruno
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
If Target.Address = "$J$14" Then [J14] = LCase([J14]): GoTo fin
If Target.Address = "$K$4" Then Target = Application.Proper(Target): GoTo fin
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7"
Target.Value = UCase(Target.Text) 'j'utilise la propriété text
End Select
fin:
Application.EnableEvents = True 'on remet
End Sub
 

Discussions similaires