Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel DIFFICULTES minuscule->majuscule

DIFFICULTES minuscule->majuscule

11 réponses
Avatar
stephprod
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
francois.forcet
On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane


Salut stefane
Dans le VBA de la feuille mets ces lignes :

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub

Celà devrait le faire

Dis moi !!!!

Avatar
stephprod
euh désolé mais cela ne marche pas



a écrit dans le message de news:

On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane


Salut stefane
Dans le VBA de la feuille mets ces lignes :

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub

Celà devrait le faire

Dis moi !!!!

Avatar
stephprod
en fait si ca marche mais cela ralenti considerablement la saisie.. en fait
est il possible de faire ce code si et seulement si ce qui a été tapé est en
minuscule

merci d avance

ton aide deja a ete super


a écrit dans le message de news:

On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane


Salut stefane
Dans le VBA de la feuille mets ces lignes :

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub

Celà devrait le faire

Dis moi !!!!

Avatar
francois.forcet
On 1 fév, 16:47, "stephprod" wrote:
en fait si ca marche mais cela ralenti considerablement la saisie.. en fai t
est il possible de faire ce code si et seulement si ce qui a été tap é est en
minuscule

merci d avance

ton aide deja a ete super

a écrit dans le message de news:

On 1 fév, 15:38, "stephprod" wrote:

Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane


Salut stefane
Dans le VBA de la feuille mets ces lignes :

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub

Celà devrait le faire

Dis moi !!!!


Rebonjour à toi

Je n'ai pas trouvé un quelconque ralentissement dans la saisie

Pour moi c'est immédiat

Je t'ai déposé sur ce lien un document que tu pourras tester

Fais en Feuil1 quelques saisies et donne m'en des nouvelles !!!

http://www.cijoint.fr/cj200802/cij3130967203138.xls


Avatar
JB
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr


On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane


Avatar
stephprod
merci beaucoup JB ton code est exceptionnel

merci encore

"JB" a écrit dans le message de news:

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr


On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane


Avatar
stephprod
En fait après multiples test, je me suis apercu d un bug si on supprime la
cellule ben on a un debogage..

comment résoudre?

as tu une solution?

merci d avance stefane



"stephprod" a écrit dans le message de news:
47a3419e$0$869$
merci beaucoup JB ton code est exceptionnel

merci encore

"JB" a écrit dans le message de news:

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr


On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane








Avatar
isabelle
bonjour stefane,

Private Sub Worksheet_Change(ByVal Target As Range)
IF Target = "" Then Exit sub
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End Sub

isabelle

En fait après multiples test, je me suis apercu d un bug si on supprime la
cellule ben on a un debogage..

comment résoudre?

as tu une solution?

merci d avance stefane



"stephprod" a écrit dans le message de news:
47a3419e$0$869$
merci beaucoup JB ton code est exceptionnel

merci encore

"JB" a écrit dans le message de news:

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr


On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane











Avatar
JB
Si on efface un champ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

JB


On 1 fév, 17:10, "stephprod" wrote:
En fait après multiples test, je me suis apercu d un bug si on supprime la
cellule ben on a un debogage..

comment résoudre?

as tu une solution?

merci d avance stefane

"stephprod" a écrit dans le message de news:
47a3419e$0$869$



merci beaucoup JB ton code est exceptionnel

merci encore

"JB" a écrit dans le message de news:

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
Target = Ucase(Target)
 Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr

On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
stephprod
euh ca marche isabelle
mais je suis une cellule qui contient une zone de validation ca
plantouille... tu vois pourkoi?

help please
merci d avance
stefane


"isabelle" a écrit dans le message de news:

bonjour stefane,

Private Sub Worksheet_Change(ByVal Target As Range)
IF Target = "" Then Exit sub
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End Sub

isabelle

En fait après multiples test, je me suis apercu d un bug si on supprime
la cellule ben on a un debogage..

comment résoudre?

as tu une solution?

merci d avance stefane



"stephprod" a écrit dans le message de news:
47a3419e$0$869$
merci beaucoup JB ton code est exceptionnel

merci encore

"JB" a écrit dans le message de news:

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr


On 1 fév, 15:38, "stephprod" wrote:
Bonjour j aimerais dans une feuil nommée tata
que lorsque je modifie une cellule kellekellesoit elle me l affiche en
majuscule si celle ci tapée en minuscule.
et ce ci après avoir valider en tapant sur ENTER

merci d avance a ceux qui vont se prende la tete la dessus

stefane












1 2