OVH Cloud OVH Cloud

Majuscule

8 réponses
Avatar
Steph
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph

8 réponses

Avatar
ru-th
Salut

un peu bas, tu aurai trouvé
Données validation Personalisé
=EXACT(a1;MAJUSCULE(a1))
a+
rural thierry

"Steph" a écrit dans le message de news:
3ffd5489$0$1145$
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph




Avatar
ru-th
Salut

par cela, il est impossible d'écrire en miniscule
pour le changement de casse
tu aurais trouvé dans le même fil une procédure évenementielle

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then _
Target.Value = UCase(Target.Value)
End Sub

a+
rural thierry

"Steph" a écrit dans le message de news:
3ffd6ad8$0$6075$
Ce n'est pas vraiment ce que je veux, je souhaite soit que lorsque l'on
écrit, on ne puisse pas écrire en minuscule
ou que après avoir valider (enter), la ligne change en majuscule.


"ru-th" a écrit dans le message de
news:
Salut

un peu bas, tu aurai trouvé
Données validation Personalisé
=EXACT(a1;MAJUSCULE(a1))
a+
rural thierry

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

3ffd5489$0$1145$
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph












Avatar
Steph
Ce n'est pas vraiment ce que je veux, je souhaite soit que lorsque l'on
écrit, on ne puisse pas écrire en minuscule
ou que après avoir valider (enter), la ligne change en majuscule.


"ru-th" a écrit dans le message de
news:
Salut

un peu bas, tu aurai trouvé
Données validation Personalisé
=EXACT(a1;MAJUSCULE(a1))
a+
rural thierry

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

3ffd5489$0$1145$
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph








Avatar
Steph
Ceci fonctionne très bien
merci Thierry

"ru-th" a écrit dans le message de
news:
Salut

par cela, il est impossible d'écrire en miniscule
pour le changement de casse
tu aurais trouvé dans le même fil une procédure évenementielle

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then _
Target.Value = UCase(Target.Value)
End Sub

a+
rural thierry

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

3ffd6ad8$0$6075$
Ce n'est pas vraiment ce que je veux, je souhaite soit que lorsque l'on
écrit, on ne puisse pas écrire en minuscule
ou que après avoir valider (enter), la ligne change en majuscule.


"ru-th" a écrit dans le message de
news:
Salut

un peu bas, tu aurai trouvé
Données validation Personalisé
=EXACT(a1;MAJUSCULE(a1))
a+
rural thierry

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

3ffd5489$0$1145$
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph
















Avatar
ChrisV
De rien...! >:-)


ChrisV


"Steph" a écrit dans le message de news:
3ffd67b9$0$830$
Ceci fonctionne très bien
merci Thierry

"ru-th" a écrit dans le message de
news:
Salut

par cela, il est impossible d'écrire en miniscule
pour le changement de casse
tu aurais trouvé dans le même fil une procédure évenementielle

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then _
Target.Value = UCase(Target.Value)
End Sub

a+
rural thierry




Avatar
Auguste VIEIRA de RESENDE
Bonjour,

j'ai un pb du même genre :

lorsque je saisi du texte dans une cellule appartenant
a un groupe de cellules, il faut que la saisie passe automatiquement
en majuscule (quelque soit la cellule qui a été saisie)

je suis un peu (beaucoup) débutant...
merci



"Steph" a écrit dans le message news:
3ffd5489$0$1145$
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph




Avatar
ChrisV
Bonjour Auguste,

Avec la plage de cellules sur laquelle tu désires forcer les majuscules
nommée ici Zn...
Dans la feuille de code de l'onglet correspondant:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Not Intersect(Target, Range("Zn")) Is Nothing Then _
Target.Value = UCase(Target.Value)
End Sub


ChrisV


"Auguste VIEIRA de RESENDE" a écrit dans le message de
news:
Bonjour,

j'ai un pb du même genre :

lorsque je saisi du texte dans une cellule appartenant
a un groupe de cellules, il faut que la saisie passe automatiquement
en majuscule (quelque soit la cellule qui a été saisie)

je suis un peu (beaucoup) débutant...
merci



"Steph" a écrit dans le message news:
3ffd5489$0$1145$
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph








Avatar
Auguste VIEIRA de RESENDE
super,
ça fonctionne plutôt bien
mais

lorsque j'ouvre mon classeur une macro initialise automatiquement mon
planning
(elle récupère des formules et des données qui se trouvent dans une feuille
masquée)

si j'utilise la solution proposée (qui fonctionne très bien) apparemment
cela tourne longtemps à l'ouverture du classeur
suis-je clair ?



"ChrisV" a écrit dans le message news:

Bonjour Auguste,

Avec la plage de cellules sur laquelle tu désires forcer les majuscules
nommée ici Zn...
Dans la feuille de code de l'onglet correspondant:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Not Intersect(Target, Range("Zn")) Is Nothing Then _
Target.Value = UCase(Target.Value)
End Sub


ChrisV


"Auguste VIEIRA de RESENDE" a écrit dans le message
de

news:
Bonjour,

j'ai un pb du même genre :

lorsque je saisi du texte dans une cellule appartenant
a un groupe de cellules, il faut que la saisie passe automatiquement
en majuscule (quelque soit la cellule qui a été saisie)

je suis un peu (beaucoup) débutant...
merci



"Steph" a écrit dans le message news:
3ffd5489$0$1145$
Bonjour,

Comment forcer la saisie d'une cellule en majuscule ?

Merci

Steph