Majuscule immédiate dans cellule

Le
TITUS
Bonjour à tous,

Ce matin j'ai cherché dans tous ce qui avait été fait est j'ai trouvé une
réponse de JPS du 26/02/2005 'Majuscule dans excel) qui me va mais je
souhaiterais que celà apparaisse immédiatement après saisie dans une cellule.

CAD :
Quand les utilisateurs vont saisir le NOM et le PRENOM dans la cellule E2,
je voudrais que l'entrée soit automatiquement mise en MAJUSCULE quand ils
sortent de la cellule

Avez-vous quelque chose à me proposer ?

ci-dessous le code de JPS qui ne fonctionne qu'à la fermeture du classeur. :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub

que j'ai transformé pour mes besoins personnels en :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each x In Feuil2.Range("E2")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4808921
Bonjour,

Clic-droit onglet puis visualiser le code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address="$E$2" And Target.Count = 1 Then
Target = Ucase(Target)
End If
Application.EnableEvents = True
End Sub

http://boisgontierjacques.free.fr/2007/fichiers/jb-worksheetchange.zip

JB


On 8 août, 09:47, TITUS
Bonjour à tous,

Ce matin j'ai cherché dans tous ce qui avait été fait est j'ai trou vé une
réponse de JPS du 26/02/2005 'Majuscule dans excel) qui me va mais je
souhaiterais que celà apparaisse immédiatement après saisie dans un e cellule.

CAD :
Quand les utilisateurs vont saisir le NOM et le PRENOM dans la cellule E2,
je voudrais que l'entrée soit automatiquement mise en MAJUSCULE quand i ls
sortent de la cellule

Avez-vous quelque chose à me proposer ?

ci-dessous le code de JPS qui ne fonctionne qu'à la fermeture du classe ur. :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub

que j'ai transformé pour mes besoins personnels en :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each x In Feuil2.Range("E2")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub


TITUS
Le #4808881
MerciJB,
c'est impeccable!

Bonne Journée
Cordialement
TITUS


Bonjour,

Clic-droit onglet puis visualiser le code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address="$E$2" And Target.Count = 1 Then
Target = Ucase(Target)
End If
Application.EnableEvents = True
End Sub

http://boisgontierjacques.free.fr/2007/fichiers/jb-worksheetchange.zip

JB


On 8 août, 09:47, TITUS
Bonjour à tous,

Ce matin j'ai cherché dans tous ce qui avait été fait est j'ai trouvé une
réponse de JPS du 26/02/2005 'Majuscule dans excel) qui me va mais je
souhaiterais que celà apparaisse immédiatement après saisie dans une cellule.

CAD :
Quand les utilisateurs vont saisir le NOM et le PRENOM dans la cellule E2,
je voudrais que l'entrée soit automatiquement mise en MAJUSCULE quand ils
sortent de la cellule

Avez-vous quelque chose à me proposer ?

ci-dessous le code de JPS qui ne fonctionne qu'à la fermeture du classeur. :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub

que j'ai transformé pour mes besoins personnels en :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each x In Feuil2.Range("E2")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub







Publicité
Poster une réponse
Anonyme