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 [NOMPROPRE]

[NOMPROPRE]

21 réponses
Avatar
Cath
Bonjour à tous,

Dans un autre fil (initié le 18/11), vous m'aviez donné une solution
(merci encore) pour mettre un mot en majuscules dans la cellule A1, en
ajoutant dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Cela fonctionne à merveille, mais voici que je deviens plus difficile et
qu'à présent, j'aimerais qu'en plus de cela, la cellule H2 soit en
format Première lettre de chaque mot en majuscules (pour un prénom qui
peut être composé).

J'ai tenté d'adapter ce que j'ai trouvé sur Excelabo, mais je ne connais
pas (encore) le langage approprié et n'ai pas réussi.

Merci de votre réponse.

--
Cath :-)
/\____/\ L'Australie dans tous ses états :
\ / \ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
> v < http://perso.wanadoo.fr/cathozie/aideinternet/
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
Cath
Merci de ta réponse, je la garde précieusement et la testerai le jour où
j'aurai une idée de ce que cela signifie ce qui n'est malheureusement
pas le cas pour le moment.

Ce Sat, 27 Nov 2004 10:53:50 +0100, Polemos <mail :
http://cerbermail.com/?9Gy7Dd1t9W> nous dit :

Ce bout de code met en majuscule la première lettre de chaque mot
séparé, et te crée une chaine nouvelle.

Je n'ai pas testé le code mais l'idée est là...


--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/


Avatar
Cath
Ce Mon, 29 Nov 2004 06:59:28 +0100, AV nous dit :

Un micro-climat défavorable....


Non ! Sans aucun doute mon incompétence.
J'ai fait un copier coller de ta réponse directement dans le module de
la feuille (clic-droit sur l'onglet de la feuille et visualiser le code,
c'est bien ça ?) et mes caractères sont restés désespérément en
minuscules.

Je croyais à tort que, comme avec Word il suffit de paramétrer la police
en majuscules ou d'utiliser le raccourci MAJ F3, cela pouvait être
également assez simple sous Excel.

À l'évidence je me trompais.
Cela dit, j'aurais aimé comprendre pourquoi cela ne fonctionne pas et
s'il fallait adapter quelque chose dans le code que tu m'as donné.

Merci encore.

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/


Avatar
twinley
B'jour

cabine treize

à+twinley


jps wrote:
répondre ceci plus de 11 heures après....une honte, je vous dis...
quant au micro-climat, y a fort à parier que celui de catherine est plus
clément que celui du plateau de millevaches.....quoique, tu me diras, alain,
pour toi, y a le chabrol....
jps

"AV" a écrit dans le message de
news:%

Merci de t'être penché sur ma question, mais ça ne fonctionne pas chez
moi.


Un micro-climat défavorable....

AV









Avatar
AV
Conformément à ta demande initiale le contenu de A1 est mis en majuscule (après
saisie !) et celuie de H2 mis au "format nom propre" (après saisie !)

http://cjoint.com/?lDpH3mP8rn

PS : La désactivation des évènements peut être une cause de non-fonctionnement
Par précaution exécuter cette macro :

sub zz()
Application.EnableEvents = True
end sub

AV
Avatar
Clément Marcotte
Bonjour,

Je n'ai pas testé
vrai ;-)


placeinit_boleanúlse
if palceinit_bool = false then
placeinit_bool=true
if placinit_boolean =true then
placeinit_booleanúlse


Avatar
Cath
Rien à faire, ça ne fonctionne pas, tant pis.
Merci encore.

Ce Mon, 29 Nov 2004 15:55:23 +0100, AV nous dit :

Conformément à ta demande initiale le contenu de A1 est mis en majuscule (après
saisie !) et celuie de H2 mis au "format nom propre" (après saisie !)


--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/


Avatar
Cath
Mille excuses ! Ce matin, après redémarrage d'Excel, cela fonctionnait.
Merci beaucoup.

Ce Mon, 29 Nov 2004 21:46:41 +0100, Cath nous dit :

Rien à faire, ça ne fonctionne pas, tant pis.
Merci encore.


--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/


Avatar
jps
ah ces micro-climats....
jps

"Cath" a écrit dans le message de
news:
Mille excuses ! Ce matin, après redémarrage d'Excel, cela fonctionnait.
Merci beaucoup.

Ce Mon, 29 Nov 2004 21:46:41 +0100, Cath nous dit :

Rien à faire, ça ne fonctionne pas, tant pis.
Merci encore.


--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/




Avatar
Cath
M'en parle pas, l'Anjou est mortel pour ça.
Heureusement, on a du vin !

Ce Tue, 30 Nov 2004 21:27:29 +0100, jps nous dit :

ah ces micro-climats....


--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/


Avatar
jps
ah! ne me parle pas de vin ce soir, cath
j'ai un bon copain sénégalais que je n'avais pas revu depuis qu'il était
allé faire les vendanges en alsace, histoire de se faire 2/3 sous
en fait, le pauvre n'y était resté que deux jours et pourtant, il y était
parti la fleur au fusil : à peine arrivé, il faisait preuve d'un dynanisme
de bon aloi ; ll entraînait même les autres vendangeurs ; il ne cessait de
dire "allez les gars, on va couper la riesling ce matin et cet après-midi on
coupera la gewurtztraminer et demain on coupera la sylvaner le matin et la
tokay l'après-midi" ; bref un programme que les viticulteurs voyaient d'un
bon oeil tout en étant chagrinés par la formulation d'icelui ; ils ne
voulaient bien sûr pas vexer un élément aussi ardent au travail ; aussi ne
fut-ce qu'à la fin du second jour qu'ils prirent gentiment mon copain dans
un coin du cuvier et lui dirent "on ne dit pas "la" sylvaner mais "le", pas
plus que "la" riesling mais "le"....mais à part ça, t'es un bon gars,
mamadou et on t'aime bien...
à l'aube du troisième jour, mon copain avait disparu et ce n'est que dans le
milieu de l'après-midi qu'ils le découvrirent terré dans la cabane à outils,
tout en haut de la vigne, les yeux exorbités, la sueur inondant son visage,
tremblant de tous ses membres, bref noir de peur (si vous me permetteez
l'expression) "mais qu'est-ce qui t'arrive, mamadou?" et mon ami de
répondre,d'une voix angoissée "ah! dis donc, présentement, je me sens très
mal ; j'ai entendu le chef de rang qui disait ce matin qu'on allait couper
la pinot noir"...
à + cath...
jps

"Cath" a écrit dans le message de
news:
M'en parle pas, l'Anjou est mortel pour ça.
Heureusement, on a du vin !

Ce Tue, 30 Nov 2004 21:27:29 +0100, jps nous dit :

ah ces micro-climats....


--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/




1 2 3