Sélection des cellules en question est: Données / validations ==>Onglet options==>autoriser: Personnalisé==>formule : =EXACT(A1;MAJUSCULE(A1)) Message etc....
Salutations JJ
"fbr" a écrit dans le message de news:%
bonjour
peut t on forcer la saisie en majuscule de certaines cellules?
merci
fbr
michdenis
Bonjour Fbr,
Tu copies ceci dans le module feuille où l'action se déroule.
Si tu veux obtenir tout le texte en majucule : Tu modifies cette ligne : c.Value = Application.Proper(c) Pour ¸ c.Value = Ucase(c)
La plage désignée ... à toi de la définir
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Range("A1:G25") 'à déterminer
If Not Intersect(Target, Rg) Is Nothing Then For Each c In Target If c <> "" And c.HasFormula = False Then c.Value = Application.Proper(c) End If Next End If End Sub '----------------------
Salutations!
"fbr" a écrit dans le message de news: % bonjour
peut t on forcer la saisie en majuscule de certaines cellules?
merci
fbr
Bonjour Fbr,
Tu copies ceci dans le module feuille où l'action se déroule.
Si tu veux obtenir tout le texte en majucule :
Tu modifies cette ligne :
c.Value = Application.Proper(c)
Pour ¸
c.Value = Ucase(c)
La plage désignée ... à toi de la définir
'----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A1:G25") 'à déterminer
If Not Intersect(Target, Rg) Is Nothing Then
For Each c In Target
If c <> "" And c.HasFormula = False Then
c.Value = Application.Proper(c)
End If
Next
End If
End Sub
'----------------------
Salutations!
"fbr" <brossefred@aol.com> a écrit dans le message de news: %23oOobiESGHA.5900@tk2msftngp13.phx.gbl...
bonjour
peut t on forcer la saisie en majuscule de certaines cellules?
Tu copies ceci dans le module feuille où l'action se déroule.
Si tu veux obtenir tout le texte en majucule : Tu modifies cette ligne : c.Value = Application.Proper(c) Pour ¸ c.Value = Ucase(c)
La plage désignée ... à toi de la définir
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Range("A1:G25") 'à déterminer
If Not Intersect(Target, Rg) Is Nothing Then For Each c In Target If c <> "" And c.HasFormula = False Then c.Value = Application.Proper(c) End If Next End If End Sub '----------------------
Salutations!
"fbr" a écrit dans le message de news: % bonjour
peut t on forcer la saisie en majuscule de certaines cellules?
