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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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
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
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
On 8 août, 09:47, TITUS <TI...@discussions.microsoft.com> wrote:
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
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
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
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
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
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
On 8 août, 09:47, TITUS <TI...@discussions.microsoft.com> wrote:
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
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
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