Discussion :

[Viper7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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
Message d'erreur ? Quelle ligne ? Quelle données effaces-tu ???
Bref, des détails pourraient nous aider à t'aider

[Viper7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Elstak]

puis j'ai effacé les cases G5 à G8

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

[Viper7]

non pas toutes

[ouskel'n'or]

Comprends toujours pas la relation avec le passage en majuscule

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Viper7]

Merci beaucoup, ca marche !