Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Majuscule & minuscule

Majuscule & minuscule

6 réponses
Avatar
fredbzr
Bonsoir à tous

D'abord merci pour vos réponses
Je reviens vers vous car j'ai insérer la ligne de code et j'ai un message
d'erreur
j'utilise XP2000

Private Sub Worksheet_Change(ByVal Target As Range)

If (Not Intersect(Target, Range("D31,D49")) Is Nothing) Then
For Each c In Target
c.value = UCase(c.value)
Next c
End If

If (Not Intersect(Target, Range("R31,G45")) Is Nothing) Then
For Each c In Target
c.value = UCase(Left(c.value, 1)) & LCase(Right(c.value,
Len(c.value) - 1)) 'Erreur d'exécution 5 : argument ou appel de procédure
incorrecte
Next c
End If
End Sub

Fred
Signaler un problème avec ce contenu

6 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
Avatar
Daniel
Bonjour.
Ajoute déjà une ligne :
application.enableeventsúlse en début de macro
et
application.enableevents=true à la fin, ça évite les boucles.
A part ça, je n'ai pas ton erreur. Peux-tu mettre ton classeur sur
www.cjooint.com et préciser la valeur que tu entres, et dans quelle cellule
tu la rentres.
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4565cd2b$0$5090$
Bonsoir à tous

D'abord merci pour vos réponses
Je reviens vers vous car j'ai insérer la ligne de code et j'ai un message
d'erreur
j'utilise XP2000

Private Sub Worksheet_Change(ByVal Target As Range)

If (Not Intersect(Target, Range("D31,D49")) Is Nothing) Then
For Each c In Target
c.value = UCase(c.value)
Next c
End If

If (Not Intersect(Target, Range("R31,G45")) Is Nothing) Then
For Each c In Target
c.value = UCase(Left(c.value, 1)) & LCase(Right(c.value,
Len(c.value) - 1)) 'Erreur d'exécution 5 : argument ou appel de procédure
incorrecte
Next c
End If
End Sub

Fred



Avatar
AV
Comme déjà dit précédemment, il n'y apas de raison que ça ne marche pas
Le problèmes est ailleurs...

Teste le fichier joint et compare avec le tien
http://cjoint.com/?lxr7es1j5A

AV
Avatar
fredbzr
Bonsoir
en effet avec ton fichier çà fonctionne bien........
"AV" a écrit dans le message de news:
ONL%
Comme déjà dit précédemment, il n'y apas de raison que ça ne marche pas
Le problèmes est ailleurs...

Teste le fichier joint et compare avec le tien
http://cjoint.com/?lxr7es1j5A

AV



Avatar
fredbzr
J'ai mis la feuille sur cjoint
http://cjoint.com/?lxtkw3IibH

j'ai essayé de faire simple.
les cellules grise son à remplir

merci de votre aide

"fredbzr" a écrit dans le message de news:
4565d55a$0$27373$
Bonsoir
en effet avec ton fichier çà fonctionne bien........
"AV" a écrit dans le message de news:
ONL%
Comme déjà dit précédemment, il n'y apas de raison que ça ne marche pas
Le problèmes est ailleurs...

Teste le fichier joint et compare avec le tien
http://cjoint.com/?lxr7es1j5A

AV







Avatar
fredbzr
Une piste ?
En fait le problème doit venir du fait que j'ai des cellules fuisionnées car
eneffet tout fonctionne pour des cellules "normales" mais des qu'elles sont
fusionnées l'erreur apparaît.....

"fredbzr" a écrit dans le message de news:
4565e4a8$0$27392$
J'ai mis la feuille sur cjoint
http://cjoint.com/?lxtkw3IibH

j'ai essayé de faire simple.
les cellules grise son à remplir

merci de votre aide

"fredbzr" a écrit dans le message de news:
4565d55a$0$27373$
Bonsoir
en effet avec ton fichier çà fonctionne bien........
"AV" a écrit dans le message de news:
ONL%
Comme déjà dit précédemment, il n'y apas de raison que ça ne marche pas
Le problèmes est ailleurs...

Teste le fichier joint et compare avec le tien
http://cjoint.com/?lxr7es1j5A

AV











Avatar
fredbzr
De plus lorsque l'on fait une suppression sur une cellule (1ère = majuscule
et ensuite minuscule), l'erreur apparaît de nouveau.........
trop de mystère pour mes faibles connaissances.........

"fredbzr" a écrit dans le message de news:
4565e823$0$27405$

Une piste ?
En fait le problème doit venir du fait que j'ai des cellules fuisionnées
car eneffet tout fonctionne pour des cellules "normales" mais des qu'elles
sont fusionnées l'erreur apparaît.....

"fredbzr" a écrit dans le message de news:
4565e4a8$0$27392$
J'ai mis la feuille sur cjoint
http://cjoint.com/?lxtkw3IibH

j'ai essayé de faire simple.
les cellules grise son à remplir

merci de votre aide

"fredbzr" a écrit dans le message de news:
4565d55a$0$27373$
Bonsoir
en effet avec ton fichier çà fonctionne bien........
"AV" a écrit dans le message de news:
ONL%
Comme déjà dit précédemment, il n'y apas de raison que ça ne marche pas
Le problèmes est ailleurs...

Teste le fichier joint et compare avec le tien
http://cjoint.com/?lxr7es1j5A

AV