OVH Cloud OVH Cloud

[URGENT] - Mettre en Majuscule la cellule active

3 réponses
Avatar
Olivier
Bonsoir tout le monde,

J'ai un soucis !!.
J'essaie de mettre en majuscule (via le VBA), le texte=20
qui je viens de taper dans un cellule X.

J'ai fait des essais avec SelectionChange, Change, etc..,=20
mais cela ne fonctionne que si je "d=E9flague" l'option, le=20
d=E9placement de mon curseur (En Bas, Droite, Gauche, haut).

J'aimerai que cela fonctionne sans devoir passer par ce=20
proc=E9d=E9.

Pouvez-vous me donner une solution.

1000 mercis pas avance pour vos r=E9ponses.
Olivier

3 réponses

Avatar
JCR
Bonsoir,

Tout ( ou presque) est sur Excelabo....

http://www.excelabo.net/xl/formats.php#majusculesminuscules

JCR


"Olivier" a écrit dans le message de news:
108401c53ac9$9de31670$
Bonsoir tout le monde,

J'ai un soucis !!.
J'essaie de mettre en majuscule (via le VBA), le texte
qui je viens de taper dans un cellule X.

J'ai fait des essais avec SelectionChange, Change, etc..,
mais cela ne fonctionne que si je "déflague" l'option, le
déplacement de mon curseur (En Bas, Droite, Gauche, haut).

J'aimerai que cela fonctionne sans devoir passer par ce
procédé.

Pouvez-vous me donner une solution.

1000 mercis pas avance pour vos réponses.
Olivier
Avatar
ChrisV
Bonjour Olivier,

Avec la plage de cellules (ou une cellule seule) nommée ici Zn...
Dans la feuille de code de l'onglet concerné:

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


"Olivier" a écrit dans le message de news:
108401c53ac9$9de31670$
Bonsoir tout le monde,

J'ai un soucis !!.
J'essaie de mettre en majuscule (via le VBA), le texte
qui je viens de taper dans un cellule X.

J'ai fait des essais avec SelectionChange, Change, etc..,
mais cela ne fonctionne que si je "déflague" l'option, le
déplacement de mon curseur (En Bas, Droite, Gauche, haut).

J'aimerai que cela fonctionne sans devoir passer par ce
procédé.

Pouvez-vous me donner une solution.

1000 mercis pas avance pour vos réponses.
Olivier
Avatar
Olivier
Merci à toi ChrisV et JCR pour vos conseils..

Oliver