[VBA Excel] Forcer les majuscules

Bonjour,

J'essaye de faire fonctionner une macro dont l'objectif est de transformer automatiquement des données en minuscules en données en majuscules.
Pour cela, je sélectionne la feuille concernée dans laquelle j'écris 2 macros possibles pour le même résultat :

Macro 1 :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [G2:G20]) Is Nothing Then Exit Sub Application.EnableEvents = False zz = UCase(zz) Application.EnableEvents = True End Sub

---

OU macro 2 :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("G2:G20")) Is Nothing Then Exit Sub zz.Value = UCase(CStr(zz.Value)) End Sub

---

Les 2 macros fonctionnent mais dès que je fais une suppression de plusieurs données en meme temps, j'ai un bug de la macro puis elle ne fonctionne plus... A quoi es-ce dû d'après vous ?

D'avance merci ;)

Citation:

---

elle ne fonctionne plus

---

Renseignement relatif, essentiellement tributaire des lignes du code et du contexte sans lesquels il ne sert à rien pisk tout le monde qui vient poser une question sur le forum a un truc qui fonctionne pas :mouarf:
Message d'erreur ? Quelle ligne ? Quelle données effaces-tu ???
Bref, des détails pourraient nous aider à t'aider ;)

Lool !!! Bon pour faire simple, la macro fonctionnait, puis j'ai effacé les cases G5 à G8 pour tester et cela a provoqué une erreur sur la ligne

Code:

---

zz.Value = UCase(zz.Value)

---

et depuis , la macro (ou l'autre) ne fonctionne plus. La question est donc : Comment faire pour que les données saisies passent automatiquement en majuscule ?

Citation:

---

puis j'ai effacé les cases G5 à G8

---

Avant toutes les cellules de ton range étaient remplies par du texte?

non pas toutes

Comprends toujours pas la relation avec le passage en majuscule :(

je vois 2 problémes :

1. Lorsque tu modifie plusieurs cellules simultanément, le range zz contient plusieurs cellule et ZZ=UCase(ZZ) est incorrect.. tu dois mettre les cellules en majuscules une par une ...
2. Tu gére mal ton intersection ... et si tu modifie simultanément (copie ou efface..) du texte appartenant à la plage G2:G20 et d'autre texte n'appartenant pas à cette plage zz représente un range couvra,toutes les cellules modifiées .. et je pense pas que tu veuille toute les passer en majuscule...

tiens voila comment je vois le code ( j'en ai profité pour reprendre le nom habituel de la variable donnée en paramétre à Worksheet_change : target..)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range) Dim zz Dim c As Range Set zz = Intersect(Target, [G2:G20]) If zz Is Nothing Then Exit Sub Application.EnableEvents = False For Each c In zz.Cells c = UCase(c) Next Application.EnableEvents = True End Sub

---

Merci beaucoup, ca marche !